[VB6 ] 陣列索引超出範圍

[kcsc (kc)]

大家好

小弟因為某些原因需要把程式碼改成VB6的語言

而本身對VB6非常不熟悉

我在建立矩陣的過程中 出現"陣列索引著個錯誤訊息"

input 為csv格式 1 , 2 , 3 , 4 , 5
                2 , 3 , 4 , 5 , 6
                3 , . , . , . , .
                . , . , . , . , .
                . , . , . , . , .

而矩陣大小我已經設定為 (800,3)

以下是我的程式碼

Private Sub Form_Load()

Dim fn As String
Dim ffn As String
Dim fnum As Integer

Dim numr As Long
Dim R As Long
Dim C As Long
Dim CC As Long
Dim RR As Long
Dim lines As Variant
Dim one_line As Variant


Dim tarray(800, 0) As String
Dim aarray(800, 3) As String

fn = App.Path
fn = fn & "\"
fn = fn & "test.csv"

'Load the file'

fnum = FreeFile
Open fn For Binary As #fnum
ffn = Input$(LOF(fnum), #fnum)
Close fnu


lines = Split(ffn, vbCrLf)
one_line = Split(lines(0), ",")    <<<<<陣列索引超出範圍


不知道哪邊出了問題 希望有高手可以幫我看看

另外 如果我要確認是否有檔案存到陣列裡

是要  開一個txt再將陣列存入嗎?

Open "d:\999.txt" For Append As #2
Write #2, f
Close #2



--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 140.120.28.103
推 ClubT:不是每種文件的換行符號都跟vb6一樣是vbCrLf
→ MOONRAKER:你(800,3)那個陣列完全沒用到啊
→ kcsc:800*3的陣列是在後面才會用到 我只有貼一段程式碼而已
→ MOONRAKER:後面才會用到 那跟你現在的bug有什麼關係
推 chinoyan:Dim lines As Variant ,
推 ClubT:工具列→檢視→監看視窗 然後點右鍵新增監看式 自己研究一下