Question

利用vb读取文本中每一行的内容

我在C盘根目录有一个文本文件SAM.txt，行数未知，内容如：
12334
343
sdgf
4353
345
45566
现在要求定义一个数组，用于保存每一行的内容，如定义num（），则num（0）= 12234，num（1） =343，num（2） =sdgf。。。。。。。。
谢谢高手指教！！

Answer 1

dim num()
dim i as long
i=0
ReDim ri(0)
Open "C:\SAM.txt" For Input As #1 ' 打开文件。
Do While Not EOF(1) '循环至文件尾。
Line Input #1, TextLine '读入一行数据并将其赋予某变量。
num(i)=TextLine
i=i+1
ReDim Preserve ri(i)
Loop
Close #1 ' 关闭文件。

注意的是数组长度一般无限制，但是超过内存大小就会提示内存溢出，这个要注意

Answer 2

Open "C:\SAM.txt" For Input As #1
Do While Not EOF(1)
Line Input #1,strL
if strA="" then strA=strL else strA=strA & vbcrlf & strL
Loop
Close #1
num=split(strA,vbcrlf)