投稿日 | : 2005/08/10(Wed) 02:25 |
投稿者 | : Starfish |
Eメール | : |
URL | : |
タイトル | : Re: テキストファイルの読み込み |
> テキストファイルに保存した情報
> をリストボックス、そっくり読み込みたいのですが
> 改行が含まれず、困ってます。
テキストファイルをリストボックスに表示するなら、
改行コードはいらないのでは?
Private Sub Command1_Click()
Dim strTextLine As String
Open "c:\temp\samp.txt" For Input As #1 ' ファイルを開きます。
Do While Not EOF(1) ' ファイルの終端までループを繰り返します。
Line Input #1, strTextLine ' 行を変数に読み込みます。
List1.AddItem strTextLine ' リストボックスに表示します。
Loop
Close #1
End Sub