csvデータの番号付加について。

質問

例題の
csvデータの内容が

配列1
aaaaa
aaaaa
aaaaa
bbbbb
bbbbb
bbbbb
bbbbb
bbbbb
bbbbb
ccccc
ccccc
だった場合、配列が1つ増え
↓
配列1　配列2
aaaaa 00001-1
aaaaa 00001-2
aaaaa 00001-3
bbbbb 00002-1
bbbbb 00002-2
bbbbb 00002-3
bbbbb 00002-4
bbbbb 00002-5
ccccc 00003-1
ccccc 00003-2

管理番号が増えていきます。

Sub main()
Dim branch As Long
Dim count As Long
Dim i As Long
Dim tmp As Long
tmp = FreeFile
Dim data As Variant

With CreateObject("Scripting.FileSystemObject").GetFile("C:\データ.csv").OpenAsTextStream
data = Split(.readall, vbCrLf)
End With

branch = 1
count = 1

Open "C:\出力データ.csv" For Output As #tmp
Print #tmp, data(i) & vbTab & Format(branch, "00000") & vbTab & count
For i = LBound(data) + 1 To UBound(data)
If data(i) = data(i - 1) Then
count = count + 1
Else
branch = branch + 1
count = 1
End If
Print #tmp, data(i) & vbTab & Format(branch, "00000") & vbTab & count
Next i
Close #tmp

End Sub

例えば、タブ区切りの配列が元データで5つあり
配列5番目だけを指定し、例題のようにcsvを作成したいのですが
配列の宣言はまだしておりません。
アドバイスいただけないでしょうか。
よろしくお願いいたします。

元データ

配列1　配列2　配列3　配列4　配列5
a 1 c a aaaaa
a 2 c b aaaaa
a 3 c c aaaaa
a 4 c d bbbbb
a 5 c e bbbbb
a 6 c f bbbbb
a 7 c g bbbbb
a 8 c h bbbbb
a 9 c i ccccc
a 0 c j ccccc

出力データ

配列1　配列2　配列3　配列4　配列5 配列6
a 1 c a aaaaa 00001-1
a 2 c b aaaaa 00001-2
a 3 c c aaaaa 00001-3
a 4 c d bbbbb 00002-1
a 5 c e bbbbb 00002-2
a 6 c f bbbbb 00002-3
a 7 c g bbbbb 00002-4
a 8 c h bbbbb 00002-5
a 9 c i ccccc 00003-1
a 0 c j ccccc 00003-2

回答No.3

HohoPapa · ベストアンサー

#2 HohoPapaです。
追記します。

タブ区切りのテキストファイルで、拡張子がcsvなんですね？
また、無駄なコードがあるので、直してみました。

Sub sample()

　Dim buf As String
　Dim tmp As Variant
　Dim ColCnt As Long
　Dim ChkData As Variant
　Dim n As Long
　Dim m As Long
　Dim l As Long 'Lineカウンター

　'変数の初期設定
　n = 0
　m = 0
　l = 0
　ChkData = ""

　Open "C:\test\Getdata.csv" For Input As #1
　Open "C:\test\Putdata.csv" For Output As #2

　Do
　　If EOF(1) Then Exit Do
　　Line Input #1, buf
　　l = l + 1
　　tmp = Split(buf, vbTab)

　　'列数算出
　　If l = 1 Then
　　　ColCnt = UBound(tmp)
　　End If

　　If ChkData = tmp(ColCnt) Then
　　　m = m + 1
　　Else
　　　m = 1
　　　n = n + 1
　　End If

　　Print #2, buf & vbTab & Format(n, "00000") & "-" & m
　　ChkData = tmp(ColCnt)

　Loop

　Close #1
　Close #2

End Sub

お礼

コードのご提示ありがとうございます。率直にいうと解決しました。区切りをカウントすればいいんですね。助かりました。エクセル上や、アクセス上でも、検証していたのですが、ファイル数が多いと作業効率が悪かったり、フィールドやレコード数が多いと、機能しなかったりで困ってました。今回はどうもありがとうございました。

回答No.2

HohoPapa

>例えば、タブ区切りの配列が元データで5つあり
>配列5番目だけを指定し、例題のようにcsvを作成したい

タブ区切りのテキストファイルがある。
このレコードの最終列をもとに
00001-1　の形式で、連番を付し、
これを最終列の後にに追加する。
ということでいいでしょうか？

一方、
Printで書き出すことのできるファイルなら
OpenAsTextStreamを使う必要はなく、
Line Inputでいいだろうと思います。

この仕様でよければ、
後記コードはいかがでしょうか？

Option Explicit

Sub sample()

　Dim buf As String
　Dim tmp As Variant
　Dim PutLine As String
　Dim ColCnt As Long
　Dim i As Long
　Dim ChkData As Variant
　Dim n As Long
　Dim m As Long
　Dim l As Long 'Lineカウンター

　'変数の初期設定
　n = 0
　m = 0
　l = 0
　ChkData = ""

　Open "C:\test\Getdata.txt" For Input As #1
　Open "C:\test\Putdata.txt" For Output As #2

　Do
　　If EOF(1) Then Exit Do
　　Line Input #1, buf
　　l = l + 1
　　tmp = Split(buf, vbTab)

　　'列数算出
　　If l = 1 Then
　　　ColCnt = UBound(tmp)
　　End If

　　If ChkData = tmp(ColCnt) Then
　　　m = m + 1
　　Else
　　　m = 1
　　　n = n + 1
　　End If

　　PutLine = ""
　　For i = 0 To ColCnt
　　　PutLine = PutLine & tmp(i) & vbTab
　　Next i
　　PutLine = PutLine & Format(n, "00000") & "-" & m
　　ChkData = tmp(ColCnt)
　　Print #2, PutLine _

　Loop

　Close #1
　Close #2

End Sub

回答No.1

imogasi

「配列」という、用語の使用法に違和感を持った。
それで、質問で何を求めているか、理解に迷う。
例えば、「https://www.pc-master.jp/sousa/csv.html
の「列・項目のことをフィールド、行のことをレコードといいます」のフォールド
の意味で、項目やフィールドというほうが、よいのでは。
ーーー
データが完成後に、（オフラインバッチ処置）、番号データをデータの新フィールドにくわえるのなら、（使えるVBAコードも、すでにできているのだから）質問するまでもないようにおもうが。
ーー
普通は別項目に基づいて（例えば、店別付番を班別附番も加える場合など）
各項目別にソートし直して、附番プログラムを使えばできるのでは。
その際、FSOにはソートユテリティ、ステートメント・コマンド？がなかったと思うので、どうするか。
一旦エクセルシートを使うか。
　こういうのは、小生の勘違いだろうか。
＝＝＝
もしこの状態で、適当な回答が出なければ、質問の趣旨を説明してみてほしい。