求用vbs编辑txt文件的小程序,做成后追加全部积分

发布网友 发布时间：2022-04-27 00:15

我来回答

共2个回答

热心网友 时间：2022-06-21 12:47

按你的要求做两个VBS.
第一个VBS如下:
set fso=createobject("scripting.filesystemobject")
set file=fso.opentextfile("text.txt")
do while file.atendofstream<>true
h=file.readline
if len(h)<6 then
n=right("000000" & h,6)
else
n=h
end if
s=s&n&vbcrlf
loop
file.close
set file=fso.createtextfile("#text.txt")
file.write s
file.close
msgbox "文件处理完毕!请查看#text.txt文件!",4096

第二个VBS内容如下:
set fso=createobject("scripting.filesystemobject")
h=inputbox("请输入您要加的字符：","提示","MN")
if h=false then wscript.quit
set file=fso.opentextfile("#text.txt")
do while file.atendofstream<>true
n=h & file.readline
s=s&n&vbcrlf
loop
file.close
set file=fso.createtextfile("MN#text.txt")
file.write s
file.close
msgbox "文件处理完毕!请查看MN#text.txt文件!",4096

热心网友 时间：2022-06-21 12:47

我这里有ASP代码用FSO操作文本
包括按照行读取\修改\附加等操作,需要的话留言给我