VB将TXT文件中的内容读取出来

来源：百度知道 编辑：UC知道 时间：2024/04/28 19:02:21
当前目录有一文本：123.txt

将文本中每行的内容读取出来
第一行的内容发送到Data1（就是 data1=第一行的内容）
第二行的内容发送到Data2
依次类推.....

Private Sub Command1_Click()
Dim str(1 To 10) As String 定义字符数组,10为文件中的行数
Open App.Path & "\123.txt" For Input As #1
Do While Not EOF(1)‘判断文件结束否
For i = 1 To 10
Line Input #1, str(i)‘行读入
Print str(i)
Next i
Loop
Close #1
End Sub

然后你可以自定义Data1，Data2为变量，
然后
Data1=str(1)
Data2=str(2)
定义类型则看你文本内容了

Option Base 1
Private Sub Form_Click()
Dim Data() As Variant
Dim Num As Integer
Open "D:\123.txt" For Binary As #1
Do While Not Eof(1)
Num=Num+1
Redim Preseve Data(Num)
Line Input #1,Data(Num)
Loop
Close #1
End Sub
已经存在data数组里了

分割到Data1、Data2、Data3......Datan这种只能一行行的写代码。
其实，分割到Data(n) As String 数组里面会更好些。
如下：
Private Sub Command1_Click()

Dim FilesNum As Long
Dim Txt As String
Dim Data() As String
FilesNum = FreeFile

Open App.Path & "