將vb中，讀取文字檔案行數的方法進行了一下比較，發現方法二速度最快，程式最簡練
dim sfiles as string
dim str1 as string
dim n, f_lines as long
n = timer
if 1 = 0 then
' 方法1
' 試驗檔案花時 9.25"
dim temp() as string
open sfiles for binary as #1
temp = split(input$(lof(1), 1), vbcrlf)
close #1
f_lines = ubound(temp) + 1
elseif 1 = 1 then
' 方法2
' 試驗檔案花時 0.11"
f_lines = createobject("scripting.filesystemobject").opentextfile(sfiles, 8).line
else
' 方法3
' 試驗檔案花時 0.26"
f_lines = 0
open sfiles for input as #1
do while not eof(1)
line input #1, str1
f_lines = f_lines + 1
loop
close #1
end if
' msgbox "共有" & f_lines & "行; 花時" + format(timer - n, " 0000.0000")
txt文字轉成access的VB編碼
菜鳥求教高人vb 把txt文字 格式如下 轉成access 層流型 申請號 cn87100245 申請日 1987.03.27 公開日 1988.10.19 主分類號 g06f15 20 範疇分類號 40b 發明 設計 人 陳仁甫 吳剛 申請 專利權 人 電子工業部第三十二研究所 通訊位址 上海市嘉...
Android讀取txt的方法
1 放入到資源資料夾裡面，也就是所建立android工程的res下面。我們可以在裡面建立資料夾，放置我們要讀取的檔案。例如 res裡面建立目錄raw，將要讀取的檔案abc.bin放入到該資料夾下，此時通過 openrawresource 方法即可讀取。為 inputstream is getreso...
C 讀取txt文字檔案 dat 的方法
using system using system.collections.generic using system.linq using system.web using system.web.ui using system.web.ui.webcontrols using system.io u...