百度知道已经有了：
一、《VB2008 从txt读取数据 到数组》：
http://zhidao.baidu.com/question/116128781.html
二、VB如何读取TXT文件内两列数据到数组
我在E:\test.txt文件内存放着两列数据，例如：
321 是你
265 得力喔喔
还行 594好ihi
461 木木米
…… ……
【补充说明下，数据每行都是成双的，以空格做为一个数据的分界，空格数量不固定，每个数据的长度也不固定。这文件内容大于5000行，不过每行都是两个数据】
现在我想把第一列数据放到数组a（i），第二列数据放到数组b（i）。
你先弄清楚怎么读一行数据（思路分析）。
''''''''''''''''''''''
Dim s,Arr,i :i=0: ' s是字符串，arr是字符串数组,i 赋初值
While 文件未读完
s=读入一行
While Instr(s," ")>0 : s=Replace(s," "," "): Wend : '''循环——直到s中只有一个空格
Arr=Split(s," ") ' 临时存储在“Arr”这个数组中(关键：用split把字符串打成数组)
a(i)=Arr(0)
b(i)=Arr(1)
i=i+1
Wend
'''''''''''''''''下面是实际程序''''''''''''
Private Sub Command12_Click()
Dim a(),b() As String
Dim s0 As String : s0=""
Dim i As Integer : i = 1
txtTest.Text = ""
Open "c:/TEST.TXT" For Input As #1 : ''打开文件
On Error GoTo h
Do While Not EOF(1)
ReDim Preserve a(i) ''动态重定义数组a(i)，不知道总长度时，放循环内！
ReDim Preserve b(i) ''动态重定义数组a(i)！
Input #1, a(i), b(i) : ''如读入变量： Line Input #1, s0 :
i = i + 1
Loop
h:
Close #1 ''关闭文件
For i = 1 To UBound(a)
txtTest.Text = txtTest.Text & a(i) & "," & b(i) & vbCrLf :''把两个数组连接起来
Next
End Sub
''''''结束'''''''''
三、从txt文件读取二维数据 然后赋值到一个数组中
Private Sub Command1_Click()
Dim s, arrS(1000,9) As String ''这样也可以Dim a (5 to 10,5 to 10)
Dim N As Integer
Open "D:\1.txt " For Input As #1 ''打开文件，指定1号工作区
Do While Not EOF(1)
Line Input #1, s ''读入一行
arrS(N) = Split(Trim(s), ",") ''拆入数组
N = N + 1
Loop
Close #1
End Sub
'注：文本内容格式:
'aaa,bbb,717
'ccc,ddd,885t
''''''结束'''''''''
上面总有一款适合你吧追问
一、《VB2008 从txt读取数据 到数组》：
http://zhidao.baidu.com/question/116128781.html
二、VB如何读取TXT文件内两列数据到数组
我在E:\test.txt文件内存放着两列数据，例如：
321 是你
265 得力喔喔
还行 594好ihi
461 木木米
…… ……
【补充说明下，数据每行都是成双的，以空格做为一个数据的分界，空格数量不固定，每个数据的长度也不固定。这文件内容大于5000行，不过每行都是两个数据】
现在我想把第一列数据放到数组a（i），第二列数据放到数组b（i）。
你先弄清楚怎么读一行数据（思路分析）。
''''''''''''''''''''''
Dim s,Arr,i :i=0: ' s是字符串，arr是字符串数组,i 赋初值
While 文件未读完
s=读入一行
While Instr(s," ")>0 : s=Replace(s," "," "): Wend : '''循环——直到s中只有一个空格
Arr=Split(s," ") ' 临时存储在“Arr”这个数组中(关键：用split把字符串打成数组)
a(i)=Arr(0)
b(i)=Arr(1)
i=i+1
Wend
'''''''''''''''''下面是实际程序''''''''''''
Private Sub Command12_Click()
Dim a(),b() As String
Dim s0 As String : s0=""
Dim i As Integer : i = 1
txtTest.Text = ""
Open "c:/TEST.TXT" For Input As #1 : ''打开文件
On Error GoTo h
Do While Not EOF(1)
ReDim Preserve a(i) ''动态重定义数组a(i)，不知道总长度时，放循环内！
ReDim Preserve b(i) ''动态重定义数组a(i)！
Input #1, a(i), b(i) : ''如读入变量： Line Input #1, s0 :
i = i + 1
Loop
h:
Close #1 ''关闭文件
For i = 1 To UBound(a)
txtTest.Text = txtTest.Text & a(i) & "," & b(i) & vbCrLf :''把两个数组连接起来
Next
End Sub
''''''结束'''''''''
三、从txt文件读取二维数据 然后赋值到一个数组中
Private Sub Command1_Click()
Dim s, arrS(1000,9) As String ''这样也可以Dim a (5 to 10,5 to 10)
Dim N As Integer
Open "D:\1.txt " For Input As #1 ''打开文件，指定1号工作区
Do While Not EOF(1)
Line Input #1, s ''读入一行
arrS(N) = Split(Trim(s), ",") ''拆入数组
N = N + 1
Loop
Close #1
End Sub
'注：文本内容格式:
'aaa,bbb,717
'ccc,ddd,885t
''''''结束'''''''''
上面总有一款适合你吧追问
还是不太明白诶
Open "c:/TEST.TXT" For Input As #1 :这里那个For Input As #1是什么意思？Input是一个函数吗？
On Error GoTo h
Do While Not EOF(1) 这两句是什么意思？
Input #1, a(i), b(i) : ''如读入变量： Line Input #1, s0 :
希望高手帮帮忙，拜托啦
'#1 是打开的文件号,文件的别名（有的叫工作区），有时候要打开很多个文件。
'“For Input As #1”意思是以只读方式打开，并取别名#1(#可省)，input是read读取的意思。
'其它还有Output、append等 ，如:：
Open "student.txt" For Output As #filenum
Write #filenum, "张三", "初一年级", 14
Write #filenum, "李四", "职业高中", 18
''或者
Open "student.txt" For append As #filenum
Write #filenum, "张三", "初一年级", 14
Write #filenum, "李四", "职业高中", 18
'''''''
'EOF为文尾测试函数,如3号文件EOF(3)或EOF(#3)
' Line Input #3, s0 ''将读入的一行存到变量s0中
''''
''详见：http://hi.baidu.com/chaojibaobao/blog/item/63423b2dda63053b349bf717.html
''
温馨提示：内容为网友见解，仅供参考
第1个回答 2011-05-04
如果文本文件中的数据用逗号间隔，可采用如下程序：
Dim R As String, sz(20) As string
Open "c:\ls.txt" For Input As #1
x = 0
Do While Not EOF(1)
Line Input #1, R
mStr = Split(R, "，")
For Each s In mStr
x = x + 1
sz(x) = s
Next s
Loop
Dim R As String, sz(20) As string
Open "c:\ls.txt" For Input As #1
x = 0
Do While Not EOF(1)
Line Input #1, R
mStr = Split(R, "，")
For Each s In mStr
x = x + 1
sz(x) = s
Next s
Loop
相似回答
大家正在搜
