|
▼ネココ さん:
>■CSVファイルの例
>3,4,5,6,名古屋,0123,1
>左から6コ目の4桁の数字を1桁ずつカンマで区切る方法を教えて下さい。
>Line Input #1, CSVData の後に加工ができれば、と思っています。
Dim CSVData As String
Dim dat
Dim dt(1 To 4) As String
Dim ss As String
'Line Input #1, CSVData '一行読み込む
CSVData = "3,4,5,6,名古屋,0123,1" '<--- 読み込んだ文字列(テスト用)
Debug.Print CSVData
dat = Split(CSVData, ",")
'左から6コ目の4桁の数字を1桁ずつカンマで区切る
ss = dat(5) '<--------- 左から6コ目のデータ
dt(1) = Mid$(ss, 1, 1)
dt(2) = Mid$(ss, 2, 1)
dt(3) = Mid$(ss, 3, 1)
dt(4) = Mid$(ss, 4)
dat(5) = Join(dt, ",")
CSVData = Join(dat, ",") '編集後のCSVData
Debug.Print CSVData
|
|