[VB6 ] 陣列索引超出範圍
大家好
小弟因為某些原因需要把程式碼改成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
推
06/04 12:55, , 1F
06/04 12:55, 1F
→
06/04 18:06, , 2F
06/04 18:06, 2F
→
06/04 18:48, , 3F
06/04 18:48, 3F
→
06/04 22:33, , 4F
06/04 22:33, 4F
推
06/05 04:06, , 5F
06/05 04:06, 5F
推
06/05 09:19, , 6F
06/05 09:19, 6F
討論串 (同標題文章)
以下文章回應了本文:
完整討論串 (本文為第 1 之 2 篇):