RichTextBoxでの強制文字変換回避について (ID:102014)

名前

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

本文 他にもっと良いやり方があるかもしれませんが、これではどうでしょう。 Private Sub TRFRead(FName As String) Dim strRTF As String Dim intFNo As Integer Dim strFName As String intFNo = FreeFile Open FName For Binary As intFNo strRTF = String(LOF(intFNo), vbNullChar) Get intFNo, , strRTF Close intFNo 'これいるかな？ strRTF = Replace(strRTF, "\rquote ", "\rquote") strRTF = Replace(strRTF, "\rdblquote ", "\rdblquote") 'シングルクォート変換 strRTF = Replace(strRTF, "\rquote", "\'81\'66") 'ダブルクォート変換 strRTF = Replace(strRTF, "\rdblquote", "\'81\'68") RichTextBox1.TextRTF = strRTF End Sub