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

名前

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

本文 例えば、Rtfを編集するこのような方法もあります。 'Dim mozi As String, hani As String 'VB6版の宣言 'Dim Start As Long, Finish As Long 'VB6版の宣言 Dim mozi As String, hani As String 'VB.NET版の宣言 Dim Start As Integer, Finish As Integer 'VB.NET版の宣言 Dim i As Integer,LLength As Integer LLength=RichTextBox2.Text.Length For i = 0 To LLength 'mozi = RichTextBox2.TextRTF 'VB6版のRtf読み込み mozi = RichTextBox2.Rtf 'VB.NET版のRtf読み込み Start = InStr(mozi, "<") If Start <> 0 Then Finish = InStr(Start, mozi, ">") hani = Mid(mozi, Start, Finish - Start + 1) mozi = Replace(mozi, hani, "") Else Exit For End If 'RichTextBox2.TextRTF= mozi 'VB6版のRtf書き込み RichTextBox2.Rtf = mozi 'VB.NET版の書き込み Next VB6の環境がなかったので、VB.NETで確認しました。