原创文章,引用转载请注明作者出处。

针对上一篇博文--汉字转拼音的程序,我在这里写一下程序用的数据库。我显示从网上找了一个开源数据库,是cedit的,下载下来之后是txt文件,而且里面处理简体中文还有繁体中文,还有英语的翻译,原txt内容的部分截图如下:

所以要先对txt文件进行筛选,只留下简体汉字跟拼音,代码如下(WinDev语言,法文版)

MonBuffer est un Buffer 
MonBuffer = fChargeTexte("C:\Users\stagiaire57\Desktop\Notes\BD_donne\cedit.txt")
MaChaîne est une chaîne UNICODE 
MaChaîne = MonBuffer
nIDFichier est int= fOuvre("C:\Users\stagiaire57\Desktop\Notes\BD_donne\cedittestSimplifie.txt", foLectureEcriture)
i est un int=1
TANTQUE ExtraitLigne(MaChaîne,i)<> EOT  //<>是不等于的意思,就是说只要不等边界付就继续执行,一旦等于就停止执行。
unechaine est une chaîne=ExtraitLigne(MaChaîne,i)
//sUneNouvelleChaine1 est une chaîne=ExtraitChaîne(unechaine,1," ",DepuisDébut)
sUneNouvelleChaine2 est une chaîne=ExtraitChaîne(unechaine,2," ",DepuisDébut)
sUneNouvelleChaine3 est une chaîne=ExtraitChaîne(unechaine,2,["[","]"," and "])
sUneNouvelleChaine4 est une chaîne=sUneNouvelleChaine2+TAB+sUneNouvelleChaine3
fEcritLigne(nIDFichier,sUneNouvelleChaine4)
i++
FIN

可以看出WinDev非常方便,几行代码就解决了可能其他语言要写一页的代码。处理后的txt文件如下:

那么现在大家可以清楚地看到,原始txt文件里面的拼音虽然有声调,但是都是用数组表示的,并没有真正的显示在字母上面,下面就是我的程序的新颖的地方,我把声调加在了相应的字母上面,然后再把数据放到数据库里面。代码如下:

PROCEDURE DetecterETchanger(UnPinyin):chaîne UNICODE
sChaineTest est une chaîne UNICODE=Milieu(UnPinyin,Taille(UnPinyin),1)

sLettreAremplace est une chaîne UNICODE=""
sLettreRemplace est une chaîne UNICODE=""

nTrouve est un entier=0

SI ChercherVoyelle(UnPinyin,"a")=Vrai ALORS
nTrouve=1
sLettreAremplace="a"
SELON sChaineTest
CAS "1"
sLettreRemplace="ā"
CAS "2"
sLettreRemplace="á"
CAS "3"
sLettreRemplace="ǎ"
CAS "4"
sLettreRemplace="à"
CAS "5"
sLettreRemplace="a"
AUTRE CAS
RENVOYER UnPinyin
FIN
FIN

SI nTrouve=0 _ET_ ChercherVoyelle(UnPinyin,"o")=Vrai  ALORS
nTrouve=1
sLettreAremplace="o"
SELON sChaineTest
CAS "1"
sLettreRemplace="ō"
CAS "2"
sLettreRemplace="ó"
CAS "3"
sLettreRemplace="ǒ"
CAS "4"
sLettreRemplace="ò"
CAS "5"
sLettreRemplace="o"
AUTRE CAS
RENVOYER UnPinyin
FIN
FIN

SI nTrouve=0 _ET_ ChercherVoyelle(UnPinyin,"e")=Vrai   ALORS
nTrouve=1
sLettreAremplace="e"
SELON sChaineTest
CAS "1"
sLettreRemplace="ē"
CAS "2"
sLettreRemplace="é"
CAS "3"
sLettreRemplace="ě"
CAS "4"
sLettreRemplace="è"
CAS "5"
sLettreRemplace="e"
AUTRE CAS
RENVOYER UnPinyin
FIN
FIN

SI nTrouve=0 _ET_ ChercherVoyelle(UnPinyin,"i")=Vrai  ALORS
nTrouve=1
sLettreAremplace="i"
SELON sChaineTest
CAS "1"
sLettreRemplace="ī"
CAS "2"
sLettreRemplace="í"
CAS "3"
sLettreRemplace="ǐ"
CAS "4"
sLettreRemplace="ì"
CAS "5"
sLettreRemplace="i"
AUTRE CAS
RENVOYER UnPinyin
FIN
FIN

SI nTrouve=0 _ET_ ChercherVoyelle(UnPinyin,"u")=Vrai  ALORS
nTrouve=1
sLettreAremplace="u"
SELON sChaineTest
CAS "1"
sLettreRemplace="ū"
CAS "2"
sLettreRemplace="ú"
CAS "3"
sLettreRemplace="ǔ"
CAS "4"
sLettreRemplace="ù"
CAS "5"
sLettreRemplace="u"
AUTRE CAS
RENVOYER UnPinyin
FIN
FIN

SI nTrouve=0 _ET_ ChercherVoyelle(UnPinyin,"v")=Vrai  ALORS
nTrouve=1
sLettreAremplace="u:"
SELON sChaineTest
CAS "1"
sLettreRemplace="ǖ"
CAS "2"
sLettreRemplace="ǘ"
CAS "3"
sLettreRemplace="ǚ"
CAS "4"
sLettreRemplace="ǜ"
CAS "5"
sLettreRemplace="ü"
AUTRE CAS
RENVOYER UnPinyin
FIN
FIN

SI nTrouve=0 ALORS
RENVOYER UnPinyin
FIN
sUnPinyinRemplace est une chaîne UNICODE=Remplace(UnPinyin,sLettreAremplace,sLettreRemplace)
RENVOYER Milieu(sUnPinyinRemplace,1,Taille(sUnPinyinRemplace)-1)

PROCEDURE ChangerPinyinAccent()
MonBuffer est un Buffer 
MonBuffer = fChargeTexte("C:\Users\stagiaire57\Desktop\PinyinTest.txt")
MaChaîne est une chaîne UNICODE 
MaChaîne = MonBuffer
HOuvre(ChangerPinyin1)
i est un int=1

TANTQUE ExtraitLigne(MaChaîne,i)<> EOT
PinyinFinale est une chaîne UNICODE=""
unechaine est une chaîne=ExtraitLigne(MaChaîne,i)
ChangerPinyin1.Hanzi=ExtraitChaîne(unechaine,1,TAB)
PinyinInitiale est une chaîne UNICODE=ExtraitChaîne(unechaine,2,TAB)

numbre est un entier=1
BOUCLE
UnPinyin est une chaîne UNICODE=ExtraitChaîne(PinyinInitiale,numbre," ",DepuisDébut)
numbre++
SI UnPinyin=EOT ALORS SORTIR
PinyinFinale+=DetecterETchanger(UnPinyin)
SI ExtraitChaîne(PinyinInitiale,numbre," ",DepuisDébut)<>EOT ALORS PinyinFinale+=" "
FIN

ChangerPinyin1.Pinyin=PinyinFinale

HAjoute(ChangerPinyin1)
i++
FIN

PROCEDURE ChercherVoyelle(UnPinyin,lettre):booléen
i est un entier=1
longuerUnPinyin est un entier = Taille(UnPinyin)

SI lettre="v" ALORS
BOUCLE
chaineInstant est une chaîne UNICODE=Milieu(UnPinyin,i,1)
SI chaineInstant="u" ET Milieu(UnPinyin,i+1,1)=":"ALORS                                       
RENVOYER Vrai
FIN
SI i=longuerUnPinyin ALORS 
RENVOYER Faux
FIN
i++
FIN
FIN

SI lettre="u" ALORS
BOUCLE
chaineInstant est une chaîne UNICODE=Milieu(UnPinyin,i,1)
SI chaineInstant=lettre ET Milieu(UnPinyin,i+1,1)<>":" ALORS                                       
RENVOYER Vrai
FIN
SI i=longuerUnPinyin ALORS 
RENVOYER Faux
FIN
i++
FIN
FIN

BOUCLE
chaineInstant est une chaîne UNICODE=Milieu(UnPinyin,i,1)
SI chaineInstant=lettre ALORS                                       
RENVOYER Vrai
FIN
SI i=longuerUnPinyin ALORS 
RENVOYER Faux
FIN
i++
FIN

最终的数据库如下:

好了所有的数据库程序就这些,可以看出WinDev真的是一门很方便的语言,它的数据库是HyperSQL,但是这个语言也可以往其他的数据库中写数据。

下面我会把上一篇博文的法文版程序发出来,法文的程序功能还多一些,因为中文的程序是在法文的写好之后再写的。

希望文章对大家有帮助。

汉字拼音数据库_WinDev相关推荐

  1. mysql获取汉字拼音首字母_MySQL数据库获取汉字拼音的首字母函数

    需求简介:最 近的一个项目,想实现如下图所示的显示效果.很明显,如果能够获取对应的汉字词组的拼音首字母就可以实现了,如果是固定的几个汉字,人为的拼一下就可以 了,不过项目中有多处功能是需要这个效果的, ...

  2. mysql数据库sql汉字数字排序_MYSQL数据库UTF8编码使用汉字拼音第一个字母排序的方法...

    MYSQL数据库UTF8编码使用汉字拼音第一个字母排序的方法 今天做网站时遇到了这样一个问题,有一个标签数据库,在管理标签时想按标签列的汉字拼音的第一个字母排序,这样人工查找的时候就很快可以看到: 于 ...

  3. 数据库按照汉字拼音首字母排序

    ===>sqlserver按照汉字拼音首字母排序 select * from table order by name collate Chinese_PRC_CS_AS_KS_WS 在修改sql ...

  4. oracle数据库生成拼音码,Oracle中生成汉字拼音码的函数(转载)

    效果: select fgetpy('中国') FROM dual; 结果   zg CREATE OR REPLACE FUNCTION fgetpy (v_str VARCHAR2) RETURN ...

  5. mysql 汉字拼音怎么获得,mySQL数据库获取汉字拼音的首字母函数

    根据汉字词组或者单个汉字,获取其对应的拼音首字母,比如: 你爱我吗?获取的是 N ,如果是非汉字字符则不做处理. 函数的代码 DELIMITER $$ USE `test`$$ DROP FUNCTI ...

  6. mysql查询汉字拼音首字母的方法_MySQL查询汉字拼音首字母的方法

    下面为您介绍了MySQL查询汉字拼音首字母的方法,该方法极具实用价值,如果您之前遇到过类似方面的问题,不妨一看. MySQL查询汉字拼音首字母方法如下: 1.建立拼音首字母资料表 Sql代码: DRO ...

  7. 从全拼音中得到汉字拼音

    --(1) JJ的 create function [dbo].[funcGetPY](@str nvarchar(4000)) returns nvarchar(4000) as begin dec ...

  8. C#获取汉字拼音或首字母

    C#获取汉字拼音或首字母 获取汉字拼音 直接上代码 /// <summary> /// 在指定的字符串列表CnStr中检索符合拼音索引字符串 /// </summary> // ...

  9. php转换java工具_6款程序员必备的开源中文汉字拼音转换及处理工具 (PHP Java .net)...

    码云项目推荐 1.项目名称: 中文转拼音库 pinyin4j 项目简介:Pinyin4j 是一个流行的 Java 库,支持中文字符和拼音之间的转换.拼音输出格式可以定制. 2.项目名称:汉字/拼音转换 ...

  10. c语言中文拼音排序,为sqlite增加汉字拼音排序功能

    此文已由作者严跃杰授权网易云社区发布. 欢迎访问网易云社区,了解更多网易技术产品运营经验. Sqlite3是一款C语言实现的小型SQL数据库引擎,它体积小巧但功能强大, 性能表现也非常不错, 因此在客 ...

最新文章

  1. 对于广泛依赖外部资源的应用程序,请考虑在多处理器计算机上启用网络园艺
  2. try~Catch语句中异常的处理过程
  3. Windows Phone 8.1 Tiles, Notifications and Action Center
  4. Java程序设计第三次作业
  5. torch.unsqueeze()和torch.unsqueeze()
  6. unity fixedupdate_3D俯视角射击——用Unity还原东方弹幕(上)
  7. Echarts 自定义数据视图
  8. Unix——《Unix网络编程》配置unp.h头文件
  9. Linux下Git免输密码解决方式
  10. 找回密码forget_password
  11. 《MYSQL必知必会》—1.了解SQL
  12. Windows Server 2012 虚拟化实战:网络(一)
  13. mac查看内存使用情况命令
  14. Win11打印机任务在哪里?Win11查看打印机任务列表的方法
  15. Typora标题增加序号
  16. Ubuntu 21.10 编写 eBPF tc 程序
  17. JS 判断用户设备是IOS 还是 Android
  18. JDK--box和unbox
  19. PTA 7-113 用switch语句编程百分制成绩转换为五分制成绩
  20. CE-植物大战僵尸-僵尸-关卡-金币

热门文章

  1. 关于双模键盘的模式转化
  2. Pr 入门教程:如何向影片中的剪辑添加过渡效果?
  3. CAS (5) —— Nginx代理模式下浏览器访问CAS服务器配置详解
  4. 一看就会的侧方位停车技巧 见了就收了吧
  5. 注册查看隐私协议 --- 滚动条是否滚动到底
  6. ES的同义词、扩展词、停止词热更新方案
  7. 程序员经历过的最难调试的Bug是什么?
  8. 红米note5解锁教程_红米NOTE5解锁包
  9. RAID磁盘阵列与配置
  10. Pycharm中工程项目的多个python环境的管理使用方法的一点点理解