未完成-网络测速,生成xls

@echo off
setlocal enabledelayedexpansion
set/p name=站点名称：
set list=www.baidu.com www.163.com www.zj.10086.cn sasuke.cn
::rd/q/s chinamobiletest 2>nul
md chinamobiletest 2>nul
pushd chinamobiletest
del over.txt
echo Pinging……
for %%i in (%list%) do set/a urlnum+=1
for %%i in (%list%) do (
echo @echo off >%%i.bat
echo title %%i >>%%i.bat
echo ping %%i -n 100 ^>%%i.txt >>%%i.bat
echo echo %%i ^>^>over.txt >>%%i.bat
echo exit >>%%i.bat
start %%i.bat
)
:waiting
if "%num%" neq "0" (start /w mshta "javascript:document.write();setTimeout('close()',101000)") else (start /w mshta "javascript:document.write();setTimeout('close()',1000)")
set num=0
for /f %%i in (over.txt) do set/a num+=1
if %num% NEQ %urlnum% goto :waiting
echo 数据获取……
for %%i in (%list%) do (
for /f "tokens=9" %%a in ('findstr Average %%i.txt') do set %%ims=%%a
for /f "tokens=10" %%a in ('findstr Lost %%i.txt') do set/a %%isucc=100-%%a
for /f "tokens=4 delims=: " %%a in ('findstr for %%i.txt') do set %%iip=%%a
)
echo 生成表格……
>%name%.xls echo ^<table border="1" cellspacing="0" cellpadding="0"^>
>>%name%.xls echo ^<tr^>
>>%name%.xls echo     ^<td^>^<strong^>项目名称^</strong^>^</td^>
>>%name%.xls echo     ^<td^>^</td^>
>>%name%.xls echo     ^<td^>^<strong^>项目编号^</strong^>^</td^>
>>%name%.xls echo     ^<td colspan="2"^>^</td^>
>>%name%.xls echo   ^</tr^>
>>%name%.xls echo   ^<tr^>
>>%name%.xls echo     ^<td^>^<strong^>测试项目^</strong^>^</td^>
>>%name%.xls echo     ^<td colspan="4"^>测试内容^</td^>
>>%name%.xls echo   ^</tr^>
>>%name%.xls echo   ^<tr^>
set/a rownum=%urlnum%+1
>>%name%.xls echo     ^<td rowspan="%rownum%"^>Ping^</td^>
>>%name%.xls echo     ^<td^>地址^</td^>
>>%name%.xls echo     ^<td^>平均时延(ms)（32字节Ping 100次）^</td^>
>>%name%.xls echo     ^<td^>成功率（%%%）^</td^>
>>%name%.xls echo     ^<td^>备注^</td^>
>>%name%.xls echo   ^</tr^>
for %%i in (%list%) do (
>>%name%.xls echo   ^<tr^>
>>%name%.xls echo     ^<td^>%%i^</td^>
>>%name%.xls echo     ^<td^>!%%ims!^</td^>
>>%name%.xls echo     ^<td^>!%%isucc!^</td^>
>>%name%.xls echo     ^<td^>!%%iip!^</td^>
>>%name%.xls echo   ^</tr^>
)
goto :eof