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

名前

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

本文 マグさん >For〜Nextで終了をRichTextBoxの文字長さで指定すればいいような気が それはだめでしょう、RichTextBoxの長さがFor〜Nextの中で短くなっていきますよ。 ちょっと変わった方法ですが Dim Flg As Boolean Dim s As String Dim i As Long s = RichTextBox2.Text For i = 1 To Len(s) If Mid(s, i, 1) = "<" Then Flg = True Mid(s, i, 1) = Chr(2) 'ありえない文字に取り合えず変換 ElseIf Mid(s, i, 1) = ">" Then Flg = False Mid(s, i, 1) = Chr(2) ElseIf Flg Then Mid(s, i, 1) = Chr(2) End If Next RichTextBox2.Text = Replace(s, Chr(2), "") こんな方法もあります。 長さが変わらない様に、通常では存在しない文字Chr(2)に 置き換えておいて一気に変換します。 文字列の足し算をしないので、結構高速です。