ACCESS97のモジュールにＳＰＬＩＴは無いの？

パールでカンマ区切りのテキスト（行）を下記のコーディングで分解していました
パールコーディング　　@pflg=split(/,/,$xx)
入力($xx) 11,22,33,44
出力 @pflg(0) →　11
　　 @pflg(1) →　22
　　 @pflg(2) →　33
　　 @pflg(3) →　44
アクセスのモジュールで同様のコーディングは出来ないのでしょうか？

No.3 ベストアンサー 回答者： Marionette 回答日時： 2003/01/23 11:56

Dim MyArray(4) As Variant

Count = 0
StartPos = 1
SearchString = "11,22,33,44"
While SearchPos <> 0
　　SearchPos = Instr(StartPos,SearchString,",")
　　Pflg(Count) = Mid(SearchString,StartPos,SearchPos-1)
　　StartPos = SerchPos + 1
　　Count = Count + 1
Wend

無い物はしょうがないので、とりあえずこんなので代用してはどうでしょう。
もっといい方法があるかも分かりません。
サブプロシージャにすれば使い回せて便利かな。

No.5 回答者： bin-chan 回答日時： 2003/01/23 23:47

＃２です。

以前、「質問：文字列にある特定文字の数」でお答えしたことがあるので
その時のＵＲＬを参照下さい。

http://oshiete1.goo.ne.jp/kotaeru.php3?q=285621

参考URL：http://oshiete1.goo.ne.jp/kotaeru.php3?q=285621

No.4 回答者： Marionette 回答日時： 2003/01/23 12:08

そそっかしくてすみません。

Ｎｏ．＃３の回答ですが、後ろの "44"が取得できていないので
Wend の後に、

Pflg(Count) = Right(SearchString,Len(SearchString)-SearchPos)

を追加してください。Countはいくつになってるか自信ないので、ご自分で調べてください。

No.2 回答者： bin-chan 回答日時： 2003/01/22 22:14

Office97のVBAはVisualBasic5相当、Office2000系はVB6相当と思います。

そのため、97のVBAにはSplitが無い。

私はそれで2000にしました。

この回答への補足

２０００にしたら使えるみたいです。
でもう一つ教えて貰いたいのですが，

aa = Split(bb, ",")
の"aa"の定義はどのようにすればいいのでしょうか？
初心者で申し訳有りません。

補足日時：2003/01/23 11:11

No.1 回答者： a-kuma 回答日時： 2003/01/22 19:22

VB だと Split という関数があるので、Access の VBA でも使えるんじゃないかな？

xx = "11,22,33,44"
ar = Split(xx, ",")
ar(0) → "11"
ar(2) → "22"
　…

この回答への補足

上記のコマンドを行うと，関数がないみたいで・・・
設定漏れですかね？

補足日時：2003/01/22 19:55