@echo off
CLS
COLOR F0
IF "%1"=="" %0 http://type-98.lix.jp/area_02/takaba/super/img/time/v-commander.jpg
SET HEADDING=
IF NOT "%2"=="" SET HEADDING=##%2
chcp 932
setlocal enabledelayedexpansion
SET ENTRY=
rem text//binaryの区分は継続課題にします。
REM ファイル名を切り出す。
set FOURZE=%1
set WIZARD=!FOURZE!
set ZERONE=
set /a n=1
setlocal enabledelayedexpansion
:fileinversing
set POP=!WIZARD:~-%n%,1!
if "!POP!"=="/" goto :fileexit
set ENTRY=!POP!!ENTRY!
set /a n+=1
goto :fileinversing
:fileexit
setlocal enabledelayedexpansion
:branchinversing
set POP=!WIZARD:~-%n%,1!
if "!POP!"==":" goto :branchexit
set ZERONE=!POP!!ZERONE!
set /a n+=1
goto :branchinversing
:branchexit
SET DATIME=%DATE%%TIME%
SET DATIME=%DATIME:~0,4%%DATIME:~5,2%%DATIME:~8,2%~%DATIME:~10,2%%DATIME:~13,2%%DATIME:~16,2%%DATIME:~19,2%
SET DATIME=%DATIME: =0%
chcp 932
echo !zerone!
INET_GET -f %DATIME%%ENTRY% -r 5 -v -nr -t %FOURZE% -L %ENTRY%%DATIME%.LOG >NUL
TYPE %ENTRY%%DATIME%.LOG | FIND "Last-Modified:"> %ENTRY%%DATIME%.TXT
FOR /F "delims=" %%A IN (%ENTRY%%DATIME%.TXT) DO SET LASTMODIFIED=%%A
DEL %ENTRY%%DATIME%.*
DEL %DATIME%%ENTRY%
setlocal enabledelayedexpansion
SET MONTHLY=%LASTMODIFIED:~23,3%
IF "%MONTHLY%"=="Jan" SET NONTH=01
IF "%MONTHLY%"=="Fed" SET NONTH=02
IF "%MONTHLY%"=="Mar" SET NONTH=03
IF "%MONTHLY%"=="Apr" SET NONTH=04
IF "%MONTHLY%"=="May" SET NONTH=05
IF "%MONTHLY%"=="Jun" SET NONTH=06
IF "%MONTHLY%"=="Jul" SET NONTH=07
IF "%MONTHLY%"=="Aug" SET NONTH=08
IF "%MONTHLY%"=="Sep" SET NONTH=09
IF "%MONTHLY%"=="Oct" SET NONTH=10
IF "%MONTHLY%"=="Nov" SET NONTH=11
IF "%MONTHLY%"=="Dec" SET NONTH=12
set entry={%LASTMODIFIED:~29,2%}%NONTH%%LASTMODIFIED:~20,2%%LASTMODIFIED:~15,3%%LASTMODIFIED:~32,2%%LASTMODIFIED:~35,2%%LASTMODIFIED:~38,2%GMT#%ENTRY%
setlocal enabledelayedexpansion
echo !zerone!
IF "!WIZARD:~0,8!"=="https://" SET WIZARF=_!WIZARD:~8!
IF "!WIZARD:~0,7!"=="http://" SET WIZARF=_!WIZARD:~7!
IF "!ZERONE:~0,2!"=="//" SET WIZARG=_!ZERONE:~2!
setlocal enabledelayedexpansion
SET WIZARD=!WIZARF!
echo ① !WIZARD! ② !WIZARF! ③ !zerone! ④ !WIZARG!
setlocal enabledelayedexpansion
REM ドメインの取得
SET WIZARD=!ZERONE!
set /a n=1
SET DOMAIN=
SET PIECE=
set POP=
setlocal enabledelayedexpansion
echo =====================================
:domain
if "!POP!"=="/&quo