メモ帳みたいにするには？

JANDY 2001-02-19 07:00:31 No: 103529

VB6でテキストファイルを開いて
そのままテキストボックスに入れたいのですが
どうやっても文字化けしてしまい
うまくいきません。
どうすれば良いのでしょう？
できれば簡単なプログラムで教えて下さい。

MADIA とPAPY URL 2001-02-20 09:06:45 No: 103530

ソースふぃあるを記述してもらえませんか？
どこが原因かわからないので。

JANDY 2001-02-21 06:18:31 No: 103531

Open file1.FileName For Input As 1
Text1.Text = InputB$(LOF(1), #1)
Close 1

です。
やっぱし２行目ですよねぇ？

MADIA URL 2001-02-23 08:29:49 No: 103532

う〜ん。
２行目ですね。
バイト型でデータを取得しているようですが、バイト型で良いんですか？
テキスト型でなくて

JANDY 2001-02-25 01:55:02 No: 103533

テキスト型にしたいのですが・・・

MADIA URL 2001-02-25 19:48:42 No: 103534

LOFは１バイト取得の関数です。

Open file1.FileName For Input As 1
Text1.Text = Input(1, #1) 'これで１文字取得する
Close 1

たかみちえ URL 2001-03-30 22:53:22 No: 103535

http://ww2.tiki.ne.jp/~kotb/
ここでテキストファイルをすばやく読みこむ方法を教えてもらえます。
とくに不具合はなさそうなので、特別な場合でなければ、
これを使うといいと思います。
1メガ以上のファイルも、これなら何とか読めます。
やっぱり、時間かかりますけど^^;

こころ URL 2001-05-27 09:01:05 No: 103536

一応、念のために補足しますが
ファイル番号はFreeFileを使用して求めて下さい。
いちいち、サンプルにFreeFileを使うのはあれ、ってことで
みなさん直値で書いているとは思いますが
初心者の方は注意しましょう。

FreeFileが返す値以外を使用した場合、
それが原因でファイルオープンが失敗する場合があります。

一応、初心者掲示板なので書いておきました。