※ 引述《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 求求你,RR CC AA BB 这种超烂的变数命名法先改一下,看的很痛苦 : 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) 你TEST.CSV的断行字元,可能不是VBCRLF debug.print asc(right(ffn,1)) 看一下吧 : one_line = Split(lines(0), ",") <<<<<阵列索引超出范围 if instr(lines(0), ",") > 0 then one_line = Split(lines(0), ",") end if 这样就不会阵列索引超出范围 : 不知道哪边出了问题 希望有高手可以帮我看看 : 另外 如果我要确认是否有档案存到阵列里 : 是要 开一个txt再将阵列存入吗? : Open "d:\999.txt" For Append As #2 : Write #2, f : Close #2 看不懂问题,有人要翻译一下吗? -- ████ █ ★ ████ █ █ █ █ █ █ █ █ █ 超 级 热 烈 欢 迎 █ ████ █ █ █ ████ █ █ █ █ █ ███★ █ █ 欢迎到嘉义版! ★███ █ █ █ █ █ █ █ 讯驰电脑-路径 → 嘉义市林森西路496号 →(05)2244-526 → 顺发斜对面 --

※ 发信站: 批踢踢实业坊(ptt.cc) ◆ From: 114.47.36.184