作者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