webページのソースコードを検索して、検索した文字列に続く3文字を取得したい 削除
Message#4 2015年1月20日(火)23時59分 From: 田中 |
色々と仕様が不明ですが、以下の前提で組んでみました。 ・Webページのアクセスには InternetExplorer.Application を使用している ・取得したい文字列は BODY 要素内に存在する ・取得したい文字列は、検索文字列 "ABC" から行末(改行) までである。 -------------------------------------------------------- ' IE の準備 Dim objIE As Object Set objIE = CreateObject("InternetExplorer.Application") ' Webページのアクセス処理は紙面の都合で省略 ' Webページへのアクセスが完了したら、BODY 要素内のソースを取得する Dim sourceBody As String sourceBody = objIE.Document.body.OuterHtml ' 取得したソースを改行で区切って配列にする Dim lines() As String ' 改行コードを LF に揃える sourceBody = Replace(sourceBody, vbCrLf, vbLf) sourceBody = Replace(sourceBody, vbCr, vbLf) ' 改行コード LF で区切って配列にする sourceLines = Split(sourceBody, vbLf) ' 検索する文字列(ABC)を含む行を検索 Dim lineNo As Integer Dim position As Integer For lineNo = 0 To UBound(sourceLines) ' 検索文字列 ABC を探す position = InStr(sourceLines(lineNo), "ABC") If position > 0 Then ' 検索文字列の後ろの文字列を取得して、メッセージボックスに表示 MsgBox (Mid$(sourceLines(lineNo), position + Len("ABC"))) End If Next |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。