1樓：匿名使用者
vb可以使用二進位制方式開啟文字檔案，以get 語句讀到位元組陣列，再使用strconv 函式將其轉換為字串，而後使用split函式文字的字串陣列及總句數，使用inputbox 函式來輸入需要讀某行文字。
get 語句
將乙個已開啟的磁碟檔案讀入乙個變數之中。
strconv 函式
返回按指定型別轉換的 variant (string)。
split函式
返回乙個下標從零開始的一維陣列，它包含指定數目的子字串。
inputbox 函式
在一對話方塊來中顯示提示，等待使用者輸入正文或按下按鈕，並返回包含文字框內容的 string。
以下是使用上述函式等的具體**：
private sub command3_click()
dim strwj as string
dim strj() as string
dim arycontent() as byte
dim i as long
dim j as long
commondialog1.cancelerror = true ' 設定「cancelerror」為 true
on error goto errhandler
commondialog1.flags = cdlofnhidereadonly ' 設定標誌
' 設定過濾器
commondialog1.filter = "all files (*.*)|*.
*|text files" & "(*.txt)|*.txt|batch files (*.
bat)|*.bat"
commondialog1.filterindex = 2 ' 指定預設的過濾器
commondialog1.showopen ' 顯示「開啟」對話方塊
' 顯示選定檔案的名字
'msgbox commondialog1.filename
open commondialog1.filename for binary as #1
redim arycontent(lof(1) - 1)
get #1, , arycontent
close #1
strwj = strconv(arycontent, vbunicode)
text1 = strwj
strj = split(strwj, vbcrlf)
i = ubound(strj)
text2 = i + 1
j = inputbox("輸入需要顯第幾句", j)
j = j - 1
label1.caption = j + 1 & "：" & strj(j)
exit sub
errhandler:
' 使用者按了「取消」按鈕
exit sub
end sub
2樓：dl_會飛的青蛙
dim intcount as integerdim s as string
intcount = 1
open "c:\1.txt" for input as #1do while not eof(1)
line input #1, s
if intcount=2 then
label1.caption=s
exit do
end if
intcount = intcount + 1loop
3樓：ii個人的寂寞
除錯通過：
private sub form_load()dim s1 as string
dim s2 as string
open "c:\1.txt" for input as #1line input #1, s1
line input #1, s2
label1.caption = s2
close #1
end sub
vb 逐行讀取文字檔案
4樓：匿名使用者
用open開啟檔案，然後用line行讀取即可。
**如下：
dim tempstr as string '定義變數tempstr為字串
open "c:\test.txt" for input as #1 '開啟檔案
while not eof(1) '讀取到結束line input #1, tempstr '讀取一行到變數tempstr
'對應的處理
wend '未結束繼續
close #1 '關閉
5樓：匿名使用者
dim mystr() as string = split(file.readalltext("data1.txt"), vbcrlf) '讀取data1
'mystr(0)表示第一行
'mystr(1)表示第二行
system.io.file.writealltext("data2.txt", mystr(0) + vbcrlf + mystr(1))'寫入data2
6樓：匿名使用者
dim textline
open "testfile" for input as #1 ' 開啟檔案。
do while not eof(1) ' 迴圈至檔案尾。
line input #1, textline ' 讀入一行資料並將其賦予某變數。
debug.print textline ' 在立即視窗中顯示資料。
loop
close #1 ' 關閉檔案。
vb怎樣讀取txt文字每一行的指定內容
7樓：匿名使用者
dim textline
dim ret as string
open "目錄\a.txt" for input as #1 ' 開啟檔案。
do while not eof(1) ' 迴圈至檔案尾。
line input #1, textline ' 讀入一行資料並將其賦予某變數。
'這時就是取到的第一行的值了，如果你確定每行都是這種格式「time=123」，那麼你就可以用
'下面的語句：
ret=mid(textline,6)
loop
close #1 ' 關閉檔案。
vb取文字檔案的內容，vb讀取文字檔案某行的內容
dim mystr as string split file.readalltext data1.txt vbcrlf 讀取data1 mystr 0 表示第一行 mystr 1 表示第二行 system.io.file.writealltext data2.txt mystr 0 vbcrlf m...
c語言如何實現從文字檔案裡讀取數字
可以通過fscanf，從檔案中依次讀取資料。當fscanf返回eof時，表示讀到檔案結尾，這時停止讀取即可。以檔案中儲存的為空格分隔的整型字元為例，可以寫作 從開啟的檔案指標fp指向的檔案讀資料，每次讀乙個整型，直至檔案結尾。c語言是一門通用計算機程式語言，應用廣泛。c語言的設計目標是提供一種能以簡...
VB程式設計讀取文字時如果沒有這個檔案怎麼跳過
1全部if dir c test.jpg thenmsgbox 存在檔案 else msgbox 不存在檔案 end if label1.caption format now,hh mm ss am pm 1.用函式fileexists if fileexists c z1.txt then開啟檔案...