（已解决）:两个数组之间的比对问题!

3131806

现有两个txt文档,分别为1.txt,2.txt
1.txt内容如下:
中国
美国
英国
2.txt内容如下
中国
美国
法国
德国
我现在把这两个文档都读入到数组里,进行比对,然后要把两个文档中相同的国家名保存到3.txt里
#include <Array.au3>

Dim $a,$b

_FileReadToArray ("c:\1.txt",$a)

_FileReadToArray ("c:\2.txt",$b)

下面怎么做啊,大侠们,帮帮忙!

lixiaolong

回复 1# 3131806

我在这里看到一个UDF，去掉"Not"就可以实现
http://www.autoitx.com/forum.php ... hlight=%B6%D4%B1%C8

#include <file.au3>

_FileListCompare("1.txt","2.txt","3.txt")

Func _FileListCompare($hSouce,$hTarget,$hOutPut)

        $hLine_S = _FileCountLines($hSouce)

        $hCon_T = FileRead($hTarget)

        For $hSi = 1 To $hLine_S

                $hS_String = FileReadLine($hSouce,$hSi)

                If StringInStr($hCon_T,$hS_String) Then

                        FileWriteLine($hOutPut,$hS_String)

                EndIf

        Next

EndFunc

3131806

谢谢大哥，真的好用，嘿嘿！