12,673
回編集
差分
ナビゲーションに移動
検索に移動
ページの作成:「==Windows コマンド 拡張子をインクリメントしたファイルを作成する== [スクリプト(Win)] ====key_file.bat==== @echo off rem **************…」
==Windows コマンド 拡張子をインクリメントしたファイルを作成する==
[スクリプト(Win)]
====key_file.bat====
@echo off
rem ********************************************************************
rem
rem key_file [キーファイル名(拡張子を除く)] [最大数]
rem
rem 呼び出されるたびに、キーファイル名+"."+数値+1 のファイルを作成し、
rem キーファイル名+"."+数値のファイルを削除する
rem
rem 拡張子が、指定された最大数に達したら何も行わない
rem
rem 使用例:key_file.bat "C:\work\KEY_FILE" 3
rem
rem ********************************************************************
set /A LIMIT=%2
set /A CUR_NUM=0
set /A NEXT_NUM=1
set KEYFILE="%~1.*"
for %%keyf in (%KEYFILE%) do (
call :calc_extension_num %%keyf
)
if %NEXT_NUM% LEQ %LIMIT% (
type NUL > %~1.%NEXT_NUM%
del %~1.%CUR_NUM%
)
goto :end
@echo on
:calc_extension_num
set EXTENSION=%~x1
set /A CUR_NUM=%EXTENSION:~1%
set /A TMP_NUM=%CUR_NUM% + 1
if %TMP_NUM% GTR %NEXT_NUM% (
set NEXT_NUM=%TMP_NUM%
)
:end
[スクリプト(Win)]
====key_file.bat====
@echo off
rem ********************************************************************
rem
rem key_file [キーファイル名(拡張子を除く)] [最大数]
rem
rem 呼び出されるたびに、キーファイル名+"."+数値+1 のファイルを作成し、
rem キーファイル名+"."+数値のファイルを削除する
rem
rem 拡張子が、指定された最大数に達したら何も行わない
rem
rem 使用例:key_file.bat "C:\work\KEY_FILE" 3
rem
rem ********************************************************************
set /A LIMIT=%2
set /A CUR_NUM=0
set /A NEXT_NUM=1
set KEYFILE="%~1.*"
for %%keyf in (%KEYFILE%) do (
call :calc_extension_num %%keyf
)
if %NEXT_NUM% LEQ %LIMIT% (
type NUL > %~1.%NEXT_NUM%
del %~1.%CUR_NUM%
)
goto :end
@echo on
:calc_extension_num
set EXTENSION=%~x1
set /A CUR_NUM=%EXTENSION:~1%
set /A TMP_NUM=%CUR_NUM% + 1
if %TMP_NUM% GTR %NEXT_NUM% (
set NEXT_NUM=%TMP_NUM%
)
:end
© 2006 矢木浩人
