，有两个文本文件，里面有一些数据，如何找这两个文件相同的数据，并且在新的文本文件中显示出来。请高手告诉我，我需要用到。

[此贴子已经被作者于2006-5-15 22:23:53编辑过]

分别按字符建立两个库，然后比较，相同的放到一个新库，不同再放到另一个库，然后再导出到文本文件就行了!
不过，VFP对于这种应用不是很好!

我以为可以用FREAD（）函数！

* 第一个文件
* 1,2,3

* 第二个文件
* 4,5,2,4,8,9,1,4,9

private s1,s2,f1,f2,n1,c,s,i,k
f1 = getfile('txt') && 得到第一个文件名
f2 = getfile('txt') && 得到第二个文件名
s1 = FileToStr(f1) && 把第一个文件的内容读入到变量
s2 = FileToStr(f2) && 把第二个文件的内容读入到变量
c = ',' && 数据分隔的符号
n1 = GetWordCount(s1,c) && 数据的数量
s = '' && 最终的结果
for i = 1 to n1
k = GetWordNum(s1,i,c) && 取得第i个数据
if c+k+c $ s2
s = s + iif(empty(s),'',c) + k
endif
endfor
StrToFile(s,'结果文件.txt')

&& 最终结果是
&& 1,2