VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 8294|回复: 26

[原创] 《拼音大师2》模仿版(两个版本:字库|API)[推荐][开源]

[复制链接]
 楼主| 发表于 2008-12-25 22:32:12 | 显示全部楼层 |阅读模式
《拼音大师2》模仿版

附件里的压缩包有两个版本,一个是模仿《拼音大师2》用字库的方式,另一种是用API实现的。下面有抓图。

《拼音大师2》模仿版是一个专门用于进行拼音转换、拼音输入、拼音输出的软件。

详细介绍
主要功能:
1、拼音转换:可以将整篇文章迅速转换成带有声调的真正的拼音,支持全拼显示、按字显示、按词显示、汉拼上下对照显示。
2、拼音输入:可以很方便地输入带有声调的真正的拼音。
3、拼音修改:可以修改已转换的或已输入的拼音。
7、拼音输出:可以将拼音大师中汉字与拼音输出至文本文件中。

程序中用到了actskin4.ocx,已经包含,运行程序前 先执行reg.bat 把actskin4.ocx复制到System32目录下并注册.

编写中发现了几个小的字库错误(已修正):
汉字词组字库 31543位置 多了一个“嫌”,后面接着是“沾染”,这可花了我不少眼神。
发现汉字拼音库有点问题,有一小段文字的拼音没有转成真正的拼音形式军jun1,要改成军jūn 。

我在使用原程拼音供的拼音查字库,好像有少数查找结果不够准确,这是字库资源的问题,有兴趣的可以自己去修正。

程序使用的pydic.res文件因为里面的字符串太长,用VB的资源编辑器打开时会有些显示问题,最好使用Restorator打开或者编辑(最后是转成RC格式再编辑,直接编辑Res文件会出错无法保存成功,可能和字符串太长有关),千万别用VC来打开(会显示很混乱,显示驱动挂掉,然后机器被迫要重启)。

本程序资源文件所用的资源库版权归原作者所有。这些东西是原作者花费巨大精力做出来的,所以本程序资源切不可用于商业,只可用于学习研究用途,否则引起的一切问题由使用者自己负责。

[ 本帖最后由 新林 于 2008-12-25 22:34 编辑 ]
拼音大师2模仿版1.jpg
拼音大师2模仿版2.jpg
拼音大师2模仿版3.jpg
拼音大师2模仿版4.jpg
拼音大师2模仿版5.jpg
拼音大师2模仿版6.jpg
拼音大师2模仿版api1.jpg

拼音大师2模仿版.rar

573.4 KB, 下载次数: 990

源代码

评分

参与人数 12威望 +42 人气 +14 收起 理由
bbadsl + 1 原创内容
daixinhou + 1 发布源码
54jb + 10 + 2 发布源码
阳光宝宝 + 1 发布源码
snyga + 5 发布源码
vbdeBug + 1 + 1 恶意灌水
gujin162 + 13 + 2 分大大滴~~~~里面有一个东西帮了我的大 ...
艾达 + 1 发布源码
bshkl + 3 + 2 好东东
VBAdvisor + 8 + 1 发布源码
hfcas + 1 + 1 发布源码
catchwind + 1 + 1 发布源码

查看全部评分

本帖被以下淘专辑推荐:

发表于 2008-12-26 08:11:58 | 显示全部楼层
这个很好,强力收藏!
回复 支持 反对

使用道具 举报

发表于 2008-12-26 08:16:42 | 显示全部楼层
发布源码就要顶。。。。
回复 支持 反对

使用道具 举报

发表于 2008-12-26 08:52:44 | 显示全部楼层
按<转换>button好像没有反应。
要开发这类程序,一定要将界面最成全Unicode。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-12-26 09:17:14 | 显示全部楼层
不会啊,应该不会有这种问题啊。我测试过很多次的哦。
默认的是自动转换,输入或者粘贴汉字到上面文字框中,下面会自动转换。
如果选择手动 或 改变“汉拼对照”方式且没有修改文字框的文本,这两种情况,就用转换按钮。
回复 支持 反对

使用道具 举报

发表于 2008-12-26 09:40:53 | 显示全部楼层

回复 #5 新林 的帖子

按<转换>button没有反应:下面的文本框没有显示拼音。
回复 支持 反对

使用道具 举报

发表于 2008-12-26 09:58:38 | 显示全部楼层
太强了!这个暴强啊!
回复 支持 反对

使用道具 举报

发表于 2008-12-26 10:18:47 | 显示全部楼层
还不错。多谢楼主分享。。
回复 支持 反对

使用道具 举报

发表于 2008-12-26 11:19:43 | 显示全部楼层
路过。下载了~
回复 支持 反对

使用道具 举报

发表于 2008-12-26 11:51:43 | 显示全部楼层

FYI : VB Resource 直接支持Unicode!!!

找到原因了:
  1)将PYDIC.res中的101,102,103,104导出,
  2)save as Unicode:101.txt,102.txt,103.txt,104.txt
  3)导入,覆盖原来的Res 文件的101,102,103,104。
  4)去除StrConv,直接用LoadResData加载Unicode文本文件.

FYI : VB Resource 直接支持Unicode!!!

Private Sub Form_Load()

    Skin1.LoadSkin (App.Path & "\Skin\winaqua.skn")
    Skin1.ApplySkin (Me.hWnd)
   
   
    '调整picTab和里面控件的位置大小
    picTab(1).Move picTab(0).Left, picTab(0).Top, picTab(0).Width, picTab(0).Height
    fraPYInput.Move 3, 0, 1009, picTab(1).Height - 4
    PYInput.Move 7, 16, 996, fraPYInput.Height - 23
  
    'Custom,读取汉字拼音库
    strPYDIC = LoadResData(101, "custom") 'StrConv(LoadResData(101, "custom"), vbUnicode)
   
    '读取 汉字词组库(2,3,4字)
    'strCCWG = LoadResString(148) & LoadResString(149) & LoadResString(150) & LoadResString(151) & LoadResString(152) & LoadResString(153) & LoadResString(154)
    strCCWG = LoadResData(102, "custom") 'StrConv(LoadResData(102, "custom"), vbUnicode)
    'MsgBox Len(strCCWG), vbInformation     '106721字 (106722字)
    'Custom 103 多音字库
    strDuoYinDIC = LoadResData(103, "custom") 'StrConv(LoadResData(103, "custom"), vbUnicode)
    'Custom 104 两字词组拼音库
   
    '读取 (常用 2字)汉字词组拼音库,(按词对照时,先用常用字库,找不到再用汉字词组库)
    strICUCCWGPY = LoadResString(155)
    '读取 拼音查字库
    strPYSW = LoadResString(137) & LoadResString(138)
    '读取 汉字查字库
    strCCSW = LoadResString(139)
    '读取韵母拼音库
    strYunPYDIC = LoadResString(140)
   
    Call ProcessYunPY           '处理韵母拼音库
   

End Sub
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2019-10-14 11:20

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表