VBScriptの配列について

Question

vb
初心者です。VBScriptでの配列について質問です。
配列をたとえばa(256)のサイズで用意し、
a(0)=1、a(1)=2、a(2)=4まで入れたとします。
この配列の中でどこまで数が入っているのかを表示する方法を教えていただきたいです。
UBoundを使うのかと思っていましたがそれだと256の部分しか出てこず、行き詰まってしまいました。ご教授頂けますでしょうか。

Comments

[maisumakun]

何のために必要なのでしょうか？

[Zuishin]

この質問は前の質問と同じです。既にベストアンサーが選ばれています。

> データを格納した最大添え字を変数で管理してください。

[Zuishin]

あなたのしたいことは「スタックを作成すること」ですが、それを理解していますか？

[Y.H.]

a(0)=1、a(1)=2、a(2)=4、a(100)=101
と設定した場合は100 ?
それとも入れた個数の4 ?

[退会済みユーザー]

そうですね、同じような質問になってしまいました。
引数分が欲しいのであれば動的配列を宣言し、引数を変数としてReDimでサイズを決定、という流れになるのでしょうか。

[退会済みユーザー]

a(2)の2がわかるような書き方があれば、と思いました。

[Zuishin]

同じ「ような」ではありません。全く同じ質問です。

[退会済みユーザー]

すみません。

[Zuishin]

質問者が無責任に退会したので前の質問にリンクします。

https://teratail.com/questions/239880

この通り、既に解決しています。

Answer 1

スタックを作りたかったのでは？

この配列の中でどこまで数が入っているのか

という言葉の意味をぼんやりとではなく厳密に考えましょう。
スタックだと、何度も同じ位置の変数を書き換えますよ。

「この配列の中で、どこがスタック先頭なのか？」は、自分で管理するしか無いです。

Comments

[退会済みユーザー]

スタックを作りたくて、配列がどこまであるのかがわかればそれの上に乗せたりそれを取り出したりの作業がやりやすいかなと考えたのですが、自分で先頭を管理する方法が調べてもわからず…。
Redim Preserveで今までの要素を残しつつ増やす、減らすをしていくのでしょうか？
それと、参考書の中にあったdictionaryオブジェクトであれば要素数の取得、要素の追加削除がやりやすいかなと思ったのですがこれは応用は効かないのでしょうか。

[Zuishin]

スタックを使いたいなら Stack を使えばいいだけで、わざわざそれを避けて Dictionary を使うなど正気を疑います。

[ttyp03]

前の質問がどうであれ、この質問はあくまでも「配列内のデータ数（もしくは最後尾）を得る方法」についての質問のはずです。
スタック云々の話は関係ないのでは。＞otnさん
間違った質問であったなら削除依頼をするとかしてください（回答ついちゃったから出来ないのかな）＞質問者さん

Answer 2

何のためなのか分からないけど動的配列を使ってみるのは？

基本的に、サイズを決めちゃったらどこまで使っているのか？というのは分かりません。

Answer 3

varTypeで調べようと思えば調べられそうですが

Comments

[yambejp]

Dim a(256)
a(2) = 0
a(3) = 100
a(4) = "abc"
MsgBox VarType(a(1)) //0=空
MsgBox VarType(a(2)) //2=整数
MsgBox VarType(a(3)) //2=整数
MsgBox VarType(a(4)) //8=文字列
MsgBox VarType(a(5)) //0=空

[yambejp]

a(1)のように指定していないところも空になるので
「どこまで」というのが「4」までであっても
その中で抜けがある場合があります

Answer 4

配列の中身をチェックしてカウントするしかないと思います。
未初期化の変数は値が""もしくはIsEmpty関数で判定できます。
以下サンプルです。
ループ内のIf文行はどちらかを使用してください。

Dim a(256)
a(0) = 1
a(1) = 2
a(2) = 3

Dim cnt
Dim a2
cnt = 0
For Each a2 In a
	If a2 <> "" Then cnt = cnt + 1
	If Not IsEmpty(a2) Then cnt = cnt + 1
Next

wscript.echo cnt

Comments

[ttyp03]

あ、「どこまで」という意味合いだと少し違いますね。
まあ、応用すればできるでしょう。

Answer 5

UBound　を使用し、配列の要素数を求めればよいだけでは？

参考