作者kcsc (kc)
看板Visual_Basic
標題[VB6 ] 陣列索引超出範圍
時間Tue Jun 4 11:15:51 2013
大家好
小弟因為某些原因需要把程式碼改成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
1F：推 ClubT:不是每種文件的換行符號都跟vb6一樣是vbCrLf 06/04 12:55
2F：→ MOONRAKER:你(800,3)那個陣列完全沒用到啊 06/04 18:06
3F：→ kcsc:800*3的陣列是在後面才會用到 我只有貼一段程式碼而已 06/04 18:48
4F：→ MOONRAKER:後面才會用到 那跟你現在的bug有什麼關係 06/04 22:33
5F：推 chinoyan:Dim lines As Variant , 06/05 04:06
6F：推 ClubT:工具列→檢視→監看視窗 然後點右鍵新增監看式 自己研究一下 06/05 09:19