vb程序 求一vb方法

来源：百度知道 编辑：UC知道 时间：2024/05/29 14:43:47
我想写个方法 可以从txt文件中读取每行 存入到动态数组中
然后返回数组的值
结果类似 a（1）=“txt文件的第一行”
a（2）=“txt文件的第二行”
最好写成方法的
谢啦 很急用 望懂的朋友帮帮忙

从网站上找的：

Private Sub a(str() As String)
Dim i As Integer
Dim j As String
Open App.Path & "\123.txt" For Input As #1
Do Until EOF(1)
Line Input #1, j
i = i + 1
Loop
Close #1
ReDim str(i - 1) As String
i = 0
Open App.Path & "\123.txt" For Input As #1
Do Until EOF(1)
Line Input #1, str(i)
i = i + 1
Loop
Close #1
End Sub

dim str1() As String
Private Sub Command1_Click()
Dim NN As Integer, strTmp As String
ReDim str1(NN)
Open "z:\1.txt" For Input As #1
While Not EOF(1)
Line Input #1, strTmp
if ubound(str1) =nn then
NN = NN + 1
ReDim Preserve str1(NN)
endif
str1(NN) = strTmp
Print strTmp
Wend
End Sub

Private Sub Command1_Click()
Dim str1() As String, x As Integer, temp As String
Open "z:\1.txt" For Input As #1
Do Whil