Question

VB如何读取txt数据?

假如有一个名为 007.txt 的文本。内容是: 第一行是 111 空格 222 空格 333 第二行是 444 空格 555 空格 666 请问我该如何实现，a=111,b=222,c=333,d=444,e=555,f=666 ? 跪求指点，本人不胜感激

Answer 1

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