掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
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
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.