フォルダ内不要階層の排除AwkScript

フォルダの中にファイル(フォルダ)が1個だけという無駄な階層を削除する。

つまり
c:\aaa\bbb\ccc\ddd.txt
c:\aaa\bbb\ccc\eee.txt

c:\aaa\fff\ggg.txt

のファイルがあるとき、a:\aaaをカレントパスとしてCMDを開き、

allonefile.batを実行すると
c:\aaa\bbb@ccc\ddd.txt
c:\aaa\bbb@ccc\eee.txt

c:\aaa\fff@ggg.txt

のファイル構成に変更してくれる訳だ。

安全のため、逆に"@"が含まれるファイル(フォルダ）を元に戻すヤシも提供。

unonefile a:\aaa@bbb\ccc@ddd.txt
で
a:\aaa\bbb\ccc\ddd.txt
に展開してくれる。

注意点：フォルダ内にあるSYSTEM.HIDDN属性のファイルは「存在していない」という認識で動くようにしてある。VisualSourceSafeの展開フォルダとか、気にしたくないからね。

AWKのつぼ

onefile.batの中のawk呼び出しはスクリプトファイルじゃなくて、スクリプトパラメタで記載してる。

allonefile.bat

@for /D /R %1 %%x in (*) do @call :l1 "%%x" @exit /b :l1 @pushd . @echo %1 @cd %1 @call onefile . @popd

onefile.bat

@dir /b|gawk -F: "END{exit NR}" @if %ERRORLEVEL% EQU 1 goto :l1 @exit /b :l1 @dir /b|gawk -F: "BEGIN{ARGC=1}{print\"move \\\"\" $0 \"\\\" \\\"..\\\\\" ARGV[1] \"@\" $0\"\\\"\";system(\"move \\\"\" $0 \"\\\" \\\"..\\\\\" ARGV[1] \"@\" $0\"\\\"\")}" "%~n1" @set I=%~n1 @cd .. @rd /s /q "%I%" @exit /b

unonefile.bat

@dir /s /b /ad "*@*"|sort /r|gawk -f unonefile.awk @dir /s /b /a-d "*@*"|gawk -f unonefile.awk

unonefile.awk

BEGIN{ FS="\\" } { path= $1; for (i=2;i<=NF;i++){ if (match($i,"@")){ if (i==NF){ n=split($i,ar,"@"); for (j=1;j<n;j++){ path=path "\\" ar[j]; system( "md \"" path "\"") } print "move \"" $0 "\" \"" path "\\" ar[n] "\"" system( "move \"" $0 "\" \"" path "\\" ar[n] "\"") } else { path=path "\\" $i } } else { path=path "\\" $i } } } END{ }