リッチテキストの読み込みが上手くいきません (ID:88756)

名前

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

本文 Open "abc.txt" For Output As FileNo Print #FileNo, RText.Text Print #FileNo, Text.Text Close FileNo > 史上最弱の弟子さんの言うようにメモ帳で開いた場合、 > テキストの文字はちゃんと入りますがリッチの場合は > タグ？っぽいのが入ってしまいます。 それは、"Print #FileNo, RText.Text"の"RText.Text"の部分ですな。 > テキスト部分のみじゃなくて今回は２つのファイルを > １つのリッチテキストとして保存してそれを読み込みたい > です。 んー…具体的な部分をコードとして提示しないと、いつまでも押し問答が続くぞ？ …ひとまず、やりたいことを箇条書きにすることをお勧めする。 矛盾を取り払うという意味も含めて。 > ガッさんのコメントを参考にして > RText.Text = RText.Text & vbCrLf & Text.Text たしか、俺は RText.Text="abc" としたら、RText.TextRTF も変更されると暗黙に書いたような…？ ま、もう一度言っておきましょう。 RText.Text に代入 → RText.TextRTF でRText.TextのリッチテキストフォーマットされたStringが取れる。 > Print #FileNo, RText.TextRTF > としたのですがこの場合テキスト部分までリッチテキストフォーマット > が効いてしまいました。 そりゃそーでしょう… と、上記に書いたとおりのことが実際に起こったからです。 > １つのリッチテキストにリッチテキスト、テキストの内容をそのまま > 書き込むというのできないのでしょうか？ コレだけなら、 dim st as string st=RText.TextRTF & vbcrlf & Text.Text open "somefile" for output as FileNo print #FileNo,st; close FileNo でいい予感。 ※…まぁ、どこがわからないかを箇条書きすれば矛盾も(ry