ファイルを読み込むには？

解決

烏 2003-11-25 23:54:55 No: 110185

ＶＢ６で外部のテキストファイルを読み込んで表示するときはどうしたらいいんでしょうか？

nanashi 2003-11-26 01:16:10 No: 110186

Openステートメントについて調べてください。

烏 2003-11-27 21:39:10 No: 110187

レスありがとうございます。
Openステートメントを使用して表示させることはできたのですが、
１行しか表示させることができません。
表示させる部分にはLabelを使用しているのですが、これでは無理なんでしょうか？

nanashi 2003-11-27 22:49:28 No: 110188

改行コード（vbCrLf）を入れれば改行は出来ます。

Label1.Caption = "改行コードを入れれば" & vbCrLf & "改行できます。"

烏 2003-11-28 00:12:08 No: 110189

レスありがとうございます。

ちょっと言い方が悪かったようです。すいません。
テキストファイルの文字列が複数行あるんですけど、
それをLabelを使って表示させたいんです。
Openステートメントを使用した結果、テキストファイルの複数行ある文字列の一行目しか表示されませんでした。

この場合、改行コードを使用すれば解決できるのですか？

nanashi 2003-11-28 00:16:48 No: 110190

一行目しか表示できないのは一行目しか読み込んでないからじゃないですか？

特攻隊長まるるう 2003-11-28 02:49:11 No: 110191

う〜んと、テキストファイルだったら
『FileSystemObject』『TextStream』あたりをキーワードに
ヘルプを検索されてはいかがでしょうか？。
AtEndOfStream まで１行ずつ読み込んで処理する方法が見つかると思います。

nanashi 2003-11-28 03:06:15 No: 110192

Private Sub Command1_Click()
    Dim sBuff$, sData As String
    Dim iFile As Integer

    iFile = FreeFile

    Open "テキストファイル名" For Input As #iFile
        Do Until (EOF(iFile))
            Line Input #iFile, sBuff
            sData = sData & sBuff & vbCrLf
        Loop
    Close #iFile

    Label1.Caption = sData
End Sub

いちゆ 2003-11-28 22:50:53 No: 110193

Private Sub Command1_Click()
    Dim sBuff() As Byte
    Dim iFile As Integer

    iFile = FreeFile

    Open "テキストファイル名" For binary As #iFile
        ReDim sBuff(1 to Lof(1))
        Get #iFile,1,sBuff
    Close #iFile

    Label1.Caption = StrConv(sBuff,vbUnicode)
End Sub

も、よろしく。

烏 2003-12-02 23:39:10 No: 110194

返事が遅れて大変申し訳ありません。
しばらくＰＣを触る機会がなくって・・・
久しぶりに見てみたらたくさんレス！ありがとうございます。

上記の方法でやってみますので、また不明な点が出てきたらお世話になります＾＾
それではありがとうございました。

烏 2003-12-03 02:20:50 No: 110195

解決しました！
またよろしくおねがいします＾＾