Question

vb 读取txt内容，并赋值给数组？

text内容如下：
001.，张三
002，李四
将001列赋值给 a() 名字列赋值给 b（）

Answer 1

假如文本存在e:\1.txt
内容为：
001，张三
002，李四
003，王武
004，网吧但
Private Sub Command1_Click()
Dim a(1 To 100)
Dim b(1 To 100)
Dim str As String, i As Integer
i = 1
Open "e:\1.txt" For Input As #1
Do While Not EOF(1)
Input #1, str
a(i) = Left(str, 3)
b(i) = Right(str, Len(str) - 4)
'MsgBox a(i) & b(i)
i = i + 1
Loop
Close #1
End Sub

Answer 2

input #1,a(i),b(i)

追问

这样写 格式不对，缺少语句结束

追答

不应该呀。是不是你在其它地方有错？要不贴图上来。