tagCANDY CGI VBレスキュー(花ちゃん) - VBレスキュー(花ちゃん)の投稿サンプル用掲示板 - Visual Basic 6.0 VB2005 VB2010
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ
VBレスキュー(花ちゃん)の投稿サンプル用掲示板
     サンプル投稿用掲示板  VB2005 〜 用トップページ  VB6.0 用 トップページ
不特定の列数のCSVファイルの取込(VB6.0) ( No.0 )  [親スレッドへ]
日時: 2007/09/14 20:43
名前: 花ちゃん

***********************************************************************************
* カテゴリー:[ファイル入出力][][]                                                *
* キーワード:CSVファイル,読み込み,,,,                                            *
***********************************************************************************

元質問内容     不特定CSV取込 - 砂嵐 2002/11/27-10:13 No.1572

たとえば  テキストファイル(csvファイル)の中身が
1,東京,435,54
2,大阪,543
3,名古屋
4,福岡
の様に列数がばらばらの場合どうしたらよいですか?
-----------------------------------------------------
-------------------------------------------------------------------------
投稿時間:2002/11/27(Wed) 15:27          No.1586
投稿者名:花ちゃん
タイトル:Re^3: 不特定CSV取込(これではだめ!)
-------------------------------------------------------------------------

下記ではだめでしょうか? 但しVB6.0 (VB5.0 では不可)

Private Sub Command1_Click()
    Dim strTextLine As String
    Dim TmpTxt()    As String
    Dim dataN       As Integer
    Dim i           As Long
    Dim intFileNo   As Integer
    intFileNo = FreeFile
    Open "c:\sample.csv" For Input As #intFileNo
    Do While Not EOF(intFileNo)
        Line Input #intFileNo, strTextLine
        TmpTxt = Split(strTextLine, ",")
        dataN = UBound(TmpTxt)
        For i = 0 To dataN
            Debug.Print Replace(TmpTxt(i), """", "") & "   ";
        Next i
        Debug.Print
    Loop
    Close #intFileNo
End Sub



 [スレッド一覧へ] [親スレッドへ]