Re: [QB] 想請問關於動態陣列~~及Split這各函式...

看板Visual_Basic作者yauhh (姚呵呵)時間17年前 (2008/07/17 01:33)推噓1(1推 0噓 8→)

留言9則, 3人參與討論串2/2 (看更多)

※ 引述《m9556 (紫色天平Boy)》之銘言： : 最近因為逼不得已，由VB6 及 VBA 回到古董的Quick Basic， : 少了很多函式可以用，尤其是Split這一個， : 想要寫一個Split function來用，但是有些地方真的不太懂， : 1. 當宣告Function時，function裡有陣列，我要怎要回傳到主程式， : 主程式裡，應該要怎樣承接這個陣列?不要使用全域變數的陣列... : 因為VB6裡，可以用一個空陣列去收Split回傳的字串陣列， : 但是現在要寫一個 function 卻不知道該怎樣下手。 : 2. 動態陣列=> 有可能一開始不定義大小，而在程式中直接給值， : 而自動新增嗎??? : 麻煩各位高手幫一下囉~~~~~ : 可以給我VB6的做法，我自己在想辦法~~~ : 謝謝啦~~~~ 如果你用的是 Quick Basic 4.5, 這些功能應該可以做. 動態陣列與函數傳值在 Help > Index 都有談到. 動態陣列,宣告時用變數當索引值即是; 如果用常數就是靜態陣列. 而函數傳回陣列的想法, C/C++ 都還沒能這樣做, QB應該也不行吧. 不過,函數的參數列都是傳參考,只要把把陣列丟進 function 或 sub, 陣列內容就會被function或sub改掉. DECLARE FUNCTION F (b()) n = 3 DIM a(n), c(n) 'two dynamic arrays CLS FOR i = 0 TO 3 a(i) = i PRINT a(i) NEXT i PRINT REDIM a(5) FOR i = 0 TO 5 a(i) = 0 PRINT a(i), NEXT i PRINT c = f(a()) 'function call FOR i = 0 TO 4 'print array which has been an argument in PRINT a(i), 'function call NEXT i PRINT FOR i = 0 TO 3 'try to print returned array PRINT c(i) NEXT i PRINT FUNCTION f (b()) REDIM b(4) FOR i = 0 TO 4 b(i) = 10 + i NEXT i f = b 'try to return an arry; but b may be not END FUNCTION 你的問題: 第一想要傳陣列進函數再取出,要先定義函數 FUNCTION f(x()), 其中參數要是陣列樣式;呼叫時要給陣列參數 f(a()) 不過在此,我寫成如下的程式碼,執行都有問題; 都不知道為什麼: f(a()) 'message: expression expected CALL f(a()) 'message: duplicate definition 請參考 Help > Index >> <Function Statement> >> <Detail> 第二,使用動態陣列,只要用變數宣告陣列,再使用REDIM即可: DIM a(n): REDIM a(5) 請參考 Help > Index >> <DIM Statement> >> <Details> 的 "Static and Dynamic Arrays" 一段. -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 218.160.212.86

推

m9556

07/17 05:26, , 1^F

07/17 05:26, 1^F

→

m9556

07/17 05:28, , 2^F

07/17 05:28, 2^F

→

yauhh

07/17 05:47, , 3^F

07/17 05:47, 3^F