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

[yauhh (姚呵呵)]

※ 引述《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:看來～～真的只能用全域變數來弄～
→ m9556:感謝Ｙ大～你花時間ｔｒｙ～玩ＱＢ～感覺跟ＶＢ不會差很多
→ yauhh:沒什麼,只是做一次懷舊之旅
→ MOONRAKER:其實還是進步不少 只是都躲在老扣扣的syntax底下而已…
→ yauhh:突然想到VB的 REDIM Preserv a(n) 這個語法,在 QB
→ yauhh:似乎沒有;QB45的說明檔只提到REDIM是配置另一段空間..
→ yauhh:所以若要preserve的功能,要自己做
→ m9556:呵呵呵~今天用全域的共用變數寫一寫~不過也只有完成10%
→ m9556:還有一堆浮點數要處理~~~~~真是~~~想到我還有8051要寫~