读取脚本并替换特定行。脚本

Question

我正在开发一个加密用户 Tacacs 密码的脚本，并将该字符串写入另一个脚本。我的脚本打开、读取 Tacacs 密码并将其写入我的其他脚本，但它不会覆盖它。

第一运行:

strTacacs = "Test1234"

第二个运行:

strTacacs = "Test1234"strTacacs = "Test1234"

我当前的脚本：

'***********Write to auto-logon script************

Const ForReading = 1
Const ForWriting = 2
newline = "strTacacs = " & chr(34) & Tacacs & chr(34)
line = 30


Set objFSO = CreateObject("Scripting.FileSystemObject")

Dim lineCount : lineCount = 0
Dim firstContent : firstContent = ""

Set objFolder = objFSO.GetFolder(objStartFolder)
Set colFiles = objFolder.Files
For Each objFile in colFiles
    If LCase(objFSO.GetExtensionName(objFile)) = "vbs" Then
        lineCount = 0
        firstContent = ""
        FileName = objStartFolder & objFile.Name
        Set objStream = objFSO.OpenTextFile(strFile, ForReading)
        Do Until objStream.AtEndOfStream
            lineCount = lineCount + 1
            firstContent = firstContent & objStream.ReadLine & vbCrLf
            'msgbox(firstContent)
            if lineCount = 30 Then 
                firstContent = firstContent & newline
                msgbox(firstContent)
            End if
        Loop  
        Set objStream = objFSO.OpenTextFile(FileName, ForWriting)
        objStream.WriteLine firstContent
        objStream.Close 
    End If  
Next

.

有人知道我做错了什么吗？我是脚本世界的新手，非常感谢您的帮助！

谢谢！

Answer 1

当你到达第 30 行时，看起来你正在写原始行和新行。你应该只在 lineCount 为 30 时写 newline，否则写原始行：

Do Until objStream.AtEndOfStream
    
    lineCount = lineCount + 1
    
    If lineCount = 30 Then
        ' Replace line with newline
        firstContent = firstContent & newline & vbCrLf
    Else
        ' Write original line
        firstContent = firstContent & objStream.ReadLine & vbCrLf
    End If
Loop

如果您知道原始文件中的密码，您可以使用 ReadAll method:

一次性读取整个文件内容

Set objStream = objFSO.OpenTextFile(strFile, ForReading)
firstContent = objStream.ReadAll

然后用Replace替换密码，最后把内容写回去

如果您不知道密码并简单地替换特定行，则当前的逐行方法会更容易。您还可以检查行是否以 strTacacs = 开头，这样您就可以避免对行号进行硬编码：

Dim sLine
Dim sPasswordLine
sPasswordLine = "strTacas ="

Do Until objStream.AtEndOfStream

    ' Read line
    sLine = objStream.ReadLine

    If Left(sLine, Len(sPasswordLine)) = sPasswordLine Then
        ' Replace line with newline
        firstContent = firstContent & newline & vbCrLf
    Else
        ' Write original line
        firstContent = firstContent & sLine & vbCrLf
    End If
    
Loop

读取脚本并替换特定行。脚本

Reading script and replacing specific line. vbscript

vbscript