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

投稿日： 2003/06/18(Wed) 21:55
投稿者： 花ちゃん
Ｅメール：
ＵＲＬ：
タイトル： Re: CSVファイル操作について

結論から言えば先頭からしか読み込むしかありません。
ここのファイル操作関係やFileSystemObject関係をみておいて下さい。
ただ、FileSystemObjectを使って読み飛ばしをすれば、それに近い事はできます。
（FileSystemObject関係の最後の項目参照）
又、１０件位のレコードなら最初から読んでも途中から読んでも殆ど変わらないかと
思うのですが、なぜ途中から読む必要があるのですか？
場合によっては目的を達成する方法があるかもしれません。
（ファイルが大きくて読み込みに時間がかかるので必要な部分だけを読み込みたい時など）

このような事もできます。
Private Sub Command1_Click()
    Dim Fso     As New FileSystemObject
    Dim FsoTS   As TextStream
    Dim myText  As String
    Set FsoTS = Fso.OpenTextFile("c:\test.csv")
    With FsoTS
        Do Until .AtEndOfStream
            Select Case .Line
                Case 1, 3, 7, Is > 9
                    myText = myText & .ReadLine & vbNewLine
            Case Else
                .SkipLine
           End Select
        Loop
    End With
    FsoTS.Close
    Set FsoTS = Nothing
    Debug.Print myText
End Sub

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- Web Forum -