怎么读取文本文件？急急急

Question

怎么从c:\123.txt读取一行数据，每个数据之间用 
“,“隔开 ，读取后第一行数据为阿a(0,0),a(0,1)......第二行为a(1,0),a(1,1)....

Answer 1

一下代码可以读出 这个文本文档有多行，每行多少列！和内容，要把内容放数组，只要再做循环就可以了,这个问题不难解决呀
Dim i%, k As Integer, t(), a() Private Sub Command1_Click() Text1.Text = "" 
Dim inputdata 
Open "c:3.txt" For Input As #1 
Do While Not EOF(1) 
Line Input #1, inputdata 
i = i + 1 
ReDim t(i) 
t(i) = Len(inputdata) '算出每行多少字符，就是多少列 
ReDim a(i, t(i)) 
a(i, t(i)) = inputdata '为了能把每个对应这里把每行的数据记录 
Picture1.Print i; t(i); "("; a(i, t(i)); ")" 
Text1.Text = Text1.Text + inputdata + vbCrLf 
Loop 
Close #1 
End Sub