- ベストアンサー
ExcelのVBAの正規表現で二重引用符を含む文字列を検索できるようにしたい
二重引用符を含む文字列を検索できるようにするには 下記の記述の 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
- nana_watuki
- お礼率61% (142/232)
- オフィス系ソフト
- 回答数2
- ありがとう数7
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
こんにちは。 とりあえずパッと見で、試してませんが、 > 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 です。
その他の回答 (1)
- nayuta_lot
- ベストアンサー率64% (133/205)
こんにちは re.Pattern = """<hr class=\""" & "separate\" & """>""" でどうでしょうか？ "～"を文字列として代入する場合 """～"""でできると思います。 ただ、今回の場合、"が間にもあって、最初と最後だけでは 途中の"で構文エラーになりますので、３つに分けて＆でつないで みました。 一応、マクロで検証した結果、検索できたので大丈夫だと思いますが 以上、ご参考まで
お礼
やってみたところ自分の環境では検索できませんでした。 いろいろ試したところ re.Pattern = "<hr class=separate>"とすると うまく検索できるようです。（HTML取得時にタグの中の「"」を取り除いて取得するため？） ご回答いただきどうもありがとうございました。
関連するQ&A
- 【VBA】【正規表現】
２３歳OLです。 VBAと正規表現についての質問です。 ▼やりたいこと ================================================ 1 | 0 |1234567890 | 2014-2-22 22:22:22.06+09 という数列から 1234567890 という数字のみを抜き出したいです。 正確には２本目の|と３本目の|の間に入っている様々な数字です。 ※桁数が固定されていません。 ================================================ ▼実際書いたコード ================================================ Sub Sample2() Dim RE, strPattern As String, i As Long, msg As String, reMatch Set RE = CreateObject("VBScript.RegExp") strPattern = "☆この部分☆" With RE .Pattern = strPattern .IgnoreCase = True .Global = True For i = 1 To 10 Set reMatch = .Execute(Cells(i, 1)) If reMatch.Count > 0 Then msg = msg & reMatch(0).Value & vbCrLf End If Next i End With MsgBox msg Set reMatch = Nothing Set RE = Nothing End Sub ================================================ ☆この部分に☆に何を入れればよいでしょう？ ご指導よろしくおねがいします。
- ベストアンサー
- Visual Basic
- ExcelのVBAでHTML内の特定のタグの出現回数を調べたい
たとえばYahoo!JapanのサイトのHTMLのTDタグの出現回数を調べる場合 下記のVBAに何を付け加えればよいのでしょうか？ 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 'td_count = ここの部分がわかりません。 '文字列の出現回数をカウントする関数はないのでしょうか？ MsgBox td_count End Sub ご存知の方がおられましたらご回答をよろしくお願いします。 使用OS：Windows XP 使用ソフト：Microsoft Excel 2003
- ベストアンサー
- オフィス系ソフト
- 正規表現について
VB6ですが・・・ '次のようなコードがあって <!-- と --> に囲まれる文字列を抜き出したのですが 'どのようなパターンマッチを書けばいいのでしょうか？ 'HTMLのコメントのみを抜き出したいと思っています。 Const s = "<!--今日-->" _ & "<!--僕は--><!--正規表現を--><!--勉強します-->" Dim x As RegExp Dim v As match Set x = New RegExp x.Pattern = "パターン" x.Global = True For Each v In x.Execute(s) Debug.Print v.Value Next
- ベストアンサー
- Visual Basic
- これは正規表現とは言えないでしょうか？
正規表現を勉強しようと思っているのですが まずはじめに確認させて下さい。ＶＢＡです。 Sub 正規表現() If a Like "*a*" Then End If End Sub は正規表現とは言えないでしょうか？ *を使っているからそう思いました。 Dim re As RegExp Set re = New RegExp を使わないと、正規表現といえないのでしょうか？ よろしくお願い致します。
- ベストアンサー
- Visual Basic
- 正規表現について
ExcelにてVBScriptの正規表現を使用していますが、 理解できないところがあるので、教えてください １．EXCEL VBAにて下記のコードがあります Sub Sample2() Const strCHK As String = "000AAA111BBB2222BBB333" Dim RE, strPattern As String, i As Long, msg As String, reMatch, Item Set RE = CreateObject("VBScript.RegExp") strPattern = "AAA.+bbb" With RE .Pattern = strPattern .IgnoreCase = True .Global = True Set reMatch = .Execute(strCHK) For Each Item In reMatch Debug.Print Item.Value & " FirstIndex→" & Item.FirstIndex & " Length→" & Item.Length Next End With Set reMatch = Nothing Set RE = Nothing End Sub ２．上記を動作させると、イミディエイトに下記が出力されます AAA111BBB2222BBB FirstIndex→3 Length→16 ３．疑問 strPattern = "AAA.+bbb"にて検索しているのに、 AAA111BBBが表示されないのは、何故なのでしょうか？ よろしくお願いします
- ベストアンサー
- その他MS Office製品
- ExcelのVBAでHTMLのソースのタグの部分を小文字で取得したい
HTMLのソースコードを取得する下記のVBAを実行すると タグの部分が大文字（<H1>等）になってしまいます。 どうすれば小文字のタグのまま取得することが出来るのでしょうか？ 使用OS：Windows XP 使用ソフト：Microsoft Excel 2003 ご存知の方がおられましたらご回答をよろしくお願いします。 Sub sample() 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 MsgBox HTML IE.Quit End Sub
- ベストアンサー
- オフィス系ソフト
- vbaでの正規表現について教えてください
「セルに入ってる値が数値ならＡ列からＥ列まで赤色にする」 を正規表現で行いたいのですがよくわかりません。 http://officetanaka.net/excel/vba/tips/tips38.htm を参考にしているのですが Sub Sample1() Dim RE, strPattern As String, r As Range Set RE = CreateObject("VBScript.RegExp") strPattern = "SUM\(" With RE .Pattern = strPattern ''検索パターンを設定 .IgnoreCase = True ''大文字と小文字を区別しない .Global = True ''文字列全体を検索 For Each r In ActiveSheet.UsedRange If .test(r.Formula) Then r.Interior.ColorIndex = 3 Next r End With Set RE = Nothing End Sub を、どう改造すれば、私のやりたい事になるのでしょうか？ 【１】 まずstrPattern で、「数値ならば」はどうやればいいでしょうか？ 【２】 次にtest(r.Formula)は、数式だからFormulaを使ってるのですよね？ 数値を検索する場合はFormulaを何に変えればいいでしょうか？ 【３】 最後に、 r.Interior.ColorIndex = 3はそのセルだけの色を変えるのですよね？ Ａ列からＥ列までにするにはどうすればいいでしょうか？ 例えば Ａ３セルに「1」が、Ａ６セルに「３」が入っていたら、 Ａ列からＥ列まで赤色にしたいです。
- ベストアンサー
- オフィス系ソフト
- ExcelのvbaでHTMLの要素数を出力するには
webサイト内で、classが"line-name"である要素の数を取得したく、 以下のようなコードを書きましたが、 型が一致しませんとのエラーが出て、うまく走りません。 修正点を教えていただけますでしょうか。 宜しくお願い致します。 -----以下コード----- Sub class数取得() Dim obIE As Object Dim el As Variant Set obIE = CreateObject("InternetExplorer.Application") obIE.Visible = True obIE.navigate "https://www.navitime.co.jp/transfer/railroadlist/?node=00005564&sNa...大宮(埼玉県)" While obIE.readyState <> 4 Or obIE.Busy = True DoEvents Wend Set el = obIE.document.getElementsByClassName("line-name").Length Cells(1, 6).Value = el End Sub
- ベストアンサー
- Visual Basic
- Excel の VBA で、IEのWeb操作
ExcelのVBAで、A1～A10 のセルに入っている数値を下記 URL の「お問い合せ番号」の入力欄に自動でセットして、「検索」のボタンを押したいのですが、方法が分かりません。 http://www2.fukutsu.co.jp/inq/INQJJ120.html 下記のプログラムで表示までは出来るのですが、それから先の入力とボタンクリックの方法が分かりません。 何かアドバイスを頂けると幸いです。 > Dim oIE As Object > > 'IE起動 > Set oIE = CreateObject("InternetExplorer.Application") > oIE.Visible = True > > '目的のURLへ > oIE.Navigate "http://www2.fukutsu.co.jp/inq/INQJJ120.html" > > '完全表示まで待つ > While oIE.Busy: Wend > While oIE.document.readyState <> "complete": Wend
- ベストアンサー
- その他MS Office製品
- VBAで改行の入ったデータの正規表現について
vbaで複数行のデータの一部を抜き出そうと思っています。 下記のようにすると、抜き出したデータの先頭に改行がついてしまいます。 何かいい方法はないでしょうか。 data = "start" & vbCrLf & "ABC" & vbCrLf & "DEF" & vbCrLf & "GHI" & vbCrLf & "end" Set re = New RegExp re.Pattern = "start((.|\n)*?)end" re.MultiLine = True Set mc = re.Execute(data) For i = 0 To mc.Count - 1 MsgBox m.SubMatches(0) Next i 上記を実行すると vbCrLf & "ABC" & vbCrLf & "DEF" & vbCrLf & "GHI" & vbCrLf となってしまいます。 ”ABC”から抜き出す場合、正規表現をどう書けばいいのでしょうか。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
お礼
エスケープは\"ではなく""なのですね。 ご回答いただきどうもありがとうございました。