※ 引述《takuto7253 (........N Nﰩ》之銘言：
: for i = 1 to 99
: Line Input #1, temp1
: Input #1, temp1, vol(i), temp2, open(i), high(i), low(i), close(i), temp3
: next i
: close #1
: 如果要寫在.net上
: 大概要改成怎樣阿？？
Dim i As Int32
Dim temp1 As String, vol(99) As String, temp2 As String
Dim SW As IO.StreamReader = IO.File.OpenText("D:\xxx.txt")
For i = 1 To 99
SW.ReadLine()
temp1 = SW.Read()
vol(i) = SW.Read()
temp2 = SW.Read()
Next
類似這樣
--
▃▅▇▆▄ ▆▂▃ `
逝去感情如何能留住，半點癡情遺留殊不易，██▅▇▄▃ ▇▃▂" .
█████████▃i ▁▄▇
更多悽悽慘慘的遭遇…………██▆▃ █▅▆▃ˍ▄*
◢ ▂█▄▇▅▂▌.
我不知道，王～八～蛋～～！ ▂▆███ █▄▃ 。fumizuki。Check。
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 123.194.224.174