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

解決

---

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

編集 削除

---

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

編集 削除

---

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

編集 削除

---

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

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

編集 削除

---

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

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

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

編集 削除

---

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

編集 削除

---

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

編集 削除

---

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

編集 削除

---

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

も、よろしく。

編集 削除

---

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

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

編集 削除

---

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

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。