vb2010如何逐行讀取txt文件

❶ VB如何讀取txt數據

Private
Sub
Command1_Click()
'基本讀取方法---只能讀取非中文
'
Dim
a
As
String,
b
As
String,
c
As
String,
d
As
String,
e
As
String,
f
As
String'定義幾個變數
Dim
FileNo
As
Integer
FileNo
=
FreeFile()
'獲取一個未使用的文件號
Dim
str
As
String
'用來記錄最終的值
Open
"你要讀取文件的完整路徑"
For
Input
As
#FileNo
While
Not
EOF(FileNo)
Dim
str_Read
As
String
Input
#FileNo,
str_Read
'讀取一個字元到變數str_Read---不包含換行回車符,也不包括逗號，分號及Tab，當讀到分隔符號(前面列舉的4種)時就賦值給後面的變數，如果有多個變數就讀取相對應多的分隔數據
'如果為你的007.txt文件且為你列舉的內容那麼上面一句就改成下面的語句
'
Input
#FileNo,
a,
b,
c,
d,
e,
f
'
str
=
str
&
str_Read
Wend
'Me.Text1.Text
=
str
Close
#FileNo
End
Sub

❷ vb如何讀取多行txt文本

1、對於文件的操作vb提供了open語句、print #語句、input #語句等語句來處理文件。

2、讀取多行文本，可以使用Line input #語句，一行行讀取，再連接在一起，這種方法對大一點txt文件效率不高。

3、下面提供一個高效率、一次性讀入所有文本的vb6示例：

PrivateSubCommand1_Click()
Dimr
Open"d:
eadme.txt"ForBinaryAs#1
r=StrConv(InputB(LOF(1),1),vbUnicode)
Close#1

Debug.Printr

EndSub

❸ VB6中如何逐行讀取文本文件txt中的文本，每次按一次窗體取出下一條信息

Dim MyStr() As String

Private Sub Command1_Click()
Dim t1 As Long, t2 As Long, t3 As Long
Randomize
t1 = Int(UBound(MyStr) * Rnd + 1)
Text1.Text = MyStr(t1)
If UBound(MyStr) < 2 Then Exit Sub
Do
t2 = Int(UBound(MyStr) * Rnd + 1)
Loop While t2 = t1
Text2.Text = MyStr(t2)
If UBound(MyStr) < 3 Then Exit Sub
Do
t3 = Int(UBound(MyStr) * Rnd + 1)
Loop While t3 = t2 Or t3 = t1
Text3.Text = MyStr(t3)
End Sub

Private Sub Form_Load()
Dim fn As Integer, Str As String
ReDim MyStr(0)
fn = FreeFile
Open "C:\TXT.txt" For Input As #fn 'TXT 是文件名
Do Until EOF(fn)
Line Input #fn, Str
If Str <> "" Then
ReDim Preserve MyStr(UBound(MyStr) + 1)
MyStr(UBound(MyStr)) = Str
End If
Loop
Close #fn
End Sub

❹ VB6.0中如何實現逐行讀入文本文件

VB6.0可以用一次讀取文本文件全部文本內容，然後使用Split函數來實現一行一行提取文本框行內容。

Split函數，返回一個下標從零開始的一維數組，它包含指定數目的子字元串。

PrivateSubCommand1_Click()
DimstrWjAsString
Dimstrj()AsString
DimaryContent()AsByte
DimiAsLong
DimjAsLong
CommonDialog1.CancelError=True'設置「CancelError」為True
OnErrorGoToErrHandler
CommonDialog1.Flags=cdlOFNHideReadOnly'設置標志
'設置過濾器
CommonDialog1.Filter="AllFiles(*.*)|*.*|TextFiles"&"(*.txt)|*.txt|BatchFiles(*.bat)|*.bat"
CommonDialog1.FilterIndex=2'指定預設的過濾器
CommonDialog1.ShowOpen'顯示「打開」對話框
'顯示選定文件的名字
'MsgBoxCommonDialog1.FileName
OpenCommonDialog1.FileNameForBinaryAs#1
ReDimaryContent(LOF(1)-1)
Get#1,,aryContent
Close#1
strWj=StrConv(aryContent,vbUnicode)
RichTextBox1=strWj
Text1=strWj
strj=Split(strWj,vbCrLf)
i=UBound(strj)
Text2=i+1
j=InputBox("輸入需要顯第幾句",j)
j=j-1
Label1.Caption=j+1&"："&strj(j)
ExitSub
ErrHandler:
'用戶按了「取消」按鈕
ExitSub
EndSub

❺ 請問VB中如何讀取txt文件的數據

1、新建一個標準的VB EXE工程，只有一個Form，Form上有兩個按鈕：Command1和Command2。

❻ vb 怎樣讀取TXT文件中的數據

代碼如下:Private
Sub
Command1_Click()Open
"F:\數據.txt"
For
Input
As
#1Input
#1,
a,
b,
c,
dPrint
"a="&a,"b="&
b,"c="&c,"d="&dClose
#1End
Sub-幾種打開文件方法-------------------------1.open
<文件名>
for
input
as#<文件號>如果文件不存在則會出錯,文件號將在以後操作中取代文件名,范圍是[1,511]。2.open
<文件名>
for
output
as#<文件號>建立一個新文件並打開它,如果文件存在就刪了再建立。3.open
<文件名>
for
append
as#<文件號>為了在文件尾部追加內容而打開,寫入數據時是從尾部進行。-讀取-------------------------------------1.input
#<文件號>,<變數表>讀出一行數據並依次分配給各變數2.line
input
#<文件號>,<變數名>讀出一行數據直到回車換行之前的全給此變數------------------------------------------

❼ VB2010 如何在循環指定文件夾後將裡面的所有文件挨個逐行讀取

Dim Files() As String
.........

Files = IO.Directory.GetFiles("E:\VB2010\", "*.txt")

你前面定義files()時是字串數組，而這里又賦值為文件對象給它，當然不正確