大量のテキストファイルを結合する必要に迫られています。
単純に結合するだけなら、そういった用途のソフトは多くありますので問題はありません。
しかし今回、テキストファイルのファイル名を、そのテキストファイル内の文章の先頭に入れ、その上でテキストファイルを結合する必要が出てきました。
ファイル名に法則性が無く、なおかつファイル名そのものがそのテキストファイルの内容を意味するものとなっており、どうしても上で書いたような処理が求められるのです。
また、出来ればフォルダごとドロップすることでフォルダ内のテキストファイルを上に書いたような処理をしたうえで結合し、その結合された新しいテキストファイルの名前に、フォルダの名前を付けてくれるソフトであれば、なおありがたいです。
模式図で示すと以下のようになります。
フォルダ「A」
┣ファイル「ファイル01」
┃ 文章「文文文文文文文」
┣ファイル「ファイル02」
文章「文文文文文文文」
この状態で、フォルダAをドロップすることで、
ファイル名「A」のテキストファイルが出来、
その中身が、
>ファイル01
>文文文文文文文
>
>ファイル02
>文文文文文文文
となるソフトです。
このような機能を持ったテキスト結合ソフトがございましたらご教授下さい。
もしなければ、上記の機能を実現する方法が他にあるかお教え頂ければ幸いです。
どうぞよろしくお願いします。
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
下のスクリプトを、HSPという無料のインタプリタ言語でEXE化することで、フォルダをEXEファイル上にドロップして希望のようなテキストファイルを出力できるようになります。
HSPはここから(http://hsp.tv/)ダウンロードできます。//以下HSPスクリプト
#packopt hide 1
#module
#uselib "user32"
#func CharLowerA "CharLowerA" var
#defcfunc foldercheck str p1
mref ref,65 : s5=p1 : CharLowerA s5 : dirlist s2,"*.*",5 : CharLowerA s2 : notesel s2 : s4=0 : repeat notemax : noteget s3,cnt : if s3=s5{s4=1 : break } loop : ref=dir_cur+"\\"+p1 : noteunsel : return s4
#global
dir_main=dir_cur : filename=dir_cmdline : if filename=""{dialog "結合するフォルダをドロップしてください":end} : repeat : lines=instr(filename,c,":") : if lines!-1{c+lines+1 : filelen+}else{break}loop : if filelen!1{dialog "複数のファイルをドロップしています。",1,"警告":end} : chdir getpath(filename,32) : if foldercheck(getpath(filename,8))=0{dialog "フォルダ以外のファイルをドロップしています。",1,"警告":end}sdim list : sdim s1 : sdim memory : chdir filename : dirlist list, "*.txt", 1 : notesel list : ok=0 : repeat notemax : noteget s1,cnt : if strmid(s1,-1, 4)=".txt"{ok=1}loop : if ok=0{dialog "テキストファイル(*.txt)がフォルダに存在しません",1,"Error" : end 0}sdim savedata,64 : repeat notemax : noteget s1,cnt : savedata+=getpath(s1,1)+"\n" :notesel memory : noteload s1 : savedata+memory+"\n\n" :noteunsel : loop : chdir dir_main : if foldercheck("text")=0{mkdir "text"}wait 0 : chdir "text" : notesel savedata : exist getpath(filename,8)+".txt" : if strsize!-1{dialog "\""+getpath(filename,8)+".txt"+"\"\n同じ名前のファイルが存在します。上書きしますか?",3,"確認"}if stat=7{end}notesave getpath(filename,8)+".txt" : dialog "\""+dir_cur+"\\"+getpath(filename,8)+".txt\"\nに出力しました。":end
参考URL:http://hsp.tv/
No.1
- 回答日時:
恐らくwindows環境だと想定して、
cygwinというツールをインストールすればできます。
上記の例ですとcygwinのシェルから
$ for i in `find フォルダ「A」 -type f`; do echo $i; cat $i; done >foo
てな感じにやってやると、フォルダ「A」配下のすべてのファイルを
上記フォーマットでfooというファイルに出力します。
Mac, Linuxであれば標準の環境で上記操作が可能です。
参考URL:http://www.cygwin.com/
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelでdatファイルを作成??
-
バッチファイルが作成できない
-
複数のテキストファイルをexcel...
-
VBAからファイルをzip化したい
-
batファイル処理でのテキストフ...
-
複数のテキストファイルをexcel...
-
テキストファイルの文字色に色...
-
複数のファイルを同時検索し、...
-
エクセルにpdfのテキストを表示...
-
複数のテキストファイルをまと...
-
1フォルダに保存できるファイル...
-
フォルダ作成用バッチファイル...
-
VBAでファイルパスが長すぎてコ...
-
【Excel VBA】PDFを作成して,...
-
処理を別ファイルに書きたいん...
-
FFFTPでサーバに新規フォルダが...
-
fopenでNULLを返されるがGetLas...
-
VBAでFTPファイル転送がうまく...
-
Microsoft Access エラー 3051
-
エクセルVBA フォームを開く時...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelでdatファイルを作成??
-
複数のテキストファイルをexcel...
-
テキストファイルの文字色に色...
-
batファイル処理でのテキストフ...
-
バッチファイルが作成できない
-
複数のファイルを同時検索し、...
-
一気にずばっと複数のメールを...
-
マクロでメモ帳に貼り付け
-
CADでグラフ作成
-
ファイル名の特定文字だけ削除...
-
windowsへscp
-
インデザインのテキスト流し込み
-
VBSでテキストファイルのタブ区...
-
ExcelVBA テキストファイルから...
-
テキストファイルを開かずに中...
-
CDの曲名をテキストファイルで...
-
VBAからファイルをzip化したい
-
WORD VBAでテキストファイルを...
-
アクセスログのテキストファイ...
-
複数テキストファイルをエクセ...
おすすめ情報