VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [過去ログ] [管理用]

投稿日: 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


- 関連一覧ツリー (★ をクリックするとツリー全体を一括表示します)

- 返信フォーム (この記事に返信する場合は下記フォームから投稿して下さい)

- Web Forum -