不好意思,少了一个 ENDFOR,应该为:
先在命令行中运行如下语句:
SELECT 0
USE 字典 EXCL
INDEX ON WORD TAG WD &&为汉字库建立索引,可以极大优化查找速度
USE
然后建立一个PRG文件,文件内容:
SELECT 0
USE 户籍
USE 字典 IN 0 ORDER WD
SELE 户籍
SCAN
C_XM=ALLTRIM(姓名)
FOR NI=1 TO LENC(C_XM) &&假定姓名都是中文,每字占用两个字符长
_CI=SUBSTR(C_XM,NI*2-1,2)
SELECT 字典
SEEK _CI
IF FOUND()
REPL hjall with hjall+1
ENDIF
ENDFOR
ENDSC
另外,你地ONLYFN或者BOTHFN似乎是没用的,不适合做这样设计的设计.应该在字典表加多两个字段,分别为N_XING,N_MING,分别作为该汉字作为姓出现的次数和名内出现的次数,前提是 '户籍'表的姓与名是分开的
先在命令行中运行如下语句:
SELECT 0
USE 字典 EXCL
INDEX ON WORD TAG WD &&为汉字库建立索引,可以极大优化查找速度
USE
然后建立一个PRG文件,文件内容:
SELECT 0
USE 户籍
USE 字典 IN 0 ORDER WD
SELE 户籍
SCAN
C_XM=ALLTRIM(姓名)
FOR NI=1 TO LENC(C_XM) &&假定姓名都是中文,每字占用两个字符长
_CI=SUBSTR(C_XM,NI*2-1,2)
SELECT 字典
SEEK _CI
IF FOUND()
REPL hjall with hjall+1
ENDIF
ENDFOR
ENDSC
另外,你地ONLYFN或者BOTHFN似乎是没用的,不适合做这样设计的设计.应该在字典表加多两个字段,分别为N_XING,N_MING,分别作为该汉字作为姓出现的次数和名内出现的次数,前提是 '户籍'表的姓与名是分开的