Re: [VB6 ] 關於用array讀字串...
先讀到某字串變數..假設是 tmp
然後
tmpary = split(tmp," ")
這個tmpary存的就是以空白分開的字串
內容會是這樣
tmpary(0) -> "小明"
tmpary(1) -> "今天"
tmpary(2) -> "上學"
tmpary(3) -> "遲到"
然後再
For i=0 to UBound(tmpary)
Print tmpary(i)
Next i
就可以了
※ 引述《KentII (go let it out...)》之銘言：
: 本人想要從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: 210.71.10.3
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 2 之 2 篇)：