不好意思，貌似处理的有点失误了，命令和注释之间相距过大了一点，稍等~~

vb 程序============dim a as stringopen "文件绝对路径" for input as
#1line input #
1,aif instr(a,"*")<>0 thentext1.text=text1.text & left(a,instr(a,"*")-1) & space(5) & mid(a,instr(a,"*")+1) elsetext1.text=text1.text & aend ifloopclose #1=======================具体文件可以到这里下载http://tj051181.ys168.com/mailto:[email protected]