作者runtime (?)
看板Visual_Basic
标题Re: [VB6 ] 关於用array读字串...
时间Tue Sep 13 17:32:52 2005
先读到某字串变数..假设是 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