質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

90.76%

  • VBScript

    216questions

    VBScript(Visual Basic Scripting Edition)はMicrosftが開発したスクリプト言語であり、Visual Basicのサブセットです。

vbs:csv条件毎結合の方法が知りたい

解決済

回答 1

投稿

  • 評価
  • クリップ 0
  • VIEW 764

manataku

score 15

実現したいこと
同じフォルダの中に"AAA"から始まるファイル名と"ccc"から
始まるファイルの2種類のCSVがあり、ファイル名を項目追加し、
vbsにて種類毎に結合したい。

環境 windows7 pro 64bit

試したこと
既出の下記コードを参考にフォルダ内にあるCSVファイルを
結合することはできましたので、条件を特定のファイル名を含むにするため、
下記のように変更しましたが無反応でした。

**objRE.Pattern = "\.csv$" **

→ "^aaa.*\.csv$"

特定の文字を含むCSVファイルを対象に結合させるにはどのような
正規表現にすれば良いかアドバイス頂けないでしょうか。

'----ここからコード
Set objRE = CreateObject("VBScript.RegExp")
'検索条件の設定
objRE.Pattern = "\.CSV$"

For Each FileName In Folder.Files
 
  If objRE.Test(Lcase(FileName)) Then
    LineNum = 1
    Set ReadCsv = fso.OpenTextFile(FileName)

    Do Until ReadCsv.AtEndOfStream = True
      OutTmp = FileName & "," & LineNum & "," & ReadCsv.ReadLine()
      OutTxt.WriteLine(OutTmp)
      LineNum = LineNum + 1
    Loop
    
    ReadCsv.Close()
  End if
Next

OutTxt.Close()

set fso = Nothing
set Folder = Nothing
set objRE = Nothing

'----ここまで
  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

回答 1

checkベストアンサー

+1

これでちゃんと動きます。
エラーハンドリングなどを手厚く実施したために少し長くなっています。
これで一度試してみて下さい。

 ' CSVのマージ実施
 Call MergeCsv

Sub MergeCsv()

    ' 変数宣言
    Dim fso
    Dim path

    ' オブジェクト初期化
    Set fso = CreateObject("Scripting.FileSystemObject")

    ' 処理対象フォルダパス取得
    path = InputBox("処理対象フォルダパスを入力して下さい", "情報入力")

    ' 入力されなかった場合は処理終了
    If path = "" Then
        MsgBox "処理対象フォルダパスが入力されませんでした。", vbCritical + vbOKOnly, "エラー"
        Exit Sub
    End If

    ' 入力されたフォルダが存在しない場合は処理終了
    If Not fso.FolderExists(path) Then
        MsgBox "処理対象フォルダパスは存在しません。", vbCritical + vbOKOnly, "エラー"
        Exit Sub
    End If

    Call MergeCsvSub(path, "AAA")
    Call MergeCsvSub(path, "CCC")

    ' オブジェクト開放
    Set fso = Nothing

    ' 結果出力
    MsgBox "処理が終了しました。" & vbLf & "処理対象フォルダ内のファイルを確認して下さい", vbInformation + vbOKOnly, "処理完了"

End Sub


Sub MergeCsvSub(path, pReg)

     ' 変数宣言
    Dim re, fso, file, textStream
    Dim lineNum
    Dim mergedText
    Dim time

    ' オブジェクト初期化
    Set re = CreateObject("VBScript.RegExp")
    Set fso = CreateObject("Scripting.FileSystemObject")

    ' 検索条件の設定
    With re
        .Global = True
        .IgnoreCase = True
        .Pattern = "^" & pReg & ".*\.csv$"
    End With

    ' 結合結果初期化
    mergedText = ""

    ' 全ファイル走査
    For Each file In fso.GetFolder(path).Files

        ' 条件に合致するファイルのみ処理
        If re.Test(file.Name) Then

            ' テキスト取得
            Set textStream = fso.OpenTextFile(file.path)

            ' 行数初期化
            lineNum = 1

            ' 全行走査
            With textStream
                Do Until .AtEndOfStream

                    ' 結合後テキストを生成
                    If mergedText <> "" Then
                        mergedText = mergedText & vbLf & file.Name & "," & lineNum & "," & .ReadLine()
                    Else
                        mergedText = mergedText & file.Name & "," & lineNum & "," & .ReadLine()
                    End If

                  ' カウンタアップ
                  lineNum = lineNum + 1

                Loop

                ' テキストを閉じる
                .Close

                WScript.Echo file.Name & "を処理しました"

            End With

        End If

    Next

    ' 時刻取得
    time = Year(Now())
    time = time & Right("0" & Month(Now()), 2)
    time = time & Right("0" & Day(Now()), 2)
    time = time & Right("0" & Hour(Now()), 2)
    time = time & Right("0" & Minute(Now()), 2)
    time = time & Right("0" & Second(Now()), 2)

    ' 結果出力
    With fso.OpenTextFile(path & "\" & pReg & "result_" & time & ".csv", 2, True, -2)
        .Write mergedText
        .Close
    End With

    ' オブジェクト開放
    Set re = Nothing
    Set fso = Nothing
    Set file = Nothing
    Set textStream = Nothing

End Sub

投稿

編集

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2017/09/19 20:18

    baseballyamaさん
    早速のご回答ありがとうございました。
    コードを.vbsにて保存し実行したところ、
    結果が何も出力されず、メッセージも表示されませんでした。
    下記の実行方法が正しいか見て頂けないでしょうか。

    csvmerge.vbs
    フォルダ内に対象ファイルを保存
    ファイル名
    AAA001_output.csv
    ccc001_output.csv
    AAA002_output.csv
    ccc002_output.csv

    ダイアログにて対象フォルダ名を入力後、応答なしになります。
    タスクマネージャーのプロセスを見るとwscript.exeが動いているようですが。。


    期待する結果
    AAA.txt(AAA001_output.csv+AAA002_output.csv)
    ccc.txt(ccc001_output.csv+ccc002_output.csv)

    環境など確認すべきところはありますでしょうか。
    よろしくお願い致します。

    キャンセル

  • 2017/09/19 20:56 編集

    すいません、少し要件を勘違いしていました。
    ファイルやファイルサイズが大きいとどこまで実行されたのかわからなくなるので、
    cscript "vbsのファイルパス"
    をバッチ実行して頂けますか。どこまで処理が終わったかをリアルタイムで確認できます。
    ※プログラムは修正してます。

    キャンセル

  • 2017/09/20 10:08

    baseballyamaさん
    ご回答ありがとうございます!
    要件の記載が分かりづらくすいません。
    修正コードを実行したところ前回と同じくフォルダパス入力後、
    5分ほど待っても何も動きがありませんでした。
    リアルタイムで確認可能なバッチファイルですが、
    cscript "C:\Users\Desktop\merge.vbs"とテキストファイルに記載し、拡張子.batで保存しましたが合ってますでしょうか。
    コマンドからcscript C:\Users\Desktop\merge.vbs としても特に動きはありませんでした。初歩的な質問ばかりで恐縮ですが、何か間違っておりましたらご指摘いただけばと思います。

    キャンセル

  • 2017/09/20 10:27

    起動方法については説明が雑でした。
    コマンドプロンプトから
    cscript "vbsのパス"
    で起動して下さい。(ご記載の下の方法で正しいです)

    すいませんが、すぐに原因が特定できないので何回か質問させて下さい。

    まずは、
    ファイル数と大体のファイルサイズを教えて下さい。

    キャンセル

  • 2017/09/22 09:20

    baseballyamaさん
    回答遅くなり申し訳ありません。
    ファイル数は日別で最大一か月分あり、1ファイル20~30メガほどになります。
    作業の度にすべてのファイルを結合するのも非効率であるため、
    前日までの蓄積+当日分にしたいと考えております。
    コマンド実施方法についてありがとうございます。
    コマンドから実行致します。

    キャンセル

  • 2017/09/22 10:09

    1ファイルがそんなに大きいとは想定していませんでした。
    vbsはスクリプトなので非常に処理速度が遅いです。20-30Mのファイルのマージは相当時間がかかると想定しています。
    気長に待つか、Javaで実装し直すのが良いと思います。

    キャンセル

  • 2017/09/22 12:00

    承知しました。
    回答ありがとうございました!

    キャンセル

15分調べてもわからないことは、teratailで質問しよう!

  • ただいまの回答率 90.76%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる

関連した質問

同じタグがついた質問を見る

  • VBScript

    216questions

    VBScript(Visual Basic Scripting Edition)はMicrosftが開発したスクリプト言語であり、Visual Basicのサブセットです。