一个一列多行的TEXT
1
2
3
4
如何把每行的数字给数组，比如a(1)=1,a(2)=2...？
求高人指点

Private Sub Command1_Click()
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 ' 关闭文件。
End Sub


回复：2楼
ReDim Preserve ri(i)
这行是什么意思啊？？

Dim TextCont As String
Dim Lines() As String
Open "1.txt" For Input As #1
TextCont = InputB(LOF(1), 1)
Close
TextCont = StrConv(TextCont, vbUnicode)
Lines = Split(TextCont, vbCrLf)

dim t()$
t=split(text1,vbcrlf)

回复3楼：重新定义数组，改变元素数目为变量值