(VB)现在要读入一个文本文件，以行为单位，把各行的字符另存为一变量（有n行就有n个变量），该怎么做？谢

来源：百度知道 编辑：UC知道 时间：2024/05/09 20:38:31
文本文件是用来存放一些文件的路径的，以行为单位，现在要把这些路径取出，然后调用，所以就有前面的要求，谢谢大家了。
例子最好尝试一下，再说说如果要调用的时候怎么调用，1楼的朋友的方法很容易看懂，但当我想数组尝试输出另外一个文本的时候出错了。
Open "e:\a.txt" For Output As #1
Print #1, ary(1)
Next
Close #1

Dim ary() As String
dim As Integer
i = 1
Open "" For Input As #1
Do While Not EOF(1)
ReDim Preserve ary(i)
Line Input #1, b
ary(i) = b
i = i + 1
Loop
For i = 1 To UBound(ary())
Print ary(i)
Next
将路径存入数组中，用的时候在读数组

Public Function openfile(ByVal filepath As String) As String '读入文件函数
Dim s As String
Open filepath For Input As #1
While Not EOF(1)
Line Input #1, sline
s = s & sline & vbCrLf
Wend
Close #1
openfile = s
End Function

Private Sub Command1_Click()
'读入后以换行符 vbcrlf为标识拆分数组
a = Split(openfile("C:/test.txt"), vbCrLf)
'For循环读出路径并显示
For i = 0 To UBound(a)
Print a(i)
Next
End Sub

Private Sub Form_Load()
'声明数组对象
Dim path
End Sub

================================

首先在窗体上放一个文本框，将它的ScrollBars属性设置为3。 Multiline属性设置为true。

Option Base 1
P