| 投稿日 | ： 2005/07/04(Mon) 21:43 |
| 投稿者 | ： Starfish |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re: リッチテキストボックスでのファイル読込 |
> 問題（１） 大容量（1000KB以上）のファイルの場合「ファイルにこれ以上データがありません」
> のメッセージが表示されリッチテキスト上にデータが表示されません。
> コードは以下のようにしております。
> *******************************************
> Open Filename For Input As #1
> lngLength = LOF(1)
> strBuf = StrConv(InputB(lngLength, #1), vbUnicode)
> Close #1
> Text1.Text = strBuf
> *******************************************
Inputモードでオープンしているため、X'00'やX'1A'が入っていると
その文字は読み飛ばされます。そのため、最終的にファイルサイズ分の
データが読み込めずに「ファイルにこれ以上データがありません」の
エラーになっているんだとおもいます。Binaryモードにすれば、エラー
はなくなるのではないでしょうか。根本的には、入力のファイルが
おかしいので、そちらをチェックしてください。
> 問題（２） リッチテキストの「LoadFile」にてデータを表示すると
> 大容量のファイルでも正常に開くのですが、各ファイルによっては文字化けが発生します。
これも、結局は（１）と同じです。元のファイルの中身をチェックしてください。