フォロトップ:この会議室が所属するフォロのトップページへ移動します 会議室トップ:この会議室のトップページへ移動します トピック一覧:この会議室内のトピックを一覧表示します おすすめレビュー:この会議室に関連付けられたレビューを一覧表示します 発言者一覧:この会議室に発言したことのあるメンバーを一覧表示します 会議室に参加:この会議室への参加登録が出来ます
文字サイズ変更: [] [] []
お目当てのフォロへGO! 
オフィシャル
エンタメ
スポーツ
文化・趣味
コンピュータ
くらしと健康
芸術・学問
ビズと社会
地域・年代
ノンジャンル


2008年10月10日
15:04
【97】  CSVファイルを行末に追加したいのですが
コマンドプロンプトを使用して2つのCSVファイルを結合したいです
ただ単純に結合するのではなく、行末に追加したいのですが、可能でしょうか?

例)
A.csvとB.csvを結合して以下のC.csvを作成したい

A.csv
------------
[AAA][bbb][ccc]
12 12 15
0 5 2
2 5 6
------------

B.csv
------------
[ddd][eee][fff]
10 2 1
0 7 2
2 9 6
------------

C.csv(得たい結果)
------------
[AAA][bbb][ccc][ddd][eee][fff]
12 12 15   10 2 1
0 5 2    0 7 2
2 5 6     2 9 6
------------

コマンドプロンプト初心者のため、ご迷惑をかけすると思いますが
よろしくお願いいたします
コメント
2008年10月11日
21:17
AとBの行数は絶対に同じという前提で良いんですよね。
行の結合はバッチのコマンド機能では無理ではありませんが、非常にわかりにくくなります。
また、一旦ファイル全体を変数に格納することになるので、大きなファイルは扱えません。
VBScript+WSHの方が良いですね。

Set fso = CreateObject("Scripting.FileSystemObject")
Set fa = fso.OpenTextFile("A.TXT", 1)
Set fb = fso.OpenTextFile("B.TXT", 1)
Set fc = fso.OpenTextFile("C.TXT", 2, True)

Do Until fa.AtEndOfStream
a=fa.ReadLine
b=fb.ReadLine
fc.WriteLine(a+b)
Loop

fa.Close
fb.Close
fc.Close

というファイルketsugou.vbsを作って、
cscript //nologo ketsugo.vbs
で実行。
上では単純に行を結合してますが、a+b のところを a+","+b にするとカンマをはさみ、a+vbTab+b にするとタブをはさみます。
2008年10月24日
10:19
返信おそくなりもうしわけありません
試してみました!!

やっぱりコマンドプロンプトでは限界だったんですね
VBS初めてやってみたのですが、見よう見まねでどうにかできました
ありがとうございます

しばらくしても投稿がなかったため、見ていませんでした
申し訳ありません
ご教授ありがとうございました!!!
すべて表示 1番~2番を表示
 コメントするにはfolomyへの会員登録ならびにログインが必要です。 folomyに入会する
ログインする(すでに登録済みの方)
----