使用vbscript写入.txt的特定位置

Question

任何人都可以告诉我如何写入具有多个内容的记事本文件，我需要将输出写入特定的地方。

说出来： - 我有一个带内容的记事本

System Name=abc123_1223
System_Ip=xxx.xx.xxx.xxx
Domain_Name= ??

现在我需要更新我可以从

获取的域名

Set Info = CreateObject("AdSystemInfo")
GetDomainName = Info.DomainDNSName

有办法吗？

Answer 1

您可以将文件内容读入变量：

data = fso.OpenTextFile("C:\path\to\your.txt").ReadAll

用正则表达式替换该行：

Set re = New RegExp
re.Pattern    = "^(Domain_Name=).*"
re.IgnoreCase = True
re.MultiLine  = True

data = re.Replace(data, "$1" & Info.DomainDNSName)

然后将修改后的数据写回文件：

fso.OpenTextFile("C:\path\to\your.txt", 2).Write data