| 网站首页 | 业界新闻 | 群组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 编程论坛
共有 218 人关注过本帖
标题:怎样查找姓名用得最多的字?
只看楼主 加入收藏
greenpop
Rank: 1
等 级:新手上路
帖 子:29
专家分:3
注 册:2011-12-22
结帖率:90%
  已结贴   问题点数:20  回复次数:5   
怎样查找姓名用得最多的字?
有一个年级表,怎样查找所有人名中用得最的字(除姓外).谢谢各位高手.
2018-12-03 15:31
fyyylyl
Rank: 5Rank: 5
等 级:职业侠客
威 望:9
帖 子:213
专家分:348
注 册:2006-5-22
  得分:15 
将所有名字拆分成单字再统计 ?

2018-12-03 16:27
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:173
帖 子:7426
专家分:17586
注 册:2012-2-5
  得分:5 
姓的规则是什么

坚守VFP最后的阵地
2018-12-03 18:32
greenpop
Rank: 1
等 级:新手上路
帖 子:29
专家分:3
注 册:2011-12-22
  得分:0 
把名字拆成单个字,一个字占一个字段,然后统计重复的字段。
2018-12-03 19:33
秋裤
Rank: 2
等 级:论坛游民
威 望:1
帖 子:57
专家分:40
注 册:2017-6-26
  得分:0 
CLEAR
USE D:\下载文件\lj.dbf IN 1
CREATE TABLE 字(号 c(2),次数 n(10,2))&&\Creat Table 是一个内嵌的SQL语句,是用命令的方法通过编程建立表结构。其命令格式为:
USE 字 IN 2                       &&\Creat Table <表名>(<字段名1><字段类型>[<字段宽度,小数位数>])[,<字段名2>...])。
SELECT 1                          &&\例:
z=RECCOUNT()                      &&\Creat Table DX(编号 C(5),年月 C(4),费用 N(6,1))
FOR i=1 TO z                      &&\即:创建一个名为DX的表,一个字段
    GO i
    c=LEN(ALLTRIM(姓名))
         FOR f=1 TO c-1 STEP 2
             SELECT 1
             GO i
             x=SUBSTR(姓名,f,2)
             SELECT 2
             LOCATE FOR 号=x   &&\如果 LOCATE 找到了匹配的记录,则可以用 RECNO( ) 返回匹配记录的编号。
             IF FOUND()        &&\如果找到匹配记录,则 FOUND( ) 返回真(.T.),EOF( ) 返回假(.F.)。
                d=RECNO()
                GO d
                REPLACE 次数 WITH 次数+1  &&\REPLACE 字段名 WITH 表达式 FOR 条件
             ELSE
                INSERT INTO 字(号,次数)value(x,1) &&\insert into 表名(字段1,字段2,...) values(值1,值2,...)
             ENDIF
         ENDFOR
         SELECT 1
ENDFOR
SELECT 2
LIST
***********
给楼主补一个,应该是这样的吧

学无止尽!!!
2018-12-05 20:05
liuxingang28
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:山东济南
等 级:版主
威 望:41
帖 子:625
专家分:2072
注 册:2014-2-7
  得分:0 
这个问题看似很简单,但实际做起来并不轻松,难点在于如何区分“姓”和“名”,中国人的姓氏太复杂了,有很多复姓。

泉城飞狐
2018-12-06 08:15







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.025330 second(s), 8 queries.
Copyright©2004-2018, BCCN.NET, All Rights Reserved