UC知道VB怎么读取文件中的全部信息
来源：百度知道 编辑：UC知道 时间：2024/06/23 19:31:46
VB怎么使用
Dim a As Variant
Dim TextLine
Open "123.txt" For Input As #1 ' 打开文件。
Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。
Close #1 ' 关闭文件。
a = Split(TextLine, ",")
text1.Text = a(0)
text2.Text = a(1)
text3.Text = a(2)
代码显示文件里123.txt里的“，”之前的文字，文字很多程序老显示“下标越界”
Dim a As Variant
Dim TextLine
Open "123.txt" For Input As #1 ' 打开文件。
Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。
Close #1 ' 关闭文件。
a = Split(TextLine, ",")
text1.Text = a(0)
text2.Text = a(1)
text3.Text = a(2)
代码显示文件里123.txt里的“，”之前的文字，文字很多程序老显示“下标越界”
你的程序只读了123.txt中的第一行文字，可以肯定，这一行文字中少于2个逗号，也就是说a(2)是不存在的，所以下标越界。
如果你需要读取123.txt中的全部文字，且123.txt中有多行文字，你的程序是有问题的。
以下的代码演示了如何将一个文本文件一次性读到一个字符串变量中，方法是采用了一个和文本文件等长的字符串变量来接收文本
Dim s As String
Open "d:\123.txt" For Binary As #1
s = Space(LOF(1))
Get #1, , s
Close #1
Text1.Text = s
把Text1控件改为数组吧：
Private Sub Command1_Click()
Dim a() As String
Dim TextLine As String
Dim i As Integer
Open "d:\123.txt" For Input As #1 ' 打开文件。
Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。
Close #1 ' 关闭文件。
a = Split(TextLine, ",")
For i = 0 To UBound(a)
Text1(i).Text = a(i)
Next
End Sub
以上测试过没问题的！
你肯定文件的一行里有大于2个的","号吗？