単なるコピーの練習用バッチの作り方
https://qiita.com/tattyan39/items/72cd63e9edfdc0f62459
の続き。
Shift_JIS pleese.
皆様はもう少し上手に出来ると思う。
auto_copy1.bat
@echo off
setlocal enabledelayedexpansion
rem [command(cp) A B (-s[-sabu])] or [[copy]["A"] ["B"] (-s)]
rem This fail encode Shift_JIS
if "%~1"=="stato_copy" (
set "userInput=copy"
:: 第2引数（コピー元）
set "arg2=%~2"
set "first2=%arg2:~0,1%"
if "%first2%"=="\"" (
set "userInput=!userInput! %arg2%"
) else (
set "userInput=!userInput! \"%arg2%\""
)
:: 第3引数（コピー先）
set "arg3=%~3"
set "first3=%arg3:~0,1%"
if "%first3%"=="\"" (
set "userInput=!userInput! %arg3%"
) else (
set "userInput=!userInput! \"%arg3%\""
)
:: 第4引数（オプション）
if "%~4"=="" (
goto loop
) else (
set "userInput=!userInput! %~4"
)
goto syoutoin
)
:loop
echo [形式: cp/copy] [引数: A B] [オプション: -s → sabu] or Ctrl+cキャンセル
set /p userInput=何か入力してください（Ctrl+Cでキャンセル）:
:syoutoin
if "!userInput!"=="" goto loop
echo 入力: !userInput!
set i=0
set "quflag=0"
set "quotw="
for %%A in (!userInput!) do (
set "raw=%%A"
call set "firstChar=%%raw:~0,1%%"
call set "lastChar=%%raw:~-1%%"
:: 引用符の開きと閉じを除去
if "!firstChar!"=="\"" (
call set "raw=%%raw:~1%%"
)
if "!lastChar!"=="\"" (
call set "raw=%%raw:~0,-1%%"
)
:: ダブルクォートを全て除去
set "tokens=!raw:"=!"
if "!quflag!"=="0" (
if "!firstChar!"=="\"" (
set "quflag=1"
)
if "!lastChar!" NEQ "\"" (
set "quotw=!quotw! !tokens!"
) else (
set "quotw=!quotw! !tokens!"
set /a i+=1
set "arg!i!=!quotw: =%%20!"
set "quotw="
set "quflag=0"
)
) else (
set /a i+=1
set "arg!i!=!tokens!"
)
)
:: 表示確認
for /l %%I in (1,1,!i!) do (
echo 第%%I引数: !arg%%I!
)
if "!arg1!"=="cp" set "arg1=copy"
if "!arg1!"=="copy" (
echo copy コマンドが選ばれました。
) else (
echo 未知のコマンド pleese [cp]or[copy]: !arg1!
goto loop
)
echo 第1引数: !arg1!
:: ディレクトリが存在するか確認
if "!arg2!"=="" (
echo it A="?" to input.
goto loop
)
if exist "!arg2!\" (
echo "!arg2!" の中にあるファイル一覧:
for %%F in ("!arg2!\*") do (
echo - %%~nxF
)
) else (
echo ディレクトリ "!arg2!" は存在しません。
)
echo 第2引数: !arg2!
:: ディレクトリが存在するか確認
if exist "!arg3!\" (
echo "!arg3!" の中にあるファイル一覧:
for %%F in ("!arg3!\*") do (
echo - %%~nxF
)
) else (
echo ディレクトリ "!arg3!" は存在しません。
choice /c ync /n /m "続けますか？ [y/n/c]"
if errorlevel 3 (
echo c が選ばれました。
pause
exit
) else if errorlevel 2 (
echo n が選ばれました。
goto loop
) else if errorlevel 1 (
echo y が選ばれました。
if not exist "!arg3!" mkdir "!arg3!"
)
)
echo 第3引数: !arg3!
if "!arg4!"=="-sp" (
set arg4=supar
goto in_arg4_ok
)
if "!arg4!"=="" (
set arg4=nonin
goto in_arg4_ok
)
if "!arg4!"=="-s" (
set arg4=sabu
goto in_arg4_ok
)
if "!arg4!"=="-sabu" (
set arg4=sabu
echo sabu コマンドが選ばれました。
) else (
echo 未知のコマンド pleese not sabu [-s]or[-sabu]: !arg4!
goto loop
)
:in_arg4_ok
echo 第4引数オプション: !arg4!
choice /c ync /n /m "続けますか？ [y/n/c]"
if errorlevel 3 (
echo c が選ばれました。
pause
exit
) else if errorlevel 2 (
echo n が選ばれました。
goto loop
) else if errorlevel 1 (
echo y が選ばれました。
)
:: ret copy
:: コピー元ディレクトリ（第2引数）
set "sourceDir=!arg2!"
:: コピー先ディレクトリ
set "targetDir=!arg3!"
set "imageDir=%targetDir%\image"
:: 作成
if not exist "%targetDir%" mkdir "%targetDir%"
if not exist "%imageDir%" mkdir "%imageDir%"
:: 拡張子リスト（画像ファイル）
set "imageExt=.jpg .jpeg .png .gif .bmp .webp"
if "!arg4!"=="sabu" goto subedir
if "!arg4!"=="supar" goto sel4_super
:: ファイル処理
for %%F in ("%sourceDir%\*") do (
set "file=%%~nxF"
set "ext=%%~xF"
set "isImage=0"
for %%E in (%imageExt%) do (
if /i "%%E"=="!ext!" set "isImage=1"
)
if "!isImage!"=="1" (
echo 画像: !file! → image にコピー
copy "%%F" "%imageDir%\!file!" >nul
) else (
echo その他: !file! → copy_all にコピー
copy "%%F" "%targetDir%\!file!" >nul
)
)
echo コピー完了。
goto end_to
:subedir
:: サブディレクトリも含めて巡回
for /r "%sourceDir%" %%F in (*) do (
set "file=%%~nxF"
set "ext=%%~xF"
set "isImage=0"
for %%E in (%imageExt%) do (
if /i "%%E"=="!ext!" set "isImage=1"
)
if "!isImage!"=="1" (
echo [画像] !file! → image にコピー
copy "%%F" "%imageDir%\!file!" >nul
) else (
echo [その他] !file! → 整理済 にコピー
copy "%%F" "%targetDir%\!file!" >nul
)
)
echo サブディレクトリも含めた整理完了。
goto end_to
:sel4_super
::setlocal enabledelayedexpansion
set /a i_img=0
set /a i_txt=0
set /a i_etc=0
set /a i_wwd=0
set "textDir=%targetDir%\text"
set "bakDir=%targetDir%\bak"
set "shiteiExt=lib user userID"
:: 拡張子リスト（画像）
:: set "imageExt=.jpg .jpeg .png .gif .bmp .webp"
set "textExt=.txt .text .dat .data .bat .sp1 .log"
:: サブディレクトリも含めて巡回
for /r "%sourceDir%" %%F in (*) do (
set "file=%%~nxF"
set "ext=%%~xF"
set "isImage=0"
set "isText=0"
set "src=%sourceDir%\!file!"
set "dst=%targetDir%\!file!" :: デフォルトはその他
set "tmpruto=%targetDir%"
set "loop_endr=0"
:: 現在のフォルダー名を取得
for %%D in ("%CD%") do set "currentFolder="%%~nxD""
set "currentFolder=!currentFolder: =%%20!"
for %%E in (%imageExt%) do (
if /I "%currentFolder%"=="lib" (
set "tmpruto=%targetDir%\lib"
if not exist "!tmpruto!\!currentFolder!" mkdir "!tmpruto!\!currentFolder!"
for /r "%sourceDir%" %%F in (*) do (
for %%D in ("%CD%") do (set "currentFolder=%%~nxD")
set "currentFolder=!currentFolder: =%%20!"
set "tmpruto=!tmpruto!\!currentFolder!"
if not exist "%tmpruto%" mkdir "%tmpruto%"
copy "%%F" "%tmpruto%\%%~nxF"
)
set "loop_endr=1"
)
if "%loop_endr%"=="0" (
if /I "!currentFolder!"=="%%E" (
if not exist "!tmpruto!\!currentFolder!" mkdir "!tmpruto!\!currentFolder!"
echo このフォルダーでは処理をスキップします。
set "loop_endr=1"
)
)
)
if "!loop_endr!"=="0" (
for %%E in (%imageExt%) do (
if /i "%%E"=="!ext!" (
set "isImage=1"
set "dst=%imageDir%\!file!"
)
)
for %%E in (%textExt%) do (
if /i "%%E"=="!ext!" (
set "isText=1"
set "dst=%textDir%\!file!"
)
)
if exist "!dst!" (
set /a i_wwd+=1
echo [重複] !file! は既に image に存在します。\\bak\\ copy %targetDir%
if not exist "%bakDir%" mkdir "%bakDir%"
echo [@e] 画像: !file! → error kamo にコピー
copy "%%F" "%bakDir%\!file!" >nul
) else (
echo [新規] !file! → 新規フォルダーにコピー
if "!isImage!"=="1" (
set /a i_img+=1
if not exist "%imageDir%" mkdir "%imageDir%"
echo [@a] 画像: !file! → image にコピー
copy "%%F" "%imageDir%\!file!" >nul
) else if "!isText!"=="1"(
set /a i_txt+=1
if not exist "%textDir%" mkdir "%textDir%"
echo [@b] text: !file! → text にコピー
copy "%%F" "%textDir%\!file!" >nul
)else(
set /a i_etc+=1
echo [@c] その他: !file! → 整理済 にコピー
copy "%%F" "%targetDir%\!file!" >nul
)
)
)
)
echo --- 処理完了 ---
echo 絵巻に納めた数（画像）: !i_img!
echo 書物に納めた数（txt) : !i_txt!
echo その他の記録者数: !i_etc!
echo 重なりファイル : !i_wwd!
set /a total=!i_img!+!i_txt!+!i_etc!
echo 総巡礼者数（全ファイル）: !total! 予備(不明) !i_wwd!
:: to end
:: @a,@b,@c,@e it ?
:end_to
::
exit /b 0
出展協力 coplot
考えたのは俺だが、命令語や使い方はアドバイスを受けました。
元々の作り方を無いところから、コピロットは作らないと思います。
論理的な追い込みや、不足分の補充は作者がやらないといけないと思っています。
coplorの協力は、大変有りがたく思いますが、経験上素直に動きません。
だから、これもうごかしていません。 ただ、ファイルが消えるのではなく、増えるのですから、一息の安心はあります。
皆様も、消えるのではないのに、技術研磨が出来ればと、出しました。
あなたが、やってみるか、バックアップは増えずに済むのかですね。
ですから、未完の物に、細かく言わない、変えたいところや、間違っているところは、皆様で見つけ出してほしい。極みなんて、本当はないんだから。
健闘を祈る。