ExcelのVBAの正規表現で二重引用符を含む文字列を検索できるようにしたい

解決済

質問者：nana_watuki
質問日時：2008/07/12 11:42
回答数：2件

二重引用符を含む文字列を検索できるようにするには
下記の記述の re.Pattern = "<hr class=\"separate\">"
の部分をどのように直せばよいのでしょうか？

Sub tagCount()

Dim cnt As Integer
Dim IE As Object
Dim HTML As String

Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate ("http://www.yahoo.co.jp/")
While IE.busy: Wend
While IE.Document.readyState <> "complete": Wend
HTML = IE.Document.body.innerHTML
IE.Quit

Dim re As RegExp
Dim mc As MatchCollection
Dim m As Match

Set re = New RegExp
re.Pattern = "<hr class=\"separate\">"
re.Global = True
re.IgnoreCase = True
Set mc = re.Execute(HTML)
MsgBox mc.Count

End Sub

ご存知の方がおられましたらご回答をよろしくお願いします。

使用OS：Windows XP
使用ソフト：Microsoft Excel 2003

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (2件)

ベストアンサー優先
最新から表示
回答順に表示

No.1ベストアンサー

回答者： KenKen_SP
回答日時：2008/07/12 15:03

こんにちは。

とりあえずパッと見で、試してませんが、

　　> re.Pattern = "<hr class=\"separate\">"
　　　　　↓
　　　re.Pattern = "<hr class=""separate"">"

のように、ダブルクウォートをエスケープ（2重に）すれば良いの
ではないでしょうか。

また、単純に HR タグだけカウントしたい、つまり

　　class="separate"

などの要素を問わないのであれば、正規表現を使わなくても、

　　MsgBox IE.Document.getElementsByTagName("hr").Length

という簡易な手もあります。

あと、HR タグなら問題ないと思いますけど、タグ数をカウントしたい
のであれば、

　　> HTML = IE.Document.body.innerHTML

では、<body>～</body> タグ内にあるソースだけがカウント対象となって
しまいますから、ヘッダー部 <head>～</head> も含めて全ソースを対象
にするなら、

　　　HTML = IE.Document.documentElement.outerHTML

です。

- 0
- 件

通報する

この回答へのお礼

エスケープは\"ではなく""なのですね。
ご回答いただきどうもありがとうございました。

通報する

お礼日時：2008/07/12 18:32

No.2

回答者： nayuta_lot
回答日時：2008/07/12 15:05

こんにちは

re.Pattern = """<hr class=\""" & "separate\" & """>"""
でどうでしょうか？

"～"を文字列として代入する場合
"""～"""でできると思います。
ただ、今回の場合、"が間にもあって、最初と最後だけでは
途中の"で構文エラーになりますので、３つに分けて＆でつないで
みました。

一応、マクロで検証した結果、検索できたので大丈夫だと思いますが
以上、ご参考まで