VBS编辑文本

来源：百度知道 编辑：UC知道 时间：2024/05/31 06:15:09
要对一个1000多行的文本进行编辑，目的是删除每行的前5个字符，然后保存，速度高手们我手机等

set fso=createobject("scripting.filesystemobject")
set file=fso.opentextfile("a.txt")
do while file.atendofstream<>true
n=file.readline
if len(n)>=5 then n=mid(n,6)
if n<>"" then s=s&n&vbcrlf
loop
file.close
set file=fso.createtextfile("#a.txt")
file.write s
file.close
set fso=nothing
set file=nothing