VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日: 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


- 関連一覧ツリー (★ をクリックするとツリー全体を一括表示します)

- 返信フォーム (この記事に返信する場合は下記フォームから投稿して下さい)

- VBレスキュー(花ちゃん) - - Web Forum -