作者yauhh (姚呵呵)
看板Visual_Basic
標題Re: [QB] 想請問關於動態陣列~~及Split這各函式...
時間Thu Jul 17 01:33:13 2008
※ 引述《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
1F：推 m9556:看來～～真的只能用全域變數來弄～ 07/17 05:26
2F：→ m9556:感謝Ｙ大～你花時間ｔｒｙ～玩ＱＢ～感覺跟ＶＢ不會差很多 07/17 05:28
3F：→ yauhh:沒什麼,只是做一次懷舊之旅 07/17 05:47
4F：→ MOONRAKER:其實還是進步不少 只是都躲在老扣扣的syntax底下而已… 07/17 18:30
5F：→ yauhh:突然想到VB的 REDIM Preserv a(n) 這個語法,在 QB 07/17 19:06
6F：→ yauhh:似乎沒有;QB45的說明檔只提到REDIM是配置另一段空間.. 07/17 19:06
7F：→ yauhh:所以若要preserve的功能,要自己做 07/17 19:08
8F：→ m9556:呵呵呵~今天用全域的共用變數寫一寫~不過也只有完成10% 07/17 20:18
9F：→ m9556:還有一堆浮點數要處理~~~~~真是~~~想到我還有8051要寫~ 07/17 20:19