| 投稿日 | ： 2002/11/27(Wed) 15:27 |
| 投稿者 | ： 花ちゃん |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： 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