VB初心者友の会 - はじめたばかりの人専用Q&A掲示板過去ログ

> 下記のコードを実行すると、ファイルは開けているようなのですが
> テキストボックスには1行しか表示されません。
　　　：省略
>      Do Until EOF(intFile)                 'ファイルを変数へ
>         Input #intFile, text
>         txtMain.text = text               'テキストファイルを表示する
これだと、Input #ステートメントでカンマまたは改行が見つかるまでの１データを取得し
それをtxtMain.Textに設定するということになります。
ループ回るたびに取得した1データ分をtxtMain.Textに代入してしまうので、
最終的なデータしかtxtMain.Textに入りません。

行単位でデータを取り出すなら、Line Input #ステートメントです。
また、取り出したデータを追加していくなら、
文字列変数 = 文字列変数 & 取得データ
という形にしましょう。

つまり、上のコードの流れを尊重するなら
txtMain.Text = txtMain.Text & text
となります。

> （このコードにこだわらなくてもよい方法がありましたら
> 　お教えください）
Input関数というのがあります。ヘルプをご覧下さい。
 
> #helpなどを見ているとＦＳＯなるものがあるのですがこれでも
> #ファイルを読めるのでしょうか？
できるそうです。が、こっちは私は使ってないのであまり知りません。
ヘルプとにらめっこして自分で確かめましょう。

>         txtMain.text = text               'テキストファイルを表示する
この部分を、
    txtMain.SelStart = Len(txtMain.Text)
    txtMain.SelText = text
に置き換えてみてください。

> （このコードにこだわらなくてもよい方法がありましたら
> 　お教えください）
一行単位での読み込みは低速なので、できれば全行を一気に読み込んでしまった方が高速です。
手抜きをするなら、RichTextBoxのLoadFileメソッドを使うという手もあります。


> #helpなどを見ているとＦＳＯなるものがあるのですがこれでも
> #ファイルを読めるのでしょうか？
FSOというのは、FileSystemObjectオブジェクトの通称ですね。
正確に言えば、ファイルの読み込みに使うのは、FSOではなく「TextStreamオブジェクト」です。
もっとも、TextStreamオブジェクトを使うためには、FSOも必要になるのですが…。

で、この「TextStreamオブジェクト」を使うのであれば、「ReadAllメソッド」で、全行取得が可能です。

# 蛇足ですが、Shift-JIS以外のテキストファイルや、バイナリファイルなどにも対応した、
# 「Streamオブジェクト」というものもあります。