forpro大侠看过来，替别人问问

[teddy_huang]

有一张表,其中有一个字段,记录的是各个单位
但是同一个单位可能有不同的名字
比如:北京市工商银行分行,工行北分,工商银行北京市分行
怎么用一个简便的方法把它们都规划为同一个名字那?

我想过如果计算匹配度的方法,可是因为很久没有接触数据库了,具体做法暂时还没想好
by the way,数据库用的是foxpro!!!!!(这个令我很痛苦~~~~~~~)

我想知道具体怎么实现,人工繁杂度可以降到最低

谢谢:)

[kinlzy]

我想你需要条件判断哪些单位是同一个单位而名称不同，然后根据这些条件找出那些单位并将其名称替换，但是这样做也不保险，最保险的办法就是自己一个一个找出来修改：）

[teddy_huang]

斑竹帮帮忙撒，给点建议，谢谢

[fj_jiangqi]

这个不太好做。我是事先在名称输入的时候分别输入全称和简称。
如果象这样的记录不是太多，就一个个找出关键词来处理。
如用“"工行"$字段 .or. "工商银行"$字段”这样的关键词来找，可这只能找已知的一种。这样一个个分别处理，不是好办法，楼下应该会有更好的方法。
-------------------------
我流落在凄凉的世界里－孤苦伶仃
我过着动荡无助的生活－四处漂泊

[newfang]

楼上所说的正确，还是再加一字段处理起来比较简单，比如简称或者单位类型等

[xiolig]

* 数据表说明：
* name(C): 名称字段
* rate(I): 匹配率，降序索引
* flag(L): 状态标志

USE 数据表
SET FILTER TO !flag
SCAN
REPLACE rate WITH 999
nn = TRIM(name)
rr = RECNO()
SKIP
SCAN REST
mm = TRIM(name)
IF LEN(nn)<LEN(mm)
REPLACE rate WITH atm(nn,mm,.T.)
ELSE
REPLACE rate WITH atm(mm,nn,.T.)
ENDIF
ENDSCAN
SET ORDER TO TAG rate
BROWSE FOR RECNO()>=rr AND rate>0
* 显示匹配情况，供用户自行决定
* 匹配率为所有行与第一行相比
* 如果匹配，FLAG 输入 .T.
* 必须编写代码另行处理
SET ORDER TO
GOTO rr
ENDSCAN
RETURN

FUNCTION atm
PARAMETERS cSearch,cSearched,lPercent
PRIVATE i, n
STORE 0 TO n
FOR i = 1 TO LENC(cSearch)
IF AT_C(SUBSTRC(cSearch,i,1),cSearched)>0
n = n + 1
ENDIF
ENDFOR
RETURN IIF(lPercent,n/LENC(cSearch)*100,n)

*原理：含有相同的字

[teddy_huang]

代他谢谢各位了