| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1443 人关注过本帖, 1 人收藏
标题:疯狂的VFPER之获取汉字拼音简码
只看楼主 加入收藏
akun868
Rank: 2
等 级:论坛游民
帖 子:50
专家分:20
注 册:2006-2-7
收藏(1)
 问题点数:0 回复次数:2 
疯狂的VFPER之获取汉字拼音简码
一晃真正用VFP写程序也已6年多了,大大小小也做了几十个系统,曾经有多少个日夜坐在电脑前敲打着空格、回车...,突然发现我在论坛上回贴的多,发贴的少,决定痛改前非:)...闲话少说,言归正传,我会陆续将我的部份VFP代码给大家分享(并不一定都是我的原创,有些是在其他VFPER的代码上改的)。

疯狂的VFPER之获取汉字拼音简码

Procedure pinyin
   Parameter tcString
   Private lcCode,i,j,lcChina,lcChar,lcPinyin
   Local lcCode,i,j,lcChina,lcChar,lcPinyin

   lcPinyin = ""
   lcCode = "八嚓咑妸发旮铪讥讥咔垃呣拿讴趴七呥仨他哇哇哇夕丫匝咗" &&从b开始的每个拼音码的首字符
   For  i=1 To Len(tcString)
      If Asc(Substr(tcString,i,1))>160 &&判断是否为汉字
         lcChina = Substr(tcString,i,2)
         lcChar  = ""
         For j=1 To 26
            If Substrc(lcChina,1,1)<Substrc(lcCode,j,1)    &&进行汉字比较
               lcChar = Chr(96+j)    &&得到首位拼音码
               Exit
            Endif
         Endfor
         lcPinyin = lcPinyin + Upper(lcChar)
         i = i+1
      Else
         lcPinyin = lcPinyin + Upper(Substr(tcString,i,1))
      Endif
   Endfor
   Return lcPinyin
Endproc
搜索更多相关主题的帖子: 简码 VFPER 拼音 汉字 获取 
2008-11-10 20:21
lbjdyx
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2008-12-2
收藏
得分:0 
转换的结果好象不准确,如操、草、财等字,不知何原因
转换的结果好象不准确,如操、草、财等字,不知何原因。
2008-12-02 22:12
fown
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:58
帖 子:1229
专家分:171
注 册:2005-5-26
收藏
得分:0 
我敢肯定的说,这不是你的原创,下次转载请注明出处.这个文章有原作者的,而且这个被RMH做成了DLL,如果我没记错的话,下次看到RMH,告你的状.嘿嘿.

有人说VFP不行了,我想说,你连VFP十分之一的功能都不会用,你怎么知道VFP不行?本人拒绝回答学生的问题我回答问题一般情况下只提供思路不提供代码,请理解
2008-12-03 21:33
快速回复:疯狂的VFPER之获取汉字拼音简码
数据加载中...
 
   



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

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