投稿日 | : 2003/02/05(Wed) 20:18 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : Re^3: HTMLの取得 |
このような検索をしたいのかどうかは解りませんがヒントという事で
後は自分やりたいように工夫して下さい。
Private Sub Command1_Click()
Dim HtmlText As String
Dim Sn As Long
Dim En As Long
Dim MyText As String
Dim n As Long
n = 1
HtmlText = "<HTML><BODY>ハイライト</BODY></HTML><HTML><BODY>ハイライト</BODY></HTML>"
While InStr(n, HtmlText, "<BODY>") > 1
Sn = InStr(n, HtmlText, "<BODY>")
En = InStr(n, HtmlText, "</BODY>")
MyText = Mid$(HtmlText, Sn + 6, En - Sn - 6)
Debug.Print MyText
n = En + 6
Wend
End Sub