VBS按照系统日期替换字符串文本指定行中旧时间的字符串

如题，比如a.txt中的14行中有xxxx-xx-xx格式的s日期字符串，我想让vbs脚本每次按照当前系统日期替换那个xxxx-xx-xx，就是总是用最新年月日替换旧的年月日。怎样写这个VBS脚本呢？(只有工作日替换，特别是跨周末的，不知道怎么搞）

2026年09月26日 03:02

有2个网友回答

网友（1）：

set fso=wscript.createobject("scripting.filesystemobject")
set wshshell=createobject("wscript.shell")

Set op=fso.OpenTextFile("e:\a.txt",1,ture) '读取文件
If Not op.AtEndOfStream Then t = Split(op.ReadAll, vbCrLf) '分割字符串
op.close

t(13)=date '用当前日期替换t(13)，即文件第十四行
wj=join(t,vbcrlf)

Set op=fso.OpenTextFile("e:\a.txt",2,True) '写入文件
op.write wj
op.close

以上代码关键是在于一行一行地读取文件，然后改变某一行的值再重新写入该文件。

网友（2）：

需要知道你a.txt文件的格式，加我百度hi传过来我帮你看看。