[VB6 ] 關於用array讀字串...
看板Visual_Basic作者KentII (go let it out...)時間19年前 (2005/09/13 12:11)推噓1(1推 0噓 0→)留言1則, 1人參與討論串1/2 (看更多)
本人想要從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
推
61.222.155.162 09/13, , 1F
61.222.155.162 09/13, 1F
討論串 (同標題文章)
以下文章回應了本文：
完整討論串 (本文為第 1 之 2 篇)：
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
