配列１要素に一行分の文字列を入れるには？ (ID:88335)

名前

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

本文 こんな感じでしょうか Dim temp As String '各行のデータを一時的に保持する変数 Dim iFileNo As Integer Dim targetRec As Integer Dim strRecord(1 To 20) As String 'データを格納する配列 iFileNo = FreeFile Open "C:\File\DB.txt" For Input As #iFileNo targetRec = 1 Do Until EOF(iFileNo) Or targetRec > 20 'データを1件(1行)ずつ読み込む Line Input #iFileNo, temp '読み込んだデータ（行）が「スペースのみ」か「改行のみ」の場合 If Trim$(temp) = "" Then Exit Do 'ファイル読み込み終了 Else '文字列が存在する場合 'データを一行ずつ要素（配列）に格納する strRecord(targetRec) = temp 'データをリストボックスに表示 list_Test.AddItem temp targetRec = targetRec + 1 End If Loop