テキストボックスの文字の保存について(VB6)
解決テキストボックスの文字を保存したいのです。
Ｑ１、テキストエディタ等で文字を１行入力し"Test"名にて保存します。
そして、下記を実行しますと実行のたびに改行<Chr(&HD)+Chr(&HA)>が
末尾に入力されます。
されなくするには、どうすればよいのでしょうか。
Private Sub Form_Load()
Form1.Text1 = ""
Open "Test" For Input As #1
Form1.Text1 = ""
Do Until EOF(1)
Line Input #1, dat
Form1.Text1.SelText = dat & vbCrLf
Loop
Close #1
'
Open "Test" For Output As #1
Print #1, Form1.Text1
Close #1
End Sub
Ｑ２、VB6での、テキストエディタのサンプルプログラムはないでしょうか。
A1. Line Input # ステートメントで、末尾にセミコロンを付けましょう。
http://bbs.wankuma.com/index.cgi?mode=one&namber=4359&type=4337
A2. MSDN ライブラリ付属の MDI\MDINOTE.VBP とか。
＞dat & vbCrLf
これは関係ないんでしょうか
お教えありがとうございます。
Line Input #1, dat; としますと、構文エラーとなります。
dat & vbCrLf としないと改行がされないのです。
テキストエディタはMSDN ライブラリにあるのですか。
捜してみます。ありがとうございます。
何かお気づきのことがございましたらお願いします。
Line Input #ステートメント
ではなく
Print #ステートメントの末尾にセミコロン
>>http://bbs.wankuma.com/index.cgi?mode=one&namber=4359&type=4337
の方でも Print # になってます。
質問時
＞改行<Chr(&HD)+Chr(&HA)>が末尾に入力されます。
＞されなくするには、どうすればよいのでしょうか。
返答時
＞dat & vbCrLf としないと改行がされないのです。
テキストボックス中は改行をして、書き込み時には改行しないということなんでしょうか
表示されているものと、ファイルに保存されるものが違う状態になると
では、その書き込みしたファイルは読み込まないという設定なんでしょうか
そうでなければ改行を抜く意味がわかりません
改行がなければ文章の区切りがなくなり、次回読み込み時には全部繋がってしまいますよ？
テキストエディタがつくりたいのであれば、その動作はおかしいと思いますがどうでしょうか
魔界の仮面弁士様
MDI\MDINOTE.VBP見ました。私には、難しそうですが良い勉強になりそう
です。
K・今川様
「末尾にセミコロン」で希望通り動作しました。
通ってみた様
質問の書き方が幼稚ですみません。
vbCrLfは、chr(&HD) & chr(&HA)と同じなので使っています。
表示されているものと、ファイルに保存されるものは追加・修正しない限
り同じですし同じにしたいのです。
特に、テキストエディタが作りたいと言うのではなくて、データーの表示
・貼り付け・修正、そして保存などがしたいのです。
皆さま、ありがとうございました。
| ツイート |  |