中国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