* 第一个文件
* 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