VBAにてxmlファイルのステップカウンタ作成

Question

お世話になっております。
今回VBAにてxmlファイルのステップカウンタを作りたいと思って途中まで作ったのですが複数コメントを除去したステップ数を出したいのですが自分で考えても正解にたどり着けなかったので投稿させていただきます。
尚、ソースコードはとある理由にてそのまま投稿できないので手書きでの書き込みとなりますがよろしくお願いいたします。
また、ツールなどを使うことに関しては考えてません。

手書きソース

ファイル取り込みオブジェクトにて取り込み後での処理…↓↓↓

Do While .AtEndOfstream <> true
If Trim(line) <> "" Then

If Left(.line , 2) <> "<!" And Right(line , 2) <> "->" Then

      If Left(.line , 2) ＝"<!" And Right(line , 2) <> "->" Then
            'ここからわかりません...

Else 
       count ＝ count + 1

End If

'ここからわかりません
の記述があるブロック内にて
どのようにしたら複数行コメントを無視できる処理がかけるか全くわかりません。

すみません、よろしくお願いいたします。

Comments

[unz.hori]

自作にこだわらないのであればツールを探した方が良いのでは？コメント判定はネストした場合など奥が深いですよ。

[matikadokadosan]

ツールがDLできない環境なので自作するしか…。 考えているのは<！をトリガーにfor文で回しカウントし->までのカウント-実数というのを考えてます…。

Answer 1

<tag>value<!tag>の数をカウントするのであれば、
「<!」が幾つあるか数えればいいかと。

文字のカウント方法は、以下の３つくらいかな。
１．Split ：配列要素でカウント
２．Replace：対象文字を消して、前後の文字長からカウント
３．Instr ：Hit時に開始位置をずらしてLoopしつつカウント

３は処理が少し面倒ですが、
小メモリ＆高速、という点でメリットがあります。

Answer 2

サンプルデータがなく、動作テストできませんが
下記のようなコードを参考にしていただいたらできませんか？

Dim strLine as String
Dim blnCountStop As Boolean 'カウントストップフラグ

blnCountStop=False
Do While .AtEndOfstream <> true
    strLine = Trim(.line)
    If strLine <> "" Then
        If blnCountStop Then
            '条件を満たしたら'カウントストップフラグOFF
            If Right(strLine , 2) = "->" Then blnCountStop = False
        Else
            If Left(strLine , 2) <> "<!" And Right(strLine, 2) <> "->" Then
                'カウントする
                count = count + 1
            ElseIf Left(strLine , 2) = "<!" And Right(strLine , 2) = "->" Then
                'カウントしない
            ElseIf Left(strLine , 2) = "<!" And Right(strLine , 2) <> "->" Then
                'カウントストップフラグON
                blnCountStop＝True
            End If
        End If
    End If
Loop