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

任何人都可以让我知道如何写一个记事本文件，其中有多个内容，我需要写输出到一个特定的地方

例如：我有一个记事本，上面有内容

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

现在我需要更新域名，我可以从

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

---

有办法吗？

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

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

---

请举例说明您的文件在修改前后的外观。通过单击

edit

并将其添加到问题中，而不是添加注释，因为注释中的格式很难设置。