Question

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

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

插入新文本后-

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

感谢帮助我！

P.S。 -请注意，它应该是txt文件而不是csv。

Answer 1

我有以下代码段：

'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", ";\r\n", "mem4", "13.2") = 0 Then 
   WScript.Echo "Succeeded"
End If

警告！ 这假定最后一行末尾没有新行！

如何在vbscript中的文件中间写入文本？

1 个答案: