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

名前

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

本文 マグさん。 >最終的にはタグを全て除去してタグ以外の文字の取得が目的です。 と書いてありますよ、Rtfで無くても良いのでは。 >LLength=RichTextBox2.Text.Length >For i = 0 To LLength これはどのような意図でしょうか、Forの中でRichTextBox2.Text.Lengthが 変わっています、しかも変えようとしているのはRtfだし。。。。。 他人が読んだ場合意図がわかりにくい。 この場合Forのループは必ず Exit Forで抜けますから、Forの必要は全く無いのでは。 Forのループの中で >RichTextBox2.Rtf = mozi 'VB.NET版の書き込み とやっていますが、せっかくmoziに置き換えているのだから、 最後に置き換えれば良いのでは、リッチテキストのRtfに文字を入れることは それだけでかなり時間がかかります。 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim strRtbTxt, strTobeChanged As String Dim intStart, intEnd As Integer strRtbTxt = RichTextBox2.Text Do intStart = InStr(strRtbTxt, "<") intEnd = InStr(strRtbTxt, ">") If (intStart <> 0) AndAlso (intStart < intEnd) Then '順番と有り無しをチェック strTobeChanged = Mid(strRtbTxt, intStart, intEnd - intStart + 1) 'タグを切り出す strRtbTxt = Replace(strRtbTxt, strTobeChanged, "") 'タグを消す Else Exit Do End If Loop RichTextBox2.Text = strRtbTxt End Sub こんなかな。