Question

vb读取txt并存入数组中

txt每行一个是字符串
数据数量未知 怎么办呢？

Answer 1

fn = "c:\a.txt"
i=0
Dim a(100)
Open fn For Input As #1 '输入
While Not EOF(1) '直到文本最后
i = i + 1
Line Input #1, a(i) '行输入到A数组
Wend
Close #1

while 本来就没有求具体数据数量

追问

a(100)呢?

追答

a(100)没办法。除非你直到文件中的行数，然后再来定义A(?)

Answer 2

Open 文件名 For Input As #1
Do While Not EOF(1)
Line Input #1, 变量列表
Loop
Close #1

Answer 3

Private Sub Command1_Click()
Dim arr, i As Long
Open "c:\123.txt" For Input As #1
arr = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbNewLine)
Close #1
For i = 0 To UBound(arr)
Print arr(i)
Next
End Sub

Answer 4

学习学习