@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
IF "%2"=="" SET HEADDING=
chcp 932
setlocal enabledelayedexpansion
SET ENTRY=
rem text//binaryの区分は継続課題にします。
set WIZARD=%1
set FOURZE=%WIZARD://=~#%
set ZERONE=
setlocal enabledelayedexpansion
REM ドメインまで飛ばす
:HEADDING
IF "%FOURZE:~0,1%"=="#" Goto :HEADEXIT
SET FOURZE=%FOURZE:~1%
Goto :HEADDING
:HEADEXIT
echo ◆ %fourze% ◆
rem pause
Set zerone=
Set pop=
setlocal enabledelayedexpansion
:NIAMOD
IF "%FOURZE:~0,1%"=="/" Goto :NIAMODEXIT
IF "%FOURZE:~0,1%"=="." (
set zerone=_%pop%%zerone%
Set pop=
SET FOURZE=%FOURZE:~1%
Goto :NIAMOD
)
Set pop=%pop%%FOURZE:~0,1%
SET FOURZE=%FOURZE:~1%
Goto :NIAMOD
:NIAMODEXIT
set zerone=#%pop%%zerone%
set zerone=%zerone:#jp=#81%
echo ★ %zerone% ★
echo ◆ %fourze% ◆
REM ファイル名を切り出す。
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
:branch
if %n% gtr 1 (
SET FOURZE=%FOURZE:~0,-1%
set /a n-=1
GOTO :branch
)
echo ★ %zerone% %n%★
echo ◆ %entry% %n%◆
SET FOURZE=%FOURZE:/=#%
SET FOURZE=%FOURZE:.=_%
echo ◆ %fourze% %n%◆
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
INET_GET -f %DATIME%%ENTRY% -r 5 -v -nr -t %WIZARD% -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 wizarntry=%HEADDING%%ZERONE%%fourze%