Question

vb对txt数据读取并赋予变量

比如说，当前目录有个cbs.txt的文件，文件内容为
1213656
2554645
4686456
4686774
8978766
7895466
7896789
fdydy54
saf454a
asdf321
格式，需要读取每行数据并赋予不同的变量，应该如何写呢？

另外，能不能在txt内写入VB的代码，然后读取运行呢，比如在txt内写text1.text=a，然后读取到timer1里运行呢
当然a是变量.....
1楼的好像是所有的读到了一个变量了吧，我想要的是每一行都到一个不同的变量
比如第一行的内容赋给a，第二行的赋给b这样
因为要把这些数据用到其他地方，所以要分开，比如第一行是一个名字
想要给赋值后显示到text1.text
又或者是第二行是False，赋值后用来定义某个控件的状态，所以需要每行都有不同的赋值.........

Answer 1

第一个问题：
Private Sub Command1_Click()
Dim str(1 To 10) As String'定义字符数组,因为事先知道你文件中的行数
Open "E:\cbs.txt" For Input As #1'我把你那个文件放在E盘下了
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
第二个你说的问题真的是很厉害，除非你自己做一个程序编译器，把text内的代码编译，反正我是做不出来。
楼主所言差矣，数组的成员怎么是同一变量呢，他们都是独立的啊。而且可以任意用到不同的区域，你只要单独使用就OK了。

Answer 2

楼上正解。重复代码就不用写了。

Answer 3

一楼的就可以了。

Answer 4

Dim str(1 To 10) As String'定义字符数组,因为事先知道你文件中的行数
这句最好在通用里声明，则全局可用；若不知行数则可str（n）n取大些，然后在do...loop里i=i+1判断。