[日期时间] 批处理如何获得网络时间？

pichuli1

假如把时间填入文本在放到网站上，如何去获取并作为变量呢。如果http://127.0.0.1/1.txt里写入时间20140101如何获取呢？

pushd %tmp%
(
echo Randomize
echo With CreateObject("Microsoft.XMLHTTP"^)
echo .open "get","http://open.baidu.com/special/time/?"^&Rnd*1e15,False
echo .send
echo t=DateAdd("s",CLng(Left(Split(.responseText,"baidu_time("^)(1^),10^)^),"1970-1-1 8:00"^)
echo WScript.echo DateValue(t^),Hour(t^)^&":"^&Minute(t^)^&":"^&Second(t^)
echo End With
)>gettime.vbs
for /f "tokens=1*" %%i in ('cscript //nologo gettime.vbs') do date %%i&time %%j
popd
复制代码

如何在以上的代码里获取到日期，格式为20140101。并设置为变量？

DAIC

回复 3# pichuli1


    你现在的脚本里面调用那个vbs之后得到的格式是怎样的？

pichuli1

回复 2# xxpinqz


    谢谢你的热心帮助，可能我把问题描述的有点模糊了，我的意思是我把时间放在一个文本了，比如在 http://127.0.0.1/1.txt 这个文本里内容是  aa20140101aa，我如何去获得20140101这个时间值？

xxpinqz

@echo off
pushd %tmp%
(
echo Randomize
echo With CreateObject("Microsoft.XMLHTTP"^)
echo .open "get","http://open.baidu.com/special/time/?"^&Rnd*1e15,False
echo .send
echo t=DateAdd("s",CLng(Left(Split(.responseText,"baidu_time("^)(1^),10^)^),"1970-1-1 8:00"^)
echo WScript.echo right(year(t^),4^) ^& right("0" ^& month(t^),2^) ^& right("0" ^& day(t^),2^),Hour(t^)^&":"^&Minute(t^)^&":"^&Second(t^)
echo End With
)>gettime.vbs
for /f "tokens=1*" %%i in ('cscript //nologo gettime.vbs') do  date %%i&time %%j&set "日期=%%i"
set 日期
popd
pause
复制代码