VBScript 文本对照工具：逐行比对、修改和导出

本文提供一个使用 VBScript 编写的程序示例，可以实现导入 txt、ini 等格式的文本文件，并支持将两个文本进行逐行对照，同时支持在程序内修改原文本并以原格式导出。

Option Explicit

' 定义文本文件路径
Dim originalFilePath, modifiedFilePath
originalFilePath = 'original.txt'
modifiedFilePath = 'modified.txt'

' 导入原文本文件
Dim originalFileContent
originalFileContent = ImportTextFile(originalFilePath)

' 导入修改后的文本文件
Dim modifiedFileContent
modifiedFileContent = ImportTextFile(modifiedFilePath)

' 对照两个文本文件并修改原文本
Dim i, originalLines, modifiedLines
originalLines = Split(originalFileContent, vbCrLf)
modifiedLines = Split(modifiedFileContent, vbCrLf)

For i = 0 To UBound(originalLines)
    If i <= UBound(modifiedLines) Then
        originalLines(i) = modifiedLines(i)
    End If
Next

' 导出修改后的文本文件
Dim modifiedFileContentNew
modifiedFileContentNew = Join(originalLines, vbCrLf)
ExportTextFile originalFilePath, modifiedFileContentNew

MsgBox '修改后的文本已导出为 ' & originalFilePath

' 导入文本文件
Function ImportTextFile(filePath)
    Dim fso, file
    Set fso = CreateObject('Scripting.FileSystemObject')
    Set file = fso.OpenTextFile(filePath, 1)
    ImportTextFile = file.ReadAll
    file.Close
    Set file = Nothing
    Set fso = Nothing
End Function

' 导出文本文件
Sub ExportTextFile(filePath, content)
    Dim fso, file
    Set fso = CreateObject('Scripting.FileSystemObject')
    Set file = fso.CreateTextFile(filePath, True)
    file.Write content
    file.Close
    Set file = Nothing
    Set fso = Nothing
End Sub

使用方法:

将原文本文件和修改后的文本文件分别保存为 original.txt 和 modified.txt。
运行上述 VBScript 代码。
修改后的文本文件将会以原格式导出为 original.txt。

注意:

该程序仅对两个文本文件进行逐行对照，并将修改后的文本保存到原文本文件中。
如果原文本文件和修改后的文本文件的行数不一致，程序将只对照两个文本文件中较短的部分。
如果需要更复杂的文本处理功能，可以进一步修改代码。