スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

テキストファイルの後に文字列を挿入するバッチ

気軽に「こんなソフトありませんか?」Part.163
http://anago.2ch.net/test/read.cgi/software/1402006401/
の850氏の投稿を見てなんかやる気が湧いてしまった。
実用性ゼロのバッチ。

使い方

  1. insert_txt.txtを作成、挿入する文字列を書く。改行可能。ただしコマンドプロンプトの制限で一行あたりWindows2000以前は2047文字、XP以降は8191文字までになる。
  2. 対象ファイルとinsert_txt.txtを同じフォルダーに
  3. バッチの2行目、C:\1をそのフォルダーのパスに書き換え
    setlocal
    pushd C:\1
    dir /b >dir_b.txt
    set /a skip_num=0
    
  4. ダブルクリックでバッチ実行

バッチ

setlocal
pushd C:\1
dir /b >dir_b.txt
set /a skip_num=0

:for_loop
pause
set /a skip_num=%skip_num%+1
for /f "skip=%skip_num% tokens=1" %%i in (dir_b.txt) do call :process %%i

:process
set file_name_old=%file_name%
set file_name=%*
if "%file_name_old%."=="%file_name%." goto :quit
REM 前回処理したファイル名と今回処理予定のファイル名が一致したらもう処理は完了してるので殺す
if "%file_name%."=="." goto :quit
REM dir /b の結果が空行になったらそれはエラーなので殺す
if not "%file_name:~-4,4%."==".txt." goto :for_loop
REM 拡張子が.txtじゃないなら飛ばす
if "%file_name%."=="insert_txt.txt." goto :for_loop
if "%file_name%."=="dir_b.txt." goto :for_loop
if "%file_name%."=="ファイルが見つかりません." goto :quit
echo.>>%file_name%
REM 改行の挿入
for /f "tokens=* delims=" %%i in (insert_txt.txt) do echo %%i >>%file_name%
REM insert_txt.txtは挿入する文字列が記されたファイル
goto :for_loop

:quit
echo 処理終了
endlocal
pause
exit
スポンサーサイト

コメントの投稿

非公開コメント

検索フォーム
デジタル・コルクマ3
コルクマワールド
東京 での時間:
更新履歴


総記事数:
Calendar 1.1
<
>
- - - - - - -
- - - - 1 23
4 5 6 7 8 910
11 12 13 14 15 1617
18 19 20 21 22 2324
25 26 27 28 29 30 -

全記事

Designed by 石津 花

最新記事
カテゴリ
最新コメント
最新トラックバック
月別アーカイブ
リンク
RSSリンクの表示
ブロとも申請フォーム

この人とブロともになる

QRコード
QR
プロフィール

yumetodo

Author:yumetodo
FC2ブログへようこそ!

Powered By FC2ブログ

今すぐブログを作ろう!

Powered By FC2ブログ

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。