@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