バッチ版 chm ファイルデコンパイラ v1.3

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:: chm file decompiler V1.3
:: code by namejm 2007.12.27~2010.4.9 bbs.bathome.net CMD@XP
::
:: Function.
:: single/batch decompile chm files and keep the original structure of the resources.
:: is used in two ways.
:: ① Drag and drop single or multiple files directly to this program.
:: ② Double-click directly to run. In this case, all files with .chm suffix in the current directory are processed.
:: Execution process and processing effect.
:: Because the hh -decompile statement cannot use quotes, the raw resources are first released to
:: a folder with a short filename format, and then rename it when the release is complete.
Both :: executions have simple fault tolerance; the decompiled resources are placed in a separate folder
:: in the current directory and named after the chm file name.
:: does not recognize chm files that do not have a .chm extension, but does recognize other files with a .chm extension
:: for other files (seems a bit tongue-in-cheek ^_^)
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
@echo off
set TT=chm file decompiler 1.3
echo.&echo.&echo is decompiling CHM files, please wait...
cd /d "%~dp0"
:: When running the batch by dragging the file onto the batch file, the value of %cd% will be forced to
:: %homepath%, so the previous statement is critical!
set "destination=chm file decompile result"
for /f "delims=" %%i in ("%destination%") do set "destination_short=%%~sfi"
md "%destination%" 2>nul
del /a /f "%destination%\pseudo-chm file list.txt" 2>nul
if "%~1"=="" goto All

:Some
set str=%*
set "str=%str:"=%"
set "str= %str%"
call set "str=%%str: %~d1=" "%~d1%%"
for %%i in ("%str%") do (
  if not %%i=="" (
    title %TT%-is-processing"%%~nxi"
    if /i not "%%~xi"==".chm" (
      echo.&echo "%%~nxi" not chm file
      echo.&echo Please press any key to continue...
      pause>nul
      cls
      echo.&echo.&echo is decompiling the CHM file, please wait...
    ) else (
      rd /q /s "%%~ni" 2>nul
      hh -decompile %destination_short%\%%~sni %%~sfi
      if not exist "%destination%\%%~sni" (
        echo "%%~nxi">>"%destination%\%pseudo-chm file list.txt"
      ) else (
        ren "%destination%\%%~sni" "%%~ni" 2>nul
      )
    )
  )
)
exit

:all
for /f "delims=" %%i in ('dir /a-d /b *.chm 2^>nul') do (
  title %TT%-being-processed"%%~nxi"
  rd /q /s "%destination%\%%~ni" 2>nul
  hh -decompile %destination_short%\%%~sni %%~sfi
  if not exist "%destination%\%%~sni" (
    echo "%%~nxi">>"%destination%\%pseudo-chm file list.txt"
  ) else (
    ren "%destination%\%%~sni" "%%~ni" 2>nul
  ) 
)