中国DOS联盟

@echo off

setlocal enabledelayedexpansion



echo n=inputbox("请给a,b,c...变量赋值,如：","提示","批处理 脚本 程序 ...")>"%temp%\temp.vbs"

echo s=split(n):l=ubound(s)>>"%temp%\temp.vbs"

echo for i=0 to l>>"%temp%\temp.vbs"

echo     wscript.echo s(i)>>"%temp%\temp.vbs"

echo next>>"%temp%\temp.vbs"



set n=0

for /f "delims=" %%i in ('cscript //nologo "%temp%\temp.vbs"') do (

     set /a n+=1

     set a!n!=%%i

)

for /l %%j in (1,1,!n!) do echo a(%%j)=!a%%j!

pause