Question

求教大神vbs replace替换字符串问题 字符串中有换行。

文件a.lua里有这么一段
a_config= --这里回车换行的
{
--内容
}
我想用vbs 在内容里面加上"[9000]=true,"

vbs:

set fso=createobject("scripting.filesystemobject")
set f=fso.opentextfile(".\a.lua")
content=f.readall
content=replace(content,"a_Config ={","a_Config ={[9000]=true,")
set f=fso.createtextfile(".\a.lua")
f.write(content)
f.close
MsgBox "a.lua所有配置已经开启。"

但是这段脚本并不能实现，我猜想是因为config=后面换行导致的，求大神告诉我怎么才能实现我的目的。

Answer 1

content=replace(content,"a_Config =" & vbCrLf & "{","a_Config ={[9000]=true,")

如果不是Windows换行,那么用
content=replace(content,"a_Config =" & vbLf & "{","a_Config ={[9000]=true,")

Answer 2

把f.write(content)改成f.write content
你没有关闭opentextfile