| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 3206 人关注过本帖, 2 人收藏
标题:继续请大家帮助:如何提取姓名字段中第一个字的拼音?
只看楼主 加入收藏
小主板
Rank: 2
等 级:论坛游民
帖 子:187
专家分:21
注 册:2009-6-28
收藏
得分:0 
期待帮助!!!!!!!!!
2012-03-28 23:59
bccn201203
Rank: 9Rank: 9Rank: 9
等 级:蜘蛛侠
威 望:3
帖 子:680
专家分:1140
注 册:2012-3-14
收藏
得分:0 
回复 10楼 小主板
简拼也要用自定义函数
程序代码:
*---PY.PRG
PARAMETER cHZCHR
LOCAL cPYCHR,i,j,C,HZ
cPYCHR= " "
*SET COLLATE TO "PINYIN "     &&设置当前排序方式为拼音方式
PYCode= "八嚓咑妸发旮铪讥讥咔垃呣拿讴趴七呥仨他哇哇哇夕丫匝咗 "   &&从b开始每个拼音码的首字符
FOR i=1 TO LEN(cHZCHR)
    IF ASC(SUBSTR(cHZCHR,i,1))> 160   &&判断是否为汉字
       HZ=SUBSTR(cHZCHR,i,2)
       C= " "
       FOR j=1 TO 26
           IF SUBSTRC(HZ,1,1) <SUBSTRC(PYCode,j,1)   &&进行汉字比较
              C=CHR(96+j)     &&得到首位拼音码
              EXIT
           ENDIF
       ENDFOR
       cPYCHR=cPYCHR+UPPER(C)
       i=i+1
    ELSE
       cPYCHR=cPYCHR+UPPER(SUBSTR(cHZCHR,i,1))
    ENDIF
ENDFOR
RETURN cPYCHR
只是常用汉字,放在与数据表相同的文件夹内
USE TABLENAME
REPLACE ALL 首字拼音 WITH PY(姓名)



[ 本帖最后由 bccn201203 于 2012-3-29 00:04 编辑 ]
2012-03-29 00:01
bccn201203
Rank: 9Rank: 9Rank: 9
等 级:蜘蛛侠
威 望:3
帖 子:680
专家分:1140
注 册:2012-3-14
收藏
得分:0 
如果单纯建一个姓氏全拼字库也不难,网上查下,国内姓氏共有多少,自己建个全拼字库,充其量也就200个记录,再写个自字义函数,就能获取姓氏的简拼与全拼了。
2012-03-29 00:09
小主板
Rank: 2
等 级:论坛游民
帖 子:187
专家分:21
注 册:2009-6-28
收藏
得分:0 
感谢bccn201203
2012-03-29 00:19
bccn201203
Rank: 9Rank: 9Rank: 9
等 级:蜘蛛侠
威 望:3
帖 子:680
专家分:1140
注 册:2012-3-14
收藏
得分:0 
回复 14楼 小主板
是否能用
2012-03-29 00:23
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:4 
给你一个全拼码表:

py.zip (74.92 KB)

授人以渔,不授人以鱼。
2012-03-29 07:17
小主板
Rank: 2
等 级:论坛游民
帖 子:187
专家分:21
注 册:2009-6-28
收藏
得分:0 
感谢TonyDeng版主!
2012-03-29 07:43
小主板
Rank: 2
等 级:论坛游民
帖 子:187
专家分:21
注 册:2009-6-28
收藏
得分:0 
TonyDeng版主,这个我不知道怎么用?请您指点!
2012-03-29 07:45
小主板
Rank: 2
等 级:论坛游民
帖 子:187
专家分:21
注 册:2009-6-28
收藏
得分:0 
回复 15楼 bccn201203
可以提取名字简拼,感谢您!
2012-03-29 07:49
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:4 

感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2012-03-29 09:05
快速回复:继续请大家帮助:如何提取姓名字段中第一个字的拼音?
数据加载中...
 
   



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

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