| 投稿日 | ： 2007/03/07(Wed) 00:55 |
| 投稿者 | ： べた |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^4: カンマ区切りのCSVファイルの読み込み |
ありがとうございます。
ソースコードを記載します。
ファイルから読み込み、テキストボックスに表示しています。
確認しやすいように、文字列と文字列をコロンで区切っています。
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:\tmp\sample2.txt" For Input As #intFileNo
Do While Not EOF(intFileNo)
Line Input #intFileNo, strTextLine
TmpTxt = Split(strTextLine, ",")
dataN = UBound(TmpTxt)
For i = 0 To dataN
If i = 0 Then
Text1.Text = Text1.Text & Replace(TmpTxt(i), """", "")
Else
Text1.Text = Text1.Text & ":" & Replace(TmpTxt(i), """", "")
End If
Next i
Text1.Text = Text1.Text & Chr(13) & Chr(10)
Loop
Close #intFileNo
End Sub
読み込んだデータ
"1ABC,DEF,GHI","JKL,MNO","123,456",3ABC,DEF,GHI"
"2ABC,DEF,GHI","JKL,MNO","3ABC,DEG,GHI"
"3ABC,DEG,GHI","3ABC,DEF,GHI"
"4ABC,DEG,GHI"
テキストボックスに表示した結果
1ABC:DEF:GHI:JKL:MNO:123:456:3ABC:DEF:GHI
2ABC:DEF:GHI:JKL:MNO:3ABC:DEG:GHI
3ABC:DEG:GHI:3ABC:DEF:GHI
4ABC:DEG:GHI
Splitの結果がどうしてもカンマで行われ、UBoundの結果がカンマの数に
なります。