メモ帳の内容をタイトルと内容に分け別々のファイルにする方法

Question

○○1.bat aaaaa
○○2.bat bbbbb
○○3.bat ccccc
・
・
・

のように書かれたメモ帳(.txt)を書き出しました。これをそれぞれ分けたいです。例えば○○1.batというバッチファイルを作り、中身をaaaaaとし、同じように○○2.batや○○3.bat以降も作っていきたいです。

VBAやコマンドプロンプトを使ったやり方を考えており、色々調べましたが上手くタイトルと中身を分ける方法が分かりません。メモ帳とは別にExcelファイルで似たような表を作り別々のバッチファイルを作る方法も考えましたが、上手く行きません。

どなたかわかる方いらっしゃいましたらご教示ください。

Comments

[kanako_313]

busyboxというものをインストールまたはダウンロードすればできることを教えていただきました。すごく助かります。
ただ、会社のpcだとインストール、ダウンロードができないものが多く、許可されていないかも知れません。
何らかのインストール、ダウンロードなしで、例えばVBAまたはコマンドプロンプトを使って実行する方法はないでしょうか。
ご存知の方がいらっしゃいましたらご教示いただければ幸いです。

Answer 1

こういうのはawkを使うのが一番簡単です。本格的にやるならMSYS2とかをインストールするのがいいのですが、ここでは一番簡単にお試しができるbusybox版を使ってみます。

1. まず作業用ディレクトリを作ります
2. 質問にある内容のテキストファイルを作業用ディレクトリ上に作成します（ここではtest.txtとします）。
3. 次にawkを使えるようにします。busyboxをダウンロードしてPATHを引いたディレクトリ（よく分からなければとりあえず作業ディレクトリでいい）に置きます。
4. コマンドラインを開きます（［Windows］＋［R］キーを押し、「cmd」と入力して、［Enter］キーを押す）。
5. コマンドライン上でcd 作業ディレクトリと打ち込み、作業ディレクトリに移動します。
6. 次のように打ち込んでawkに仕事をさせます。

busybox awk '{print $2>$1}' test.txt

これで各行の内容を反映したbatファイルが出来ているはずです。

参考:
windows上でテキストデータいじるならbusyboxを使ってみよう！ もうエクセル要らないかもよ - Qiita

Comments

[kanako_313]

ご回答ありがとうございます。
的確な回答をいただき嬉しいです。
明日確認してみますが、会社の規則でbusyboxをインストール出来ないかもしれないです。
コマンドプロンプトやExcelの表にしてVBAを使うなどでどうにかする方法はないでしょうか。
無理を言って申し訳ありません。ご存知でしたらお手隙の際にご返信いただければ幸いです。

[KojiDoi]

busyboxは「インストール」しなくていいのが利点です。busybox64.exeがUSBメモリとかに入れてあっても構いません。USBメモリがたとえばEドライブだったとしたら、e:busybox awk ...のように呼び出せます。

[kanako_313]

ありがとうございます。調べてみました。
インストールだけでなく、ダウンロードも制限されているので、出来ないかもしれませんが、明日確認してみます！
お付き合い下さりありがとうございました！

Answer 2

Excelが使えるならこんな感じでどうでしょうか。

	A	B
1	○○1.bat	aaaaa
2	○○2.bat	bbbbb
3	○○3.bat	ccccc

Sub sample()
    Dim ws As Worksheet, i, fn, txt
    Set ws = ActiveSheet
    For i = 1 To ws.UsedRange.Rows.Count
        fn = ws.Cells(i, 1).Value
        txt = ws.Cells(i, 2).Value
        SaveText txt, fn
    Next
End Sub

Function SaveText(txt, fn)
    With CreateObject("Scripting.FileSystemObject")
        If Not .FileExists(fn) Then .CreateTextFile fn
        With .OpenTextFile(fn, 2)
            .WriteLine txt
            .Close
        End With
    End With
End Function

Comments

[kanako_313]

ありがとうございます！実際に実行出来ました！
しかしこちらの都合でテキストのセルを3つに分けようと思いjinojiさんのコードを少し変えてみたのですが、｢中断モードでコードを実行することはできません｣と出てきてしまい。上手く行きません。解決方法はご存知でしょうか。
以下が実際に変えてみたものです。

Sub 新ファイルを大量に作成するマクロ()

Dim ws As Worksheet, i, fn, txt1, txt2, txt3
Set ws = ActiveSheet
For i = 1 To ws.UsedRange.Rows.Count
fn = ws.Cells(i, 1).Value
txt1 = ws.Cells(i, 2).Value
txt2 = ws.Cells(i, 3).Value
txt3 = ws.Cells(i, 4).Value
SaveText txt1, txt2, txt3, fn
Next
End Sub

Function SaveText(txt1, txt2, txt3, fn)
With CreateObject("Scripting.FileSystemObject")
If Not .FileExists(fn) Then .CreateTextFile fn
With .OpenTextFile(fn, 2)
With .OpenTextFile(fn, 3)
With .OpenTextFile(fn, 4)
.WriteLine txt
.Close
End With
End With
End Function

もちろん既に教えていただいたことで十分ありがたいので、お忙しいようでしたら気にしないでください。

[kanako_313]

.WriteLine txtを.WriteLine txt1, txt2, txt3に変えてみてもダメでした

[jinoji]

テキストのセルが３つなら、たとえば
txt = ws.Cells(i, 2).Value
のところを、
txt = ws.Cells(i, 2).Value & ws.Cells(i, 3).Value & ws.Cells(i, 4).Value
に変えたらいけるように思いますが。

[jinoji]

あるいは、改行でつなげたいなら
txt = WorksheetFunction.TextJoin(vbLf, True, ws.Range(ws.Cells(i, 2), ws.Cells(i, ws.Columns.Count).End(xlToLeft)))
みたいな感じでいけそうな気がします。