ｈｔｍｌのタグについて (ID:120993)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 すみません。 最終的にはタグを全て除去してタグ以外の文字の取得が目的です。 こういう風にプログラムしてみたのですが、半落ち状態になってしまいます。 Dim SearchST As Long Dim SearchED As Long Dim SearchTotal As Long Dim SearchTemp As String Dim SearchTemp1 As String Do SearchST = InStr(1, RichTextBox2.Text, "<", vbTextCompare) If SearchST = 0 Then GoTo OK10 End If SearchED = InStr(SearchST, RichTextBox2.Text, ">", vbTextCompare) SearchTotal = SearchED - SearchST SearchTemp = Mid(RichTextBox2.Text, SearchST, SearchTotal + 1) SearchTemp1 = RichTextBox2.Find(SearchTemp) RichTextBox2.SelText = "" Loop OK10: