如何在vbscript中的文件中间写文本？ [关闭]

Posted 2021-05-04

我想知道如何在vbscript中的文件中间写文本。文本文件有2行，一行代表输出名称，第二行代表值。输出以“;”分隔例如：在插入文本之前，文本文件包含 -

mem1; mem2; mem3; 0.15; 15.5; 12.3;

插入新文本后 -

mem1; mem2; mem3; mem4 0.15; 15.5; 12.3; 13.2

谢谢你的帮助！

附： - 请注意它应该是txt文件而不是csv。

答案

我有这个片段：

'Usage: 
'If ReplaceInFile(filename, search, replace, addToEnd) = 0 Then 
'   WScript.Echo "Succeeded"
'End If

Function ReplaceInFile(strFilename, strSearch, strReplace, addToEnd)
    Dim fso, objFile, oldContent, newContent

    'Does file exist?
    Set fso = CreateObject("Scripting.FileSystemObject")
    If fso.FileExists(strFilename) = False Then
       ReplaceInFile = 0
       Exit Function
    End If

    'Read file
    Set objFile = fso.OpenTextFile(strFilename, 1)
    oldContent = objFile.ReadAll

    'Write file
    newContent = replace(oldContent, strSearch, strReplace, 1, 1, 0)
    newContent = newContent & addToEnd 
    Set objFile = fso.OpenTextFile(strFilename, 2)
    objFile.Write newContent
    objFile.Close 
    ReplaceInFile = 0
End Function

所以你可以像这样使用：

If ReplaceInFile("your file path", ";
", "mem4", "13.2") = 0 Then 
   WScript.Echo "Succeeded"
End If

警告！！这假设最后一行最后没有新行！