作者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