覆盖 vbscript 中的值答案

【问题标题】：Overwrite value in vbscript覆盖 vbscript 中的值
【发布时间】：2014-10-07 10:57:42
【问题描述】：

我必须用新值更新 test.txt，即删除值 {"AAA":"777" , "BBB":"888"} 并在标签中添加 {"ABC:"123","GHN:"246"} 但我的脚本将值附加为 {"AAA":"777" , "BBB":"888"} {"ABC:"123","GHN:"246"

    strFile="test.txt"
Const ForAppending  = 8
set objFSO = CreateObject("Scripting.FileSystemObject")
set objFile = objFSO.OpenTextFile(strFile, ForAppending , True)
objFile.Write("{")
Dim dict
Set dict= CreateObject("Scripting.Dictionary")
dict.Add "ABC","123"
dict.Add "GHN","246"
k=dict.Keys
v=dict.Items
For j=0 to dict.Count-1
        objFile.Write(chr(34)&k(j)&":"&chr(34)&v(j)&chr(34)&",")
Next

==============

Test.txt

   [Valid]
   api = https://test.com
   Alpha = FALSE
   tag = {"AAA":"777" , "BBB":"888"}

【问题讨论】：

标签： vbscript

【解决方案1】：

我从来没有使用过字典对象/不知道怎么用，所以这对你来说可能不是一个可行的解决方案，这取决于你是否需要对象提供的某些东西......但是如果不求助于正则表达式，你能不是简单地做这样的事情吗？

Dim fso, filecontent, file
Set fso = CreateObject("Scripting.FileSystemObject")
file = "C:\temp\test.txt"
filecontent = fso.OpenTextFile(file, 1, False).ReadAll
filecontent = Replace(filecontent,  "{""AAA"":""777"" , ""BBB"":""888""}", "{""ABC:""123"",""GHN:""246""}")
fso.OpenTextFile(file, 2, True).Write filecontent

【讨论】：