""の中身を取得する方法

質問

VBAを使っています。

htmlファイルを読み込んで
href="http://www.xxxx.html"
の
http://www.xxxx.html
このURLの部分だけを順番に抽出し配列に保存するプログラムを書きたいのですが
どのように書けば良いですか？

回答No.5

WindFaller · ベストアンサー

こんにちは。

全体像が書かれていない中で、途中の抜き出しで質問だから、なかなか口を挟みにくいのですが、#1～#3さんの回答とそのご質問者さんの反応をみていて、

「スマートな方法」というリクエストは、私には、抽象的でよく理解できませんが、VBAは、中身を見せることがありませんから、それなりに動けばよいような気がします。コードで、Coolと言わせるなんて、並大抵ではありません。

>wordのマクロだと
>"[\(]([0-9]{1,2})[\)]"
まあ、それは、正確にはWordのマクロではなく検索コマンドの一部ですが、Excelでは、必要とあれば、正規表現を使いますね。途中まで書いて、読み落としていたのですが、配列に入れるわけですね。

'//
Dim buf As String
Dim myArray() As String
Dim i As Long
Dim Matches As Object
Dim Match As Object
i = -1
buf = "ログソース"
With CreateObject("VBScript.RegExp")
　.Pattern = "\shref=""(http:[^""""]+)"　
　'パターンの正しい方法は知らない。以前、最短マッチ法の指摘はされたけれど、VBScriptではやっぱりうまくない。
　.Global = True
　.MultiLine = True
　Set Matches = .Execute(buf)
　For Each Match In Matches
　 i = i + 1
　 ReDim Preserve myArray(i)
　　myArray(i) = Match.SubMatches(0)
　Next Match
End With
'//

でも、一つだけ取り出すつもりなら、狙いを定めた後は、実際、Instr 関数や　Mid 関数の方が楽ではないかな。だから、使い方によっては、Splitで大雑把に切っておいて、そこにHTTPアドレスが一つであるなら、後はループすれば、以下でも有効のはずです。実際、その方が多いかもしれませんね。

i = InStr(1, buf, "href=""http", vbTextCompare)
j = InStr(i + i + Len("href="""), buf, """")
PickUP = Mid(buf, i + Len("href="""), j - i - Len("href="""))

この通り3行で足りてしまうのです。