求简单VBS程序

按照你的补充，我修改好了。
下面的代码是：账号开头为44125用AB替换，开头为64147用AC替换
将需要处理的文本放在与本vbs文件同目录运行。

'══代══码══开══始════
set fso=CreateObject("Scripting.FileSystemObject")
set oexcel=CreateObject("excel.application")
oexcel.visible=false
oexcel.workbooks.open(fso.getfolder(".").path&"\123.xls")
set fw=fso.createtextfile("结果.txt",2)
i=1
do
v1=ltrim(oexcel.worksheets(1).cells(i,1).value)
v2=ltrim(oexcel.worksheets(1).cells(i,2).value)
v3=ltrim(oexcel.worksheets(1).cells(i,3).value)
t=v1
fw.writeline(change(v1,v2,v3))
i=i+1
loop until t=""
oexcel.quit
set ssp=CreateObject("SAPI.SpVoice")
ssp.speak "Produced by escortmnm ,From VBS Group"
function change(v1,v2,v3)
Set regEx = New RegExp
regEx.Pattern = "^44125"
if regEx.test(v1) then
v1=regEx.Replace(v1,"AC")
else
regEx.Pattern = "^64147"
if regEx.test(v1) then
v1=regEx.Replace(v1,"cd")
end if
end if
change=v1&space(8)&v2&space(11)&v3
end function
'══代══码══结══束════

说明：
1、既然你的原始信息在excel里面，这样就简单了，直接从excel里面读取数据。
2、将你的excel保存在与本vbs文件同目录下的123.xls,运行这个vbs就会得到结果

一楼你好!我提出的一个问题还没解决。
当我输入名字为“李金峰1”时，程序不会报错。而我希望名字(无字数限制)中只要有数字出现就要报错，提示名字错误。希望能更正，谢谢！
chengxinrenpin