VBSとCSVによるテキストデータの操作について

質問

識者の皆様、いつも参考にさせていただきありがとうございます。

VBSによるテキストファイルの操作についてお伺いします。
ファイルAにCSVのヘッダー行があり、ファイルBにCSVヘッダーとデータがあります。ファイルBにあるヘッダーはファイルAのヘッダーと部分で一致します。このとき出力先ファイルCで、ファイルAのヘッダーを持ち、ファイルBのデータを一致するデータ列にもったCSVを作成したいです。

具体例を出すと、　
ファイルAは1行目に Header1,Header2,Header3,Header4,Header5
のヘッダーのみをもちます。

ファイルBの1行目　 Header1, Header4,Header5
ファイルBの2行目　ABC,DEF,GHI
のように、一部のヘッダーとそれに対応するデータがあります。

VBSで処理後の出力先ファイルCは
ファイルCは1行目に Header1,Header2,Header3,Header4,Header5
ファイルCは２行目に ABC,,,DEF,GHI

のようにしたいです。
VBSで例示などいただけると幸いでございます。

回答No.4

imogasi · ベストアンサー

まだ開いていたので、一応の完成形の一例を挙げてみます。
例データ　CSVファイルの例を拾ったもの。
（見る場合は、下記をコピペして、メモ帳で開くこと。エクセルで開かないこと。）
全国地方公共団体コード,郵便番号,都道府県名,,,市区町村名,町域名,都道府県名,市区町村名,町域名
13101,1000000,ﾄｳｷｮｳﾄ,ﾁﾖﾀﾞｸ,東京都,千代田区
13101,1020072,ﾄｳｷｮｳﾄ,ﾁﾖﾀﾞｸ,ｲｲﾀﾞﾊﾞｼ,東京都,千代田区,飯田橋
13101,1020082,ﾄｳｷｮｳﾄ,ﾁﾖﾀﾞｸ,ｲﾁﾊﾞﾝﾁｮｳ,東京都,千代田区,一番町
13101,1010032,ﾄｳｷｮｳﾄ,ﾁﾖﾀﾞｸ,ｲﾜﾓﾄﾁｮｳ,東京都,千代田区,岩本町
13101,1010047,ﾄｳｷｮｳﾄ,ﾁﾖﾀﾞｸ,ｳﾁｶﾝﾀﾞ,東京都,千代田区,内神田
’ーーーー
コード例
フォルダ名とファイル名は適宜変えること。
VBSではあるが、ファイルを扱うので、FSOを使う。

Set fso = CreateObject("Scripting.FileSystemObject")
'----
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Set file1 = fso.OpenTextFile("C:\Users\XXXX\Desktop\csvデータ例5.csv")
Set file2 = fso.OpenTextFile("text1.csv", ForWriting, true)
'---------ファイルを読む
Do While file1.AtEndOfStream <> True
'// ファイルから1行取得
x = file1.ReadLine
msgbox x
'---チェック
l1=len(x)-len(replace(x,",",""))
if l1 > 3 then
'msgbox l1
else
msgbox "3列なし "
end if
'----------３番目のカンマを探索
s=1
for i=1 to 3 '３回カンマを探索
p=instr(s,x,",")
s=p+1
next
'------‐文字列を加工　,,　を挿入
str=mid(x,1,p) & ",," & mid(x,p+1,len(x)-p)
file2.WriteLine(str)
'---次レコードで繰り返し
Loop
'-----------------終了　
'ファイルをクローズ
file1.Close
file2.close
'オブジェクト消去
Set fso = nothing

メモ帳に上記をコピペして、拡張子を.VBSで保存すること。実行しやすいので、デスクトップに保存を、お勧めする。
このアイコンをDクリックして実行。

結果
（内容的、意味的には、ここに列挿入する内容ではなく、不自然ですが。）
D,E列に当たるところに空白列ができた。
全国地方公共団体コード,郵便番号,都道府県名,,,市区町村名,町域名,都道府県名,市区町村名,町域名
13101,1000000,ﾄｳｷｮｳﾄ,,,ﾁﾖﾀﾞｸ,東京都,千代田区
13101,1020072,ﾄｳｷｮｳﾄ,,,ﾁﾖﾀﾞｸ,ｲｲﾀﾞﾊﾞｼ,東京都,千代田区,飯田橋
13101,1020082,ﾄｳｷｮｳﾄ,,,ﾁﾖﾀﾞｸ,ｲﾁﾊﾞﾝﾁｮｳ,東京都,千代田区,一番町
13101,1010032,ﾄｳｷｮｳﾄ,,,ﾁﾖﾀﾞｸ,ｲﾜﾓﾄﾁｮｳ,東京都,千代田区,岩本町
13101,1010047,ﾄｳｷｮｳﾄ,,,ﾁﾖﾀﾞｸ,ｳﾁｶﾝﾀﾞ,東京都,千代田区,内神田
ヘッダーの見出しの文句に当たるもののセットは上記では略している。

回答No.3

imogasi

#1です。
VBSで、エクセルの行データの中へ空白列を２列入れる例をやってみました。
ただしVBSで、ファイルを読み書きする部分は略。
下記をコピーし、メモ帳に貼り付け。
D,E列は空白列として、元のD－＞F,E--＞G列へ、移す部分のコード例
ーーーーー。
x = "aa,ss,d,fffg,g"　’ ここはVBSでCSVファイルを毎行読みこんだ文字列部分に当たる。
l = 0
p=split(x,",")
msgbox p(0)
msgbox p(1)
msgbox p(2)
msgbox p(3)
msgbox p(4)
ReDim Preserve p(6)
p(5)=p(3)
p(6)=p(4)
p(3)=""
p(4)=""
'---
msgbox p(0)
msgbox p(1)
msgbox p(2)
msgbox p(3)
msgbox p(4)
msgbox p(5)
msgbox p(6)
y=join(p,",")
msgbox y
-------------
名前を付けて保存。どこでもよいが、感嘆のため、VBStest1.vbsでデスクトップに保存。ANSIで保存に注意。
デスクトップのそのアイコンをDクリック。
実行されて、画面に出る情報で、確認納得。
ーーー
別方法ですが、配列に入れず、文字列のままで、切り貼りで、三番目の「,」を見つけ、「,,」を挟み込む方法も考え着く方法です。

回答No.2

imogasi

#1です。
難しいことをいってしまったが、プログラムにこだわらなければ、簡単なことではないか？
エクセルに元のcsvデータを読みこんで,（シートの第1行目はHeader情報が出るでしょう）,
そののちエクセルシート上で、手操作で、指定の指定の位置で１列挿入（２箇所？）し、そのエクセルシートで、名前を付けて（別ファイルとして）保存する。
その時、ファイルの拡張子を「.csv」にする。
あと、エクスプローラで、その新ｃｓｖのファイルのアイコンで右クリックし「プログラムを指定して開く」で「メモ帳」（ソフト）を指定し、読み込んで確認すれば仕舞。
これ全体をマクロの記録を取って、VBA化もできそうだが意味はないだろう。

回答No.1

imogasi

丸投げではないか？そういうレベルの人が、なぜVBSを使うのか、わからん。
馴染みの多い、エクセルVBAでもできるが。
「ヘッダー」などというものを持ち出しているところから、作った人は、システム関連の人だろう。
その人に聞くのがよいだろう。
ーー
なぜファイルAを持ち出しているのか、訳がわからん。
大型コンピュータ時代はIBMなど、テープファイルには、Headerは仕組みとして、常備のものだったが、MSのパソコンのエクセルなどでは、ファイルの識別よりも、印刷時の共通情報のように見える。
参考　https://excel-excel.com/tips/vba_439.html
エクセルのファイル情報
ーーー
・１レコードを読むのは、ReadLineで
・項目に分けるのは　Split関数で、
・この配列の要素をズラして、ABC,,,DEF,ＧＨＩになるように、空白列２列用の空白データ配列要素を作り
・Ｓｐｌｉｔと上記加工をしたものをＪｏｉｎで文字列化して
・それをファイルＣの１レコードとして書き出せばよい。
https://www.kanaya440.com/contents/script/vbs/function/string/join.html
などGoogleで照会し記事をよめ。
Open,Close,Join,ReadLineなどもGoogleで「VBS　Readline」などで照会すれば、例示コードが出るはず。
ファイルAがＨｅａｄｅｒを作るためにだけで、挙げたなら、そんなことは、文字列を認識し、
ファイルＣの第１レコードを作ればよいことで、質問の話題から除外すべきことだ。
・ヘッダーレコードは最初の第１レコードに限る、例が多い？作者・利用者間で、約束を守れば２レコードでも差し支えないだろうが。
・使うほうで、約束事という、他の知識で、第１レコードがヘッダーかどうか伝える（仕様書などで）良いようなものの、はずだ。