実況◆フジテレビ１ ID:jv+bS0Fw

-535-629

@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