#&Gawk -f %0  $DG.txt&Exit
BEGIN {
    while((getline<"NEW_DG.txt")>0) type1[a++]=$0;
    for(i=1;i<2;i++) printf("ENTRY                 \n")>>"$type"i".txt";
}
NR>1{
    for(i in type1) 
        if($1==type1[i]) print $0 >>"$NR.txt";

}
复制代码

Dim fso,File1,File2,File3,MyArray(),arr
Set fso = CreateObject("Scripting.FileSystemObject")
Set File1= fso.OpenTextFile(".\$DG.txt", 1 , True)
Set File2= fso.OpenTextFile(".\NEW_DG.txt", 1 , True)
Set File3 = fso.CreateTextFile(".\结果.txt", 2 ,False) 
i=0
s=""
Do While File1.AtEndOfStream <> True 
ReDim Preserve MyArray(i)
MyArray(i)=File1.ReadLine
i=i+1
Loop
File1.Close
Do While File2.AtEndOfStream <> True
t=File2.ReadLine
For j=0 To UBound(MyArray)
arr=Split(MyArray(j),"	")
If t = arr(0) Then
s=s&MyArray(j)&vbCrLf
End If
Next
Loop
File3.WriteLine s
File2.Close
File3.Close
Msgbox "完成"
复制代码

@echo off
(for /f %%a in (NEW_DG.txt) do (
	set e=
	for /f "tokens=1,2 delims=	" %%i in ($DG.txt) do (
		if "%%a" equ "%%i" (echo;%%i	%%j&set e=1)
	)
	if not defined e echo;%%a
))>tmp
pause & exit /b
复制代码

Dim fso,File1,File2,File3,objDict,arr
Set objDict = CreateObject("Scripting.Dictionary")
Set fso = CreateObject("Scripting.FileSystemObject")
Set File1 = fso.OpenTextFile(".\$DG.txt", 1)
Set File2 = fso.OpenTextFile(".\NEW_DG.txt", 1)
Set File3 = fso.CreateTextFile(".\结果.txt", 2)
Do While File1.AtEndOfStream <> True 
    arr = Split(File1.ReadLine,"	")
    objDict.Add arr(0), arr(1)
Loop
File1.Close
Do While File2.AtEndOfStream <> True
    t = File2.ReadLine
    If objDict.Exists(t) Then 
       File3.WriteLine t&"	"&objDict.Item(t)
    End If
Loop
File2.Close
File3.Close
Msgbox "完成"
复制代码