VBS脚本判断及获取两个文件之间的不同内容

你可以使用VBS脚本编写一个比较两个文本文件并输出不同内容的程序。以下是一个示例脚本：

' 比较两个文本文件并输出不同内容

Set objFSO = CreateObject("Scripting.FileSystemObject")

' 定义要比较的文件路径
strFile1 = "C:\file1.txt"
strFile2 = "C:\file2.txt"

' 打开文件并读取内容
Set objFile1 = objFSO.OpenTextFile(strFile1)
strContent1 = objFile1.ReadAll
objFile1.Close

Set objFile2 = objFSO.OpenTextFile(strFile2)
strContent2 = objFile2.ReadAll
objFile2.Close

' 比较文件内容
If strContent1 = strContent2 Then
    WScript.Echo "The two files are identical."
Else
    ' 获取不同的内容
    arrContent1 = Split(strContent1, vbCrLf)
    arrContent2 = Split(strContent2, vbCrLf)
    
    For i = 0 To UBound(arrContent1)
        If arrContent1(i) <> arrContent2(i) Then
            WScript.Echo "Line " & i + 1 & " differs: " & arrContent1(i) & " <> " & arrContent2(i)
        End If
    Next
End If

该脚本首先定义了要比较的两个文件路径，然后打开文件并读取它们的内容。如果两个文件内容相同，则输出一条消息。否则，脚本将比较每一行的内容，并输出不同的内容。