ラベルに全てのテキストデータを読み込みたい

Question

メモ帳（.txt）に

ＡＡＡＡ
ＢＢＢＢ
ＣＣＣＣ

と書いて、これら３行をラベルに表示させたいのです。

Private Sub Form_Load()
　Dim myText As String
　Open "C:\myFile.txt" For Input As #1
    Do While Not EOF(1)
        Input #1, myText
    Loop
　　Close #1
　Label1.Caption = myText
End Sub

上記のコードだと１行目のＡＡＡＡしか表示されません（泣）
どなたかご指導宜しくお願いします。

pen_pen_pen · Accepted Answer

>Me.Controls("label" & I).Caption = myTextの
>("label" & I)とはどういう意味なのでしょうか？
Me.Controls("label1")と書くと、フォーム上の「label1」というラベルコントロールを表します。
それをループ中なので
"label" & I
と表したのです。
でもVB6.0なので、コントロール配列にすればいいと思いますよ。
Label1(I).Caption = myText
って感じでつかえます。

さて。補足要求なのですが、ラベル1つに対して、テキスト1行を表示なのですか？
それともラベルは1つしかなく、そこに全部表示？

1つのラベルに全部表示するなら、
>Label1.Caption = myText
ではなく
Label1.Caption = Label1.Caption & myText & vbCrLf
とし、Loopの中に書きます。
（最後に改行が1つ余分に入っちゃいますが・・。）

noname#24731 · Answer

質問の通り実行しましたが、Label1には　「ＣＣＣＣ」が表示されます。ＡＡＡＡが表示されるというのはちょっと考えられません。
ファイルを読むたびに、MyTextにその内容が入り、それがLabel1に送られるというロジックになっています。Labelを配列コントロールにしそこへ順番に送っていく必要があります。

noname#22222 · Answer

VB の学習中のようですので回答の全てを示すべきかどうか迷うところですが・・・。
幾つか気になった点がありましたので・・・。

１、FreeFile が使われていない。
２、FileSystemObject が使われていない。

１点目ですが、

Private Sub コマンド0_Click()
On Error Resume Next
　　Dim I　　　As Integer
　　Dim N　　　As Integer
　　Dim myText As String

　　N = FreeFile
　　Open "C:\Temp\myFile.txt" For Input As #N
　　Do While Not EOF(N)
　　　　Input #1, myText
　　　　I = I + 1
　　　　Me.Controls("label" & I).Caption = myText
　　Loop
　　Close #N
End Sub

と、書いたが良いと思います。
ファイル番号をプログラム中に埋め込むと、チトまずいです。

２点目ですが、

Private Sub コマンド1_Click()
On Error Resume Next
　　Dim I　　　　　　As Integer
　　Dim N　　　　　　As Integer
　　Dim strMyTexts() As String
　　
　　strMyTexts() = FileReadArray("C:\Temp\myFile.txt")
　　N = UBound(strMyTexts)
　　For I = 0 To N
　　　　Me.Controls("label" & I + 1).Caption = strMyTexts(I)
　　Next I
End Sub

と、非手続き的に書くスタイルを採用すればバグを相当に追放できます。

※FileSystemObject　を用いるには、Microsoft scripting runtime を参照させる必要があります。

noname#79209 · Answer

#1さんの書かれている
> 質問の通り実行しましたが、Label1には　「ＣＣＣＣ」が表示されます。ＡＡＡＡが表示されるというのはちょっと考えられません。
を拝見し、私も質問者さんのコードを見て同じ事を思いました。
このコードではLabel1.Captionへの値の代入がLoopの外で行われているので、myTextには最後のレコードである「ＣＣＣＣ」が入っているのと、
代入の対象をLabel1に固定してしまっています。
「ＡＡＡＡ」しか表示されないと言われているので、
一度、Label1の高さを広げてみてください。
案外、
ＡＡＡＡ
ＢＢＢＢ
ＣＣＣＣ
と表示されるかもしれません。
従って、実際に書かれているコードと質問文に書かれたコードとが微妙に異なっているのかも。

pen_pen_pen · Answer

フォームの変数で
Private strTextFile(3) As String
を宣言。

フォームのLoadイベントで
strTextFile(0)にmyFile1.txtの内容。
strTextFile(1)にmyFile2.txtの内容。
strTextFile(2)にmyFile3.txtの内容。
strTextFile(3)にmyFile4.txtの内容。
を読んでおく。

ボタンのClickイベントで
Private Sub Command1_Click()
Static strNo As Integer

Label1.Caption = strTextFile(strNo)
strNo = (strNo+1) Mod 4
End Sub
とすれば、クリックする度に切り替わります。

－－－－－－－－－－－－－－
ここまでがファイルが4つの場合。
1にファイルをまとめるなら、Loadイベントを工夫します。
例えば空行があるまでが1まとまりとしてstrTextFile()に1つ1つセットしていけば、ランダムアクセスの必要は無いでしょう。
例）myFile.txt
AAAA ←ここから
BBBB
CCCC ←ここまでstrTextFile(0)に読み込む

DDDD ←ここから
EEEE
FFFF ←ここまでstrTextFile(1)に読み込む

GGGG ←ここから
HHHH
IIII ←ここまでstrTextFile(2)に読み込む

JJJJ ←ここから
KKKK
LLLL ←ここまでstrTextFile(3)に読み込む

※「空行があるまでが1まとまり」というのは、あくまで例です。3行と決まってるなら、全部つめて3行読んだら次の配列に行くんでもOK。

pen_pen_pen · Answer

こんな感じかなぁ。

Private Sub Form_Load()
    Dim myText As String        '読み込みバッファ
    Dim N As Integer            'ファイルNo
    Dim cntAll As Integer       '全部を保存する配列数
    Dim strOne() As String      '1まとまり（「AAA,BBB,CCC」単位）保存用の配列
    Dim cntOne As Integer       '↑配列数
    
    '初期化
    myText = ""
    cntAll = -1
    cntOne = -1
    
    N = FreeFile
    Open "C:	mp\myFile.txt" For Input As N
    Do While Not EOF(N)
        '1行読み込み
        Input #N, myText
        
        '空行でなければ1まとまり用の配列に保存
        If Len(myText) > 0 Then
            cntOne = cntOne + 1
            ReDim Preserve strOne(cntOne)
            strOne(cntOne) = myText
        End If
        
        '空行か、ファイルの終りになったら全体の配列用の配列に保存
        If Len(myText) = 0 Or EOF(N) Then
            cntAll = cntAll + 1
            ReDim Preserve strTextFile(cntAll)
            
            '配列strOneの内容を改行で区切って連結したものをセット
            strTextFile(cnt) = Join(strOne, vbCrLf)
            
            '次の為に1まとまり用の配列を初期化
            cntOne = -1
            Erase strOne
        End If
    Loop
    Close #N
End Sub

ラベルに全てのテキストデータを読み込みたい

質問の通り実行しましたが、Label1には 「ＣＣＣＣ」が表示されます。

VB の学習中のようですので回答の全てを示すべきかどうか迷うところですが・・・。

この回答への補足

#1さんの書かれている

>Me.Controls("label" & I).Caption = myTextの

この回答への補足

フォームの変数で

この回答への補足

こんな感じかなぁ。

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

質問の通り実行しましたが、Label1には　「ＣＣＣＣ」が表示されます。