中国DOS联盟

Dim xls1, xls2, valMap, fso, excel, wbs, sht1, sht2, i, n, result, resultString
xls1 = "C:\Documents and Settings\issuser\桌面\a.xls"
xls2 = "C:\Documents and Settings\issuser\桌面\b.xls"
result = "不同的地方.txt"
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Set valMap = WScript.CreateObject("Scripting.Dictionary")
With valMap
	.Add "标准无保留意见", 0
	.Add "带强调事项段的无保留意见", 1
	.Add "无法表示意见", 2
	.Add "保留意见", 3
	.Add "否定意见", 4
	.Add "未披露审计意见类型", 5
	.Add "--", 6
End With
Set excel = WScript.CreateObject("Excel.Application")
Set wbs = excel.Application.Workbooks
wbs.Open xls1
wbs.Open xls2
Set sht1 = wbs.Item(1).Sheets(1)
Set sht2 = wbs.Item(2).Sheets(1)
i = 1
n = 0
resultString = "A" & vbTab & "B" & vbTab & "C" & vbTab & "D"
Do
	If a(i, 3) <> b(i, 3) Then
		resultString = resultString & vbNewLine & _
			a(i, 1) & vbTab & a(i, 2) & vbTab & c(a(i, 3)) & vbTab & c(b(i, 3))
		n = n + 1
	End If
	i = i + 1
Loop Until sht1.Cells(i, 3) = ""
resultString = "总共有 " & n & " 项不同。" & vbNewLine & vbNewLine & resultString
fso.CreateTextFile(result, True).Write resultString
excel.Quit
MsgBox "比较结果保存到了 " & vbCrLf & vbCrLf & fso.GetFile(result).Path, 64, "完成"

Function a(i, j)
	a = sht1.Cells(i, j).Value
End Function

Function b(i, j)
	b = sht2.Cells(i, j).Value
End Function

Function c(s)
	Dim temp
	temp = valMap(s)
	If temp = "" Then temp = s
	c = temp
End Function

@echo off&setlocal enabledelayedexpansion
for /f "tokens=1-3 delims=	" %%a in (2000.txt) do set "%%a%%b=%%c"
for /f "tokens=1-3 delims=	" %%d in (2001.txt) do (
if not "!%%d%%e!"=="%%f" (set/a n+=1
call :i !%%d%%e!
set d=!i!
call :i %%f
set f=!i!
echo %%d		%%e	!d!	!f!))>>输出文件.txt
echo 总共有 %n% 不同。>>输出文件.txt
exit
:i
set i=%1
set i=%i:标准无保留意见=0%
set i=%i:带强调事项段的无保留意见=1%
set i=%i:无法表示意见=2%
set i=%i:保留意见=3%
set i=%i:否定意见=4%
set i=%i:未披露审计意见类型=5%
set i=%i:--=6%

findstr /x /g:2000.txt 2001.txt >temp.txt

@echo off&setlocal enabledelayedexpansion
findstr /x /g:2000.txt 2001.txt >temp.txt
for /f "delims=" %%i in (temp.txt) do (set i=%%i
set i=!i:标准无保留意见=0!
set i=!i:带强调事项段的无保留意见=1!
set i=!i:无法表示意见=2!
set i=!i:保留意见=3!
set i=!i:否定意见=4!
set i=!i:未披露审计意见类型=5!
set i=!i:--=6!
echo !i!)>>相同.txt
del /q temp.txt

@echo off&setlocal enabledelayedexpansion
findstr /x /g:2000.txt 2001.txt >temp.txt
for /f "tokens=1-3 delims=	" %%a in (temp.txt) do (set i=%%c
set i=!i:标准无保留意见=0!
set i=!i:带强调事项段的无保留意见=1!
set i=!i:无法表示意见=2!
set i=!i:保留意见=3!
set i=!i:否定意见=4!
set i=!i:未披露审计意见类型=5!
set i=!i:--=6!
set "hanye_!i!%%a=%%b")
for /f "tokens=1,2 delims==" %%i in ('set^|find /i "hanye_"') do (set i=%%i
echo !i:~7!	%%j	!i:~6,1!)>>相同.txt
del /q temp.txt