截取字符串，如何把145318276149分成14,53,18,27,61,49?

测试通过
<%
function splitstr(str,length)
dim reg,i
i=0
do while not i>=len(str) \ length
reg=reg&mid(str,i*length+1,length)&","
i=i+1
loop
splitstr=mid(reg,1,len(reg)-1)
end function

response.write splitstr("145318276149",2)
%>

@echo off
set /p n=请输入字符：
:loop
set m=%n:~0,2%
set n=%n:~2%
set s=%s%%m%,
if "%n%"=="" goto end
goto loop
:end
echo %s:~0,-1%
pause
把上面的内容复制到记事本，另存为a.bat文件。