VBSの文字列操作

質問

以下のようなファイルに対して、文字列xxxxxに囲まれた数値の合計をそれぞれ算出したいです。
以下の例では、
1+6+5=12 , 2+8=10 , 0+2+8+7=17
のように算出(合計値のみ)したいです。
尚、数字の個数はランダムです。

<ファイルの中身>
xxxxx
1
6
5
xxxxx
2
8
xxxxx
0
2
8
7
xxxxx

何か良い方法があれば、ご教授願います。

回答No.1

imogasi · ベストアンサー

>文字列xxxxxに囲まれた
の意味があいまいだが、質問例での各行はテキストファイルの１レコードとして解釈してよいか。
ーーー
それなら何も難しいことはない。こういうものの処理ロジックに
慣れていないのか
（１）ファィルオープン
（２）第1レコードの内容は:*として、読み飛ばしごうけいを入れる変数=0
（３）第2レコード以後、＊でない間は、数値化して変数に足しこみ
（４）レコードの内容が:*が現れたら変数の値をを書き出し（どうするのか書いてないよ）
（５）変数の値を０
（６）（３）（４）をレコードの終わりまで繰り返し
（７）ファイルのＥＯＦが来たら、変数の値の書き出しとファイルクローズ
ーー
あえて勉強のためにコードは書かない。勉強のこと。
テキストファイルのオープン
終わりの判定
ファイルの１レコードの読み込み
ファイルのクローズ
などのコードを勉強のこと。こんなのは旧いＢＡＳＩＣ言語時代からあるのだ。
ＶＢＳにもある。エクセルが使えるなら、エクセルＶＢＡででも、同じようなコードでできる。
ーー
Ｇｏｏｇｌｅで「テキストファイル　読む」で照会　膨大な記事があるようだ。
http://officetanaka.net/excel/vba/file/file08.htm
など。