- 日時： 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
|
不特定の列数のCSVファイルの取込(VB6.0)