现有一个dbf文件名为xingming
其中有两列xm1，xm2
张三丰    张三
李四     王五
小丽     小莉
张子默   张了黑
高强     高强
。。。   。。。

需要达到的效果的是找到两列完全不同的姓名行，只要两列有一个字等于（也不考虑汉字位置）就过滤掉，只要完全完全不相等信息，比如以上例子返回：
李四   王五


请问如果写一个prg生成一个查询结果表。

myfll 里有个叫 StrApproach 的计算相似度函数，用它来判断就很简单

Set Library To myfll
Create Cursor test (xm1 V(10), xm2 V(10))
Insert into test Values ('张三丰', '张三')
Insert into test Values ('李四', '王五')
Insert into test Values ('小丽', '小莉')
Insert into test Values ('张子默', '张了黑')
Insert into test Values ('高强', '高强')
Select * from test where StrApproach(xm1, xm2) = 0

简单的方法就是进行单个字符判断，请试一试:

create cursor tt (xm1 v(10), xm2 v(10))
insert into tt values ('张三丰', '张三')
insert into tt values ('李四', '王五')
insert into tt values ('小丽', '小莉')
insert into tt values ('张子默', '张了黑')
insert into tt values ('高强', '高强')

select * from tt where !left(alltrim(xm1),2)$alltrim(xm2) and !substr(alltrim(xm1),3,2)$alltrim(xm2) and !substr(alltrim(xm1),5,2)$alltrim(xm2)

若姓名中字符数不太确定的话，可以加上判断最长的姓名字符串。

[此贴子已经被作者于2023-9-4 14:48编辑过]

笨方法

CLEAR 
create cursor tt (xm1 v(10), xm2 v(10))
insert into tt values ('张三丰', '张三')
insert into tt values ('李四', '王五')
insert into tt values ('小丽', '小莉')
insert into tt values ('张子默', '张了黑')
insert into tt values ('高强', '高强')
SCAN 
    lCnt = 0
    FOR ln = 1 TO LENC(ALLTRIM(xm1))
        IF SUBSTRC(ALLTRIM(xm1), ln, 1) $ xm2
            lCnt = lCnt + 1
            EXIT 
        ENDIF 
    ENDFOR    
    IF lCnt = 0
        ? xm1, xm2
    ENDIF 
ENDSCAN

CLEAR 
create cursor tt (xm1 v(10), xm2 v(10))
insert into tt values ('张三丰', '张三')
insert into tt values ('李四', '王五')
insert into tt values ('小丽', '小莉')
insert into tt values ('张子默', '张了黑')
insert into tt values ('高强', '高强')
SELECT * FROM tt WHERE CHRTRANC(xm1,xm2,"")==xm1

太厉害了，没想到一句查询语句就可以实现，不过不我是特别懂这个语句的意思，像是把字段替换成空什么的，能解释一下吗？

试试
BROWSE FOR CHRTRANC(xm1,xm2,"")==xm1

在xm1中找到xm2中相同的字时就清除掉，如果最后结果xm1还是原来的样子就是所求。

这个和吹水佬是一个意思，是可以的

明白了，谢谢