VB6.0用掲示板の過去のログ(No.2)－VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[管理用]
| 投稿日 | ： 2005/07/04(Mon) 02:20 |
| 投稿者 | ： りこ |
| ＵＲＬ | ： |
| タイトル | ： リッチテキストボックスでのファイル読込 |
こんばんは。
いつも大変お世話になっております。
さて、今回は「リッチテキスト内へファイルを読込」処理について悩んでおります。
問題① 大容量（1000KB以上）のファイルの場合「ファイルにこれ以上データがありません」
のメッセージが表示されリッチテキスト上にデータが表示されません。
コードは以下のようにしております。
*******************************************
Open Filename For Input As #1
lngLength = LOF(1)
strBuf = StrConv(InputB(lngLength, #1), vbUnicode)
Close #1
Text1.Text = strBuf
*******************************************
問題② リッチテキストの「LoadFile」にてデータを表示すると
大容量のファイルでも正常に開くのですが、各ファイルによっては文字化けが発生します。
以上のように問題が発生し正常にファイルを読込むことができません。
何か良い方法をご存知の方、ご教示願いませんでしょうか？
（リッチテキストにこだわらなくても結構です。）
また、各行に行番号を振りたいのですがその為には、ファイル内のデータを1行1行読込んでいくしか
ないで
しょうか？
（5万行ほどのデータがあるのですが・・・）
非常に困っております。
VBのプロの皆様、ヒントだけでも構いませんので宜しくお願いいたします。
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）