作者KentII (go let it out...)
看板Visual_Basic
标题[VB6 ] 关於用array读字串...
时间Tue Sep 13 12:27:51 2005
本人想要从text.txt档中读出资料并列印出来，
假设text.txt的内容为：
小明 今天 上学 迟到 (每个词用空格隔开)
我想要用array来存这四个词，然後print出来变成直的
小明
今天
上学
迟到
我想到的方法为：
Dim arr1(1, 4)
Dim i, j As Integer
Open App.Path & "\test.txt" For Input As #1
Do Until EOF(1)
For i = 1 To 1
For j = 1 To 4
Input #1, arr1(i, j)
Print arr1(i, j)
Next j
Next i
Loop
Close #1
但是会出错，因为当arr1(1,1)时就全部读完了，也就是会印出
小明 今天 上学 迟到
然後当arr1(1,2)时就出现error了，我想应该是我的定义出错了吗？
因为假如把text.txt的内容改为都是数字：23 4 786 9，就OK了。
请问那里错了呢？谢谢...
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 218.34.68.202
1F：推 fumizuki:文字要读出来後用 split 转换成阵列 61.222.155.162 09/13