Log inRegister
VRT NU - VRT MAX - BOOSSY MAX
- Roep het TV-journaal van 13u van gisteren op als het voor 14u is, anders dat van vandaag.
- Roep De Nacht van Radio 1 op van afgelopen nacht.
1) Link to latest radioshow on VRT MAX
1.1 Batch file(s)
1.1.a VrtNuHetJournaal.bat
REM YESTERDAY
@echo off
set day=-1
echo >"%temp%\%~n0.vbs" s=DateAdd("d",%day%,now) : d=weekday(s)
echo>>"%temp%\%~n0.vbs" WScript.Echo year(s)^& right(100+month(s),2)^& right(100+day(s),2)
for /f %%a in ('cscript /nologo "%temp%\%~n0.vbs"') do set "result=%%a"
del "%temp%\%~n0.vbs"
set "YYYY=%result:~0,4%"
set "MM=%result:~4,2%"
set "DD=%result:~6,2%"
set "TYesterday=%yyyy%%mm%%dd%"
REM TODAY
Set TToday=%date:~6,4%%date:~3,2%%date:~0,2%
set THour=%time:~0,2%
REM YESTERDAY OR TODAY
IF %time:~0,2% lss 14 (
set URL=https://www.vrt.be/vrtnu/a-z/het-journaal/2020/het-journaal-het-journaal-13u-%TYesterday%/
) ELSE (
set URL=https://www.vrt.be/vrtnu/a-z/het-journaal/2020/het-journaal-het-journaal-13u-%TToday%/
)
REM EXECUTE
start %URL%
1.1.b VrtMaxDeNachtVanRadio1.bat
230326-230624
Afhankelijk van welke dag van de week, krijgt de URL een ander volgnummer. De volgnummers van ma. tot do. volgenden elkaar op, maar het volgnr. van de ma. erop volgde dan weer op de do. Hetzelfde voor vr. en za. En zo. was dan helemaal apart:@ECHO OFF
ECHO.
:: Check the Windows version
IF NOT "%OS%"=="Windows_NT" GOTO Syntax
SETLOCAL ENABLEDELAYEDEXPANSION
:: Check the number of command line arguments
REM IF "%~1"=="" GOTO Syntax
REM IF NOT "%~7"=="" GOTO Syntax
REM YESTERDAY
set day=-1
echo >"%temp%\%~n0.vbs" s=DateAdd("d",%day%,now) : d=weekday(s)
echo>>"%temp%\%~n0.vbs" WScript.Echo year(s)^& right(100+month(s),2)^& right(100+day(s),2)
for /f %%a in ('cscript /nologo "%temp%\%~n0.vbs"') do set "yesterday=%%a"
REM echo %yesterday%
set "YYYY=%yesterday:~0,4%"
set "MM=%yesterday:~4,2%"
set "DD=%yesterday:~6,2%"
set "TYesterday=%dd%/%mm%/%yyyy%"
:: Initialize variables
SET Date1=%TYesterday%
REM echo %Date1%
SET Date2=01/01/1970
REM echo %Date2%
SET iDate=
SET sDate=
FOR /F "skip=1 tokens=2*" %%A IN ('REG.EXE Query "HKCU\Control Panel\International" /v iDate') DO SET iDateLocal=%%~B
FOR /F "skip=1 tokens=2*" %%A IN ('REG.EXE Query "HKCU\Control Panel\International" /v sDate') DO SET sDateLocal=%%~B
FOR %%A IN (%Date%) DO SET Today=%%A
SET Verbose=0
SET Debug=0
TYPE "%~f0" | FINDSTR.EXE /R /B /I /C:":: *@ECHO OFF" >NUL && SET Debug=1
:: parse command line
FOR %%A IN (%*) DO (
SET Arg=%%~A
IF "%Debug%"=="1" ECHO Arg=%%~A
IF "!Arg:~0,1!"=="/" (
IF /I "!Arg:~0,2!"=="/I" (
IF "!iDate!"=="" (
SET iDate=!Arg:~3!
IF "%Debug%"=="1" ECHO iDate=!iDate!
IF "%Debug%"=="1" ECHO iDateLocal=%iDateLocal%
) ELSE (
ECHO Duplicate switch /i
ECHO.
GOTO Syntax
)
) ELSE (
IF /I "!Arg:~0,2!"=="/S" (
IF "!sDate!"=="" (
SET sDate=!Arg:~3!
IF "%Debug%"=="1" ECHO sDate=!sDate!
) ELSE (
ECHO Duplicate switch /s
ECHO.
GOTO Syntax
)
) ELSE (
IF /I "!Arg!"=="/V" (
IF "!Verbose!"=="0" (
SET Verbose=1
IF "%Debug%"=="1" SET Verbose
) ELSE (
ECHO Duplicate switch /v
ECHO.
GOTO Syntax
)
) ELSE (
IF /I "!Arg:~0,2!"=="/D" (
SET Debug=1
SET Debug
) ELSE (
ECHO Invalid command line switch !Arg!
ECHO.
GOTO Syntax
)
)
)
)
) ELSE (
IF "!Date1!"=="" (
SET Date1=%%A
IF "%Debug%"=="1" SET Date1
) ELSE (
IF "!Date2!"=="" (
SET Date2=%%A
IF "%Debug%"=="1" SET Date2
) ELSE (
ECHO Too many dates on command line
ECHO.
GOTO Syntax
)
)
)
)
SET iDateEnum.0=Month%sDate%Day%sDate%Year
SET iDateEnum.1=Day%sDate%Month%sDate%Year
SET iDateEnum.2=Year%sDate%Month%sDate%Day
REM :: Use today for second date if not spedified
REM IF "%Date2%"=="" (
REM IF %Debug%%Verbose% GEQ 1 SET Today
REM IF %Debug%%Verbose% GEQ 1 SET Date2
REM IF NOT "%iDate%%sDate%"=="" (
REM CALL :ParseDate %Today% %iDateLocal% %sDateLocal%
REM IF %iDate%==0 SET Today=!GMonth!%sDate%!GDay!%sDate%!GYear!
REM IF %iDate%==1 SET Today=!GDay!%sDate%!GMonth!%sDate%!GYear!
REM IF %iDate%==2 SET Today=!GYear!%sDate%!GMonth!%sDate%!GDay!
REM )
REM SET Date2=!Today!
REM IF %Debug%%Verbose% GEQ 1 SET Today
REM IF %Debug%%Verbose% GEQ 1 SET Date2
REM )
:: Use local date format if no alternative was specified
IF "%iDate%"=="" SET iDate=%iDateLocal%
IF "%sDate%"=="" SET sDate=%sDateLocal%
IF "%verbose%"=="1" (
ECHO Date format used:
ECHO iDate=%iDate% ^(!iDateEnum.%iDate%!^)
SET Local_iDate=!iDateEnum.%iDateLocal%!
SET Local_iDate=!Local_iDate:%sDate%=%sDateLocal%!
ECHO iDateLocal=%iDateLocal% ^(!Local_iDate!^)
SET sDate
ECHO.
)
:: Check if the first date is valid
(ECHO.%Date1%) | FINDSTR /R /B /C:"[0-9]*%sDate%[0-9]*%sDate%[0-9]*" >NUL
IF ERRORLEVEL 1 (
ECHO Error: %Date1% is not a valid date
ECHO.
GOTO Syntax
)
:: Check if the second date is valid
(ECHO.%Date2%) | FINDSTR /R /B /C:"[0-9]*%sDate%[0-9]*%sDate%[0-9]*" >NUL
IF ERRORLEVEL 1 (
ECHO Error: %Date2% is not a valid date
ECHO.
GOTO Syntax
)
:: Parse the first date
CALL :ParseDate %Date1%
IF "%Verbose%"=="1" (
ECHO Date1=%Date1%
SET GYear
SET GMonth
SET GDay
ECHO.
)
IF %GDay% GTR 31 (
ECHO Invalid date, day cannot be greater than 31
ECHO.
GOTO Syntax
)
IF %GMonth% GTR 12 (
ECHO Invalid date, month cannot be greater than 12
ECHO.
GOTO Syntax
)
:: Convert the parsed Gregorian date to Julian
CALL :JDate %GYear% %GMonth% %GDay%
IF "%Verbose%"=="1" (
ECHO Julian Date1
SET JDate
ECHO.
)
:: Save the resulting Julian date
SET JDate1=%JDate%
:: Parse the second date
CALL :ParseDate %Date2%
IF "%Verbose%"=="1" (
ECHO Date2=%Date2%
SET GYear
SET GMonth
SET GDay
ECHO.
)
IF %GDay% GTR 31 (
ECHO Invalid date, day cannot be greater than 31
ECHO.
GOTO Syntax
)
IF %GMonth% GTR 12 (
ECHO Invalid date, month cannot be greater than 12
ECHO.
GOTO Syntax
)
:: Convert the parsed Gregorian date to Julian
CALL :JDate %GYear% %GMonth% %GDay%
IF "%Verbose%"=="1" (
ECHO Julian Date2
SET JDate
ECHO.
)
:: Calculate the absolute value of the difference in days
IF %JDate% GTR %JDate1% (
SET /A DateDiff = %JDate% - %JDate1%
) ELSE (
SET /A DateDiff = %JDate1% - %JDate%
)
:: Format output for singular or plural
SET Days=days
IF %DateDiff% EQU 1 SET Days=day
:: Prefix value with a minus sign if negative
IF %JDate% GTR %JDate1% SET DateDiff=-%DateDiff%
:: Display the result
REM ECHO First date : %Date1%
REM ECHO Second date : %Date2%
REM ECHO Difference : %DateDiff% %Days%
REM ECHO %DateDiff%
REM nummerwaarde van weekday: https://stackoverflow.com/questions/15111557/using-powershell-how-do-you-get-the-weekday-number
for /f %%i in ('powershell "(get-date).AddDAys(-1)".DayOfWeek.value__') do set dow=%%i
set /a dow = %dow%+1
REM ECHO dow: %dow%
FOR %%G IN ("2"
"3"
"4"
"5") DO (
IF /I "%dow%"=="%%~G" GOTO MonToThurs
)
FOR %%G IN ("6"
"7") DO (
IF /I "%dow%"=="%%~G" GOTO FriAndSat
)
FOR %%G IN ("1") DO (
IF /I "%dow%"=="%%~G" GOTO Sun
)
:MonToThurs
REM =ROUNDDOWN("22"&(NUMBERVALUE((DATEVALUE(TEXT(F3;"jjjj-mm-dd"))-DATEVALUE("1970-01-01")))*86400/604800*4)-10437,5+(1/10*J3);0)
rem https://www.vrt.be/vrtnu/luister/radio/d/de-nacht-van-radio-1~11-22/de-nacht-van-radio-1~11-22672-0/
set /a result = %DateDiff%*86400/6048*4
REM echo %result%
set /a result = (%result%-1043710+(2*%dow%))/100
REM echo %result%
set /a result = 22000+%result%
IF /I "%dow%"=="2" set /a result = %result%-1
REM echo %result%
GOTO LUISTER
:FriAndSat
REM ="22"&ROUNDDOWN((NUMBERVALUE((DATEVALUE(TEXT(F7;"jjjj-mm-dd"))-DATEVALUE("1970-01-01")))*86400/604800*2)-4832+(1/10*J7);0)
rem https://www.vrt.be/vrtnu/luister/radio/d/de-nacht-van-radio-1~11-22/de-nacht-van-radio-1~11-22724-0/
set /a result = %DateDiff%*86400/60480*2
set /a result = (%result%-48314+(1/10*%dow%))/10
REM echo %result%
set /a result = 22000+%result%
REM echo result: %result%
GOTO LUISTER
:Sun
REM =ROUNDDOWN("22"&(NUMBERVALUE((DATEVALUE(TEXT(F2;"jjjj-mm-dd"))-DATEVALUE("1970-01-01")))*86400/604800*1)-2170+(1/10*J2);0)
rem https://www.vrt.be/vrtnu/luister/radio/d/de-nacht-van-radio-1~11-22/de-nacht-van-radio-1~11-22608-0/
set /a result = %DateDiff%*86400/604800*1
set /a result = %result%-2170+(1/10*%dow%)
set /a result = 22000+%result%
GOTO LUISTER
:LUISTER
set URL=https://www.vrt.be/vrtnu/luister/radio/d/de-nacht-van-radio-1~11-22/de-nacht-van-radio-1~11-%result%-0/
REM EXECUTE
start %URL%
GOTO :EOF
REM :: Return the result in a variable named after this batch file
REM ENDLOCAL & SET %~n0=%DateDiff%
GOTO:EOF
::===================================::
:: ::
:: - S u b r o u t i n e s - ::
:: ::
::===================================::
:JDate
:: Convert date to Julian
:: Arguments : YYYY MM DD
:: Returns : Julian date
::
:: First strip 1 or 2 leading zeroes; a logical error in this
:: routine was corrected with help from Alexander Shapiro
SET MM=%2
SET DD=%3
IF "%MM:~0,1%"=="0" IF NOT "%MM%"=="0" SET MM=%MM:~1%
IF "%MM:~0,1%"=="0" IF NOT "%MM%"=="0" SET MM=%MM:~1%
IF "%DD:~0,1%"=="0" IF NOT "%DD%"=="0" SET DD=%DD:~1%
IF "%DD:~0,1%"=="0" IF NOT "%DD%"=="0" SET DD=%DD:~1%
::
:: Algorithm based on Fliegel-Van Flandern
:: algorithm from the Astronomical Almanac,
:: provided by Doctor Fenton on the Math Forum
:: (http://mathforum.org/library/drmath/view/51907.html),
:: and converted to batch code by Ron Bakowski.
SET /A Month1 = ( %MM% - 14 ) / 12
SET /A Year1 = %1 + 4800
SET /A JDate = 1461 * ( %Year1% + %Month1% ) / 4 + 367 * ( %MM% - 2 -12 * %Month1% ) / 12 - ( 3 * ( ( %Year1% + %Month1% + 100 ) / 100 ) ) / 4 + %DD% - 32075
FOR %%A IN (Month1 Year1) DO SET %%A=
GOTO:EOF
:ParseDate
:: Parse (Gregorian) date depending on registry's date format settings
:: Argument : Gregorian date in local date format, optional iDate and sDate alternatives (in that order)
:: Requires : sDate (local date separator), iDate (local date format number)
:: Returns : GYear (4-digit year), GMonth (2-digit month), GDay (2-digit day)
::
SET iDateUsed=%iDate%
SET sDateUsed=%sDate%
IF NOT "%~2"=="" SET iDateUsed=%~2
IF NOT "%~3"=="" SET sDateUsed=%~3
IF %iDateUsed%==0 FOR /F "TOKENS=1-3 DELIMS=%sDateUsed%" %%A IN ("%~1") DO (
SET GYear=%%~C
SET GMonth=%%~A
SET GDay=%%~B
)
IF %iDateUsed%==1 FOR /F "TOKENS=1-3 DELIMS=%sDateUsed%" %%A IN ("%~1") DO (
SET GYear=%%~C
SET GMonth=%%~B
SET GDay=%%~A
)
IF %iDateUsed%==2 FOR /F "TOKENS=1-3 DELIMS=%sDateUsed%" %%A IN ("%~1") DO (
SET GYear=%%~A
SET GMonth=%%~B
SET GDay=%%~C
)
SET iDateUsed=
SET sDateUsed=
GOTO:EOF
:Syntax
ECHO DateDiff.bat, Version 1.11 for Windows XP .. 10
ECHO Calculate the difference (in days) between two dates
ECHO.
ECHO Usage: DATEDIFF date [ date [ /i:iDate ] [ /s:sDate ] ] [ /v ]
ECHO.
ECHO Where: "date" is a "normal" Gregorian date in the computer's
ECHO local format; if no second date is specified,
ECHO today is assumed
ECHO /i:iDate specify alternative date format:
ECHO iDate = 0 for month/day/year format
ECHO iDate = 1 for day/month/year format
ECHO iDate = 2 for year/month/day format
ECHO /s:sDate specify alternative date separator
ECHO (/ or - or . or whatever you want)
ECHO /v Verbose output
ECHO.
ECHO Julian date conversion based on Fliegel-Van Flandern algorithms from
ECHO the Astronomical Almanac, provided by Doctor Fenton on the Math Forum
ECHO (http://mathforum.org/library/drmath/view/51907.html), and converted
ECHO to batch code by Ron Bakowski.
ECHO Bug found by and corrected with help from Alexander Shapiro.
ECHO.
ECHO Written by Rob van der Woude
ECHO http://www.robvanderwoude.com
IF "%OS%"=="Windows_NT" ENDLOCAL
EXIT /B 1
230625-230802
Na 25 juni 2023 veranderde nummering, wellicht door een gewijzigd zendschema - dus misschien komt in september bovenstaande methodiek wel terug. In ieder geval, nu hebben de opeenvolgende dagen van de week gewoon een oplopend nummer, waardoor de hele procedure enorm vereenvoudigt. De hele systematiek van de dag vd week heb ik eruit gebonjourd:@ECHO OFF
ECHO.
:: Check the Windows version
IF NOT "%OS%"=="Windows_NT" GOTO Syntax
SETLOCAL ENABLEDELAYEDEXPANSION
:: Check the number of command line arguments
REM IF "%~1"=="" GOTO Syntax
REM IF NOT "%~7"=="" GOTO Syntax
REM YESTERDAY
set day=-1
echo >"%temp%\%~n0.vbs" s=DateAdd("d",%day%,now) : d=weekday(s)
echo>>"%temp%\%~n0.vbs" WScript.Echo year(s)^& right(100+month(s),2)^& right(100+day(s),2)
for /f %%a in ('cscript /nologo "%temp%\%~n0.vbs"') do set "yesterday=%%a"
REM echo %yesterday%
set "YYYY=%yesterday:~0,4%"
set "MM=%yesterday:~4,2%"
set "DD=%yesterday:~6,2%"
set "TYesterday=%dd%/%mm%/%yyyy%"
:: Initialize variables
SET Date1=%TYesterday%
REM echo %Date1%
SET Date2=01/01/1970
REM echo %Date2%
SET iDate=
SET sDate=
FOR /F "skip=1 tokens=2*" %%A IN ('REG.EXE Query "HKCU\Control Panel\International" /v iDate') DO SET iDateLocal=%%~B
FOR /F "skip=1 tokens=2*" %%A IN ('REG.EXE Query "HKCU\Control Panel\International" /v sDate') DO SET sDateLocal=%%~B
FOR %%A IN (%Date%) DO SET Today=%%A
SET Verbose=0
SET Debug=0
TYPE "%~f0" | FINDSTR.EXE /R /B /I /C:":: *@ECHO OFF" >NUL && SET Debug=1
:: parse command line
FOR %%A IN (%*) DO (
SET Arg=%%~A
IF "%Debug%"=="1" ECHO Arg=%%~A
IF "!Arg:~0,1!"=="/" (
IF /I "!Arg:~0,2!"=="/I" (
IF "!iDate!"=="" (
SET iDate=!Arg:~3!
IF "%Debug%"=="1" ECHO iDate=!iDate!
IF "%Debug%"=="1" ECHO iDateLocal=%iDateLocal%
) ELSE (
ECHO Duplicate switch /i
ECHO.
GOTO Syntax
)
) ELSE (
IF /I "!Arg:~0,2!"=="/S" (
IF "!sDate!"=="" (
SET sDate=!Arg:~3!
IF "%Debug%"=="1" ECHO sDate=!sDate!
) ELSE (
ECHO Duplicate switch /s
ECHO.
GOTO Syntax
)
) ELSE (
IF /I "!Arg!"=="/V" (
IF "!Verbose!"=="0" (
SET Verbose=1
IF "%Debug%"=="1" SET Verbose
) ELSE (
ECHO Duplicate switch /v
ECHO.
GOTO Syntax
)
) ELSE (
IF /I "!Arg:~0,2!"=="/D" (
SET Debug=1
SET Debug
) ELSE (
ECHO Invalid command line switch !Arg!
ECHO.
GOTO Syntax
)
)
)
)
) ELSE (
IF "!Date1!"=="" (
SET Date1=%%A
IF "%Debug%"=="1" SET Date1
) ELSE (
IF "!Date2!"=="" (
SET Date2=%%A
IF "%Debug%"=="1" SET Date2
) ELSE (
ECHO Too many dates on command line
ECHO.
GOTO Syntax
)
)
)
)
SET iDateEnum.0=Month%sDate%Day%sDate%Year
SET iDateEnum.1=Day%sDate%Month%sDate%Year
SET iDateEnum.2=Year%sDate%Month%sDate%Day
REM :: Use today for second date if not spedified
REM IF "%Date2%"=="" (
REM IF %Debug%%Verbose% GEQ 1 SET Today
REM IF %Debug%%Verbose% GEQ 1 SET Date2
REM IF NOT "%iDate%%sDate%"=="" (
REM CALL :ParseDate %Today% %iDateLocal% %sDateLocal%
REM IF %iDate%==0 SET Today=!GMonth!%sDate%!GDay!%sDate%!GYear!
REM IF %iDate%==1 SET Today=!GDay!%sDate%!GMonth!%sDate%!GYear!
REM IF %iDate%==2 SET Today=!GYear!%sDate%!GMonth!%sDate%!GDay!
REM )
REM SET Date2=!Today!
REM IF %Debug%%Verbose% GEQ 1 SET Today
REM IF %Debug%%Verbose% GEQ 1 SET Date2
REM )
:: Use local date format if no alternative was specified
IF "%iDate%"=="" SET iDate=%iDateLocal%
IF "%sDate%"=="" SET sDate=%sDateLocal%
IF "%verbose%"=="1" (
ECHO Date format used:
ECHO iDate=%iDate% ^(!iDateEnum.%iDate%!^)
SET Local_iDate=!iDateEnum.%iDateLocal%!
SET Local_iDate=!Local_iDate:%sDate%=%sDateLocal%!
ECHO iDateLocal=%iDateLocal% ^(!Local_iDate!^)
SET sDate
ECHO.
)
:: Check if the first date is valid
(ECHO.%Date1%) | FINDSTR /R /B /C:"[0-9]*%sDate%[0-9]*%sDate%[0-9]*" >NUL
IF ERRORLEVEL 1 (
ECHO Error: %Date1% is not a valid date
ECHO.
GOTO Syntax
)
:: Check if the second date is valid
(ECHO.%Date2%) | FINDSTR /R /B /C:"[0-9]*%sDate%[0-9]*%sDate%[0-9]*" >NUL
IF ERRORLEVEL 1 (
ECHO Error: %Date2% is not a valid date
ECHO.
GOTO Syntax
)
:: Parse the first date
CALL :ParseDate %Date1%
IF "%Verbose%"=="1" (
ECHO Date1=%Date1%
SET GYear
SET GMonth
SET GDay
ECHO.
)
IF %GDay% GTR 31 (
ECHO Invalid date, day cannot be greater than 31
ECHO.
GOTO Syntax
)
IF %GMonth% GTR 12 (
ECHO Invalid date, month cannot be greater than 12
ECHO.
GOTO Syntax
)
:: Convert the parsed Gregorian date to Julian
CALL :JDate %GYear% %GMonth% %GDay%
IF "%Verbose%"=="1" (
ECHO Julian Date1
SET JDate
ECHO.
)
:: Save the resulting Julian date
SET JDate1=%JDate%
:: Parse the second date
CALL :ParseDate %Date2%
IF "%Verbose%"=="1" (
ECHO Date2=%Date2%
SET GYear
SET GMonth
SET GDay
ECHO.
)
IF %GDay% GTR 31 (
ECHO Invalid date, day cannot be greater than 31
ECHO.
GOTO Syntax
)
IF %GMonth% GTR 12 (
ECHO Invalid date, month cannot be greater than 12
ECHO.
GOTO Syntax
)
:: Convert the parsed Gregorian date to Julian
CALL :JDate %GYear% %GMonth% %GDay%
IF "%Verbose%"=="1" (
ECHO Julian Date2
SET JDate
ECHO.
)
:: Calculate the absolute value of the difference in days
IF %JDate% GTR %JDate1% (
SET /A DateDiff = %JDate% - %JDate1%
) ELSE (
SET /A DateDiff = %JDate1% - %JDate%
)
:: Format output for singular or plural
SET Days=days
IF %DateDiff% EQU 1 SET Days=day
:: Prefix value with a minus sign if negative
IF %JDate% GTR %JDate1% SET DateDiff=-%DateDiff%
:: Display the result
REM ECHO First date : %Date1%
REM ECHO Second date : %Date2%
REM ECHO Difference : %DateDiff% %Days%
REM ECHO %DateDiff%
REM =ROUNDDOWN("22"&(NUMBERVALUE((DATEVALUE(TEXT(F2;"jjjj-mm-dd"))-DATEVALUE("1970-01-01")))*86400/604800*1)-2170+(1/10*J2);0)
rem https://www.vrt.be/vrtnu/luister/radio/d/de-nacht-van-radio-1~11-22/de-nacht-van-radio-1~11-22608-0/
set /a result = %DateDiff%+4338
REM ECHO Result : %result%
GOTO LUISTER
:LUISTER
set URL=https://www.vrt.be/vrtnu/luister/radio/d/de-nacht-van-radio-1~11-22/de-nacht-van-radio-1~11-%result%-0/
REM EXECUTE
start %URL%
GOTO :EOF
REM :: Return the result in a variable named after this batch file
REM ENDLOCAL & SET %~n0=%DateDiff%
GOTO:EOF
::===================================::
:: ::
:: - S u b r o u t i n e s - ::
:: ::
::===================================::
:JDate
:: Convert date to Julian
:: Arguments : YYYY MM DD
:: Returns : Julian date
::
:: First strip 1 or 2 leading zeroes; a logical error in this
:: routine was corrected with help from Alexander Shapiro
SET MM=%2
SET DD=%3
IF "%MM:~0,1%"=="0" IF NOT "%MM%"=="0" SET MM=%MM:~1%
IF "%MM:~0,1%"=="0" IF NOT "%MM%"=="0" SET MM=%MM:~1%
IF "%DD:~0,1%"=="0" IF NOT "%DD%"=="0" SET DD=%DD:~1%
IF "%DD:~0,1%"=="0" IF NOT "%DD%"=="0" SET DD=%DD:~1%
::
:: Algorithm based on Fliegel-Van Flandern
:: algorithm from the Astronomical Almanac,
:: provided by Doctor Fenton on the Math Forum
:: (http://mathforum.org/library/drmath/view/51907.html),
:: and converted to batch code by Ron Bakowski.
SET /A Month1 = ( %MM% - 14 ) / 12
SET /A Year1 = %1 + 4800
SET /A JDate = 1461 * ( %Year1% + %Month1% ) / 4 + 367 * ( %MM% - 2 -12 * %Month1% ) / 12 - ( 3 * ( ( %Year1% + %Month1% + 100 ) / 100 ) ) / 4 + %DD% - 32075
FOR %%A IN (Month1 Year1) DO SET %%A=
GOTO:EOF
:ParseDate
:: Parse (Gregorian) date depending on registry's date format settings
:: Argument : Gregorian date in local date format, optional iDate and sDate alternatives (in that order)
:: Requires : sDate (local date separator), iDate (local date format number)
:: Returns : GYear (4-digit year), GMonth (2-digit month), GDay (2-digit day)
::
SET iDateUsed=%iDate%
SET sDateUsed=%sDate%
IF NOT "%~2"=="" SET iDateUsed=%~2
IF NOT "%~3"=="" SET sDateUsed=%~3
IF %iDateUsed%==0 FOR /F "TOKENS=1-3 DELIMS=%sDateUsed%" %%A IN ("%~1") DO (
SET GYear=%%~C
SET GMonth=%%~A
SET GDay=%%~B
)
IF %iDateUsed%==1 FOR /F "TOKENS=1-3 DELIMS=%sDateUsed%" %%A IN ("%~1") DO (
SET GYear=%%~C
SET GMonth=%%~B
SET GDay=%%~A
)
IF %iDateUsed%==2 FOR /F "TOKENS=1-3 DELIMS=%sDateUsed%" %%A IN ("%~1") DO (
SET GYear=%%~A
SET GMonth=%%~B
SET GDay=%%~C
)
SET iDateUsed=
SET sDateUsed=
GOTO:EOF
:Syntax
ECHO DateDiff.bat, Version 1.11 for Windows XP .. 10
ECHO Calculate the difference (in days) between two dates
ECHO.
ECHO Usage: DATEDIFF date [ date [ /i:iDate ] [ /s:sDate ] ] [ /v ]
ECHO.
ECHO Where: "date" is a "normal" Gregorian date in the computer's
ECHO local format; if no second date is specified,
ECHO today is assumed
ECHO /i:iDate specify alternative date format:
ECHO iDate = 0 for month/day/year format
ECHO iDate = 1 for day/month/year format
ECHO iDate = 2 for year/month/day format
ECHO /s:sDate specify alternative date separator
ECHO (/ or - or . or whatever you want)
ECHO /v Verbose output
ECHO.
ECHO Julian date conversion based on Fliegel-Van Flandern algorithms from
ECHO the Astronomical Almanac, provided by Doctor Fenton on the Math Forum
ECHO (http://mathforum.org/library/drmath/view/51907.html), and converted
ECHO to batch code by Ron Bakowski.
ECHO Bug found by and corrected with help from Alexander Shapiro.
ECHO.
ECHO Written by Rob van der Woude
ECHO http://www.robvanderwoude.com
IF "%OS%"=="Windows_NT" ENDLOCAL
EXIT /B 1
230803-
Na 3 augustus 2023 veranderde de nummering weer, voorlopig nog geen aangepaste code:- 31/07/'23 23:00-06:00: 23907
- 01/08/'23 23:00-06:00: 23908
- 02/08/'23 23:00-06:00: 23909
- 03/08/'23 23:00-06:00: 23911
- 04/08/'23 23:00-07:00: 23912
- 05/08/'23 23:00-06:00: 23913
- 06/08/'23 23:00-06:00: 24385
- 07/08/'23 23:00-06:00: 23914
- 08/08/'23 23:00-06:00: 23915
- 09/08/'23 23:00-06:00: 23916
- 09/08/'23 00:00-06:00: 23917
- 10/08/'23: ???
- 11/08/'23 00:00-07:00: 23919
- 12/08/'23 00:00-07:00: 24386
- 13/08/'23 23:00-06:00: 23920
- 14/08/'23 23:00-07:00: 23921
- 15/08/'23 23:00-06:00: 23922
- 16/08/'23 23:00-06:00: 23923
- 17/08/'23 23:00-06:00: 23924
- 18/08/'23 00:00-07:00: 23925
- 19/08/'23 00:00-06:00: 24387
- 19/08/'23 00:00-07:00: 24388
- 20
- 21
- 22
- 23
- 24
- 25
- 26/08/'23 00:00-07:00: 24389
- 27/08/'23 00:00-06:00: 24391 OMG!!! (dat is hoger dan de komende nacht...)
- 28/08/'23 00:00-07:00: 24390
- 29/08/'23 23:00-06:00: 24392
- 30/08/'23 23:00-06:00: 24393
- 31/08/'23 00:00-06:00: 24394
- 1/9 … 95
- …
1.2 SameName.vbs
Hide the DOS box by using a .vbs script alongside the .bat file with the same name:Dim scriptName : scriptName = WScript.ScriptFullName
scriptName = Left(scriptName, Len(scriptName) - 4) & ".bat"
Set WshShell = CreateObject("WScript.Shell" )
WshShell.Run chr(34) & scriptName & Chr(34), 0
Set WshShell = Nothing
1.3 Pin to start
Source: https://social.technet.microsoft.com/Forums/en-US/dd2b13ef-2968-4f23-b531-57d1e9d634e3/if-you-guys-have-been-trying-hard-to-pin-vbs-files-to-your-start-menu-in-windows-10-look-no?forum=ITCG&prof=required If you rightclick the .vbs file, you'll notice there's no 'Pin to Start' option. There's a simple trick to solve this:- modify the .vbs extension into .exe
- rightclick the .exe and choose Pin to Start
- rename the .exe back to .vbs
- now go to %AppData%\Microsoft\Windows\Start Menu\Programs
- rightclick the shortcut you've just created and change .exe into .vbs in the Target field
1.4 Add the right icon
- open the VRT NU site in the Edge browser
- choose … (Settings and more) > Apps > Install this site as an app
- in the dialog that appears, choose the Install button
- click Start, then rightclick the recently added app
- choose More > Open file location
- rightclick > Properties
- click the Change Icon... button and copy what's in the field
- now open the Properties > Change Icon... of the .vbs shortcut (from 3)), in the same location
- paste the copied value here and confirm
2) Record it yourself
2.1 Windows SoundRecorder + AIMP
Na september 2023 werden de uitzendingen van de Nacht van Radio 1 niet langer ter herbeluistering aangeboden in de VRTMAX app. I use an old !SoundRecoder.exe (6.3.9600.17415), copied from a Windows 2012 R2 server, which requires the accompanying !WavDes.dll. Register the dll as follows in an elevated command prompt:REGSVR32 WavDest.dllThen create your .vbs script to record audio from *AIMP* (Artem Izmaylov media player). The script also launches AIMP on Radio 1:
set WshShell = WScript.CreateObject("WScript.Shell")
WScript.Sleep(500)
rem start playback of Default playlist item 9
WshShell.Run """C:\Program Files\AIMP\AIMP.exe"" /play=""Default"";8"
WScript.Sleep(500)
WshShell.Run """D:\Tools\SoundRecorder\SoundRecorder.exe"" /FILE D:\Tools\SoundRecorder\output.wma /DURATION 5:00:00"
WScript.Sleep(18000500)
rem exit the AIMP app
WshShell.Run """C:\Program Files\AIMP\AIMP.exe"" /exit"
WScript.Sleep(500)
Finally create at Scheduled Task, with the following settings: - General tab: choose Run whether user is logged on or not
- Triggers tab: Daily, at 1:00 (this way the recording starts at 1.00 AM and last for 5 hours, as indicated in the .vbs script)
- Actions tab: Start a program: D:\Tools\SoundRecorder\RunSoundRecorder.vbs
2.2 Listen to the latest radio show of De Nacht van Radio 1
Find the latest radio show of De Nacht van Radio 1 here ► De Nacht van Radio 1 | BOOSSY MAXCAUTION: sometimes, it's the radio show of 2 or 3 days ago, because the OneDrive syncing only works when I'm logged in Sources:
- automation - Automatically starting Windows Sound Recorder - Stack Overflow
- audio recording - how to hide sound recorder in windows 7 - Super User
3) The return of Herbeluister De Nacht van Radio 1...
De afleveringen vanaf 30 november 2023 zijn weer te herbeluisteren, algemene link: https://www.vrt.be/vrtmax/luister/radio/d/de-nacht-van-radio-1~11-22/ Waarvoor dank!
Copyright © by the contributing authors. All material on this collaboration platform is the property of the contributing authors. Ideas, requests, problems regarding Foswiki? Send feedback