Question

如何用vb将文本内容存入数组

比如创建了一个text1
然后用text1的change事件，把text1中每行的中的第5个字符存入a()

我上网找到了下列代码
Dim i As Single
Do While Not EOF(1) '开始循环
Line Input #1, var1
a(i) = var1 '赋值给数组
Debug.Print a(i) '显示数组之中的数据
i = i + 1
Loop

但是运行的时候会提示错误的文件名或号码，怎么办？

谢谢

Answer 1

你给的代码是打开一个文本文件将每行文件存入变量

wline=split(text1.text,vbCrLf))
redim a(lbound(wline) to ubound(wline))
for i = lbound(wline) to ubound(wline)
a(i)=wline(i)
next i

Answer 2

你这本身就犯了个概念性的错误，文本框和文本文件是二码事，代码是读文本文件的，不错误那才怪啊，基础知识先学习学习吧。

Answer 3

你这是什么啊，代码本身就不全，当然错了