ログインしてさらにmixiを楽しもう

コメントを投稿して情報交換!
更新通知を受け取って、最新情報をゲット!

Visual Basic User's Clubコミュの【質問】Rubyの<<【VBScript】

  • mixiチェック
  • このエントリーをはてなブックマークに追加
VBScript初心者です。
配列の末尾に要素を一個追加したいとき、Rubyだと

ary = [0, 1, 2]
ary << 3
p ary #=> [0, 1, 2, 3]

こんな感じで追加できるんですが、VBScriptで<<と同様なことをするにはどうすればよいのでしょうか。
一応、ムリヤリ

ary = Array(0, 1, 2)
ary = Split(Join(ary, ",") & "," & 3, ",")
b = 0
For Each c In ary
ary(b) = CInt(c)
b = b + 1
Next
MsgBox Join(ary, ",") #=> 0,1,2,3

で動くには動いたのですが、より賢いコードをどなたかご教示くだされば幸いです。

コメント(2)

>ハンディ・ライヨン様
なるほど!ありがとうございます。
ReDimとUBoundとPreserveがポイントっすね。
7行目のaryの添字部分を
UBound(ary) + 1
にすれば一般的な追加プロシージャが書けそうです。
そのDimの書き方、むちゃくちゃかっちょいい…

ログインすると、みんなのコメントがもっと見れるよ

mixiユーザー
ログインしてコメントしよう!

Visual Basic User's Club 更新情報

Visual Basic User's Clubのメンバーはこんなコミュニティにも参加しています

星印の数は、共通して参加しているメンバーが多いほど増えます。

人気コミュニティランキング