合計金額を出すには動的配列？

初投稿です。ASPで見積スクリプトを作っています。
ソースは・・・

Set ObjFSO = Server.CreateObject("Scripting.FileSystemObject")
Set ObjTS = ObjFSO.OpenTextFile(data_file)

Do Until ObjTS.AtEndofStream
Arr = ObjTS.Readline
Arr1 = split(Arr,"::")
tanka = FormatCurrency(Arr1(1))
goukei = Arr1(1) * Arr1(2)

Loop

ObjTS.Close
Set ObjTS = Nothing
Set ObjFSO = Nothing
================================
この、変数：goukeiを全て加算して、
最後に見積合計を出したいんですが、
これを出すには
Redim Preserve goukei()
のような、動的配列を使うのですか？
それとも使わなくても出来るものなんでしょうか？

プロの方にとっては、簡単すぎる質問でしょうが、
分かる方、ぜひご教授お願いします。

No.1 ベストアンサー 回答者： UPA-dora 回答日時： 2006/02/10 12:34

回答があまりにも簡単なものなので、3yu_asさんの質問が伝わっていないだけなのかもしれませんが…。

通常、ループ処理中で使用している数値を合計したい場合は合計用の変数を用意し、単純にループ前で初期処理をして、ループ内でその変数に加算していきます。

Dim sougoukei
sougoukei = 0
Do Until ObjTS.AtEndofStream
　Arr = ObjTS.Readline
　Arr1 = split(Arr,"::")
　tanka = FormatCurrency(Arr1(1))
　goukei = Arr1(1) * Arr1(2)
　sougoukei = sougoukei + goukei
Loop

本来の質問は、こんな単純なものではなかったでしょうか。

この回答へのお礼

そうです！！これです！！
なんて単純な事が分からなかったんでしょう・・・
ありがとうございます。

地道に頑張ります。今後ともよろしくお願い致します。

お礼日時：2006/02/10 13:00