Office中国论坛/Access中国论坛

标题: 拼音排序表 [打印本页]

作者: ganrong 时间: 2002-3-16 02:20
提示: 作者被禁止或删除内容自动屏蔽

作者: tmtony 时间: 2002-3-16 05:35
沒有,如果要自己排,需用程序取拼音首字
網站的原創代碼里有一個例子,不過還不是很完善

作者: 大熊 时间: 2002-3-17 06:06
好像有这样的DLL可调用返回指定拼音！

作者: binbow_z 时间: 2002-3-20 06:09
在罗斯文数据库中有一现成的例子,用CUT/PASTE即可

作者: ganrong 时间: 2002-3-20 06:17
提示: 作者被禁止或删除内容自动屏蔽

作者: binbow_z 时间: 2002-3-27 06:56
不知道是不是这个
Public Function PinYin(Tstr As String) As Long
Dim I As Long

I = Asc(Tstr)

If I >= Asc("啊") And I < Asc("芭") Then PinYin = 1

If I >= Asc("芭") And I < Asc("擦") Then PinYin = 2

If I >= Asc("擦") And I < Asc("搭") Then PinYin = 3

If I >= Asc("搭") And I < Asc("蛾") Then PinYin = 4

If I >= Asc("蛾") And I < Asc("发") Then PinYin = 5

If I >= Asc("发") And I < Asc("噶") Then PinYin = 6

If I >= Asc("噶") And I < Asc("哈") Then PinYin = 7

If I >= Asc("哈") And I < Asc("击") Then PinYin = 8

If I >= Asc("击") And I < Asc("喀") Then PinYin = 9

If I >= Asc("喀") And I < Asc("垃") Then PinYin = 10

If I >= Asc("垃") And I < Asc("妈") Then PinYin = 11

If I >= Asc("妈") And I < Asc("拿") Then PinYin = 12

If I >= Asc("拿") And I < Asc("哦") Then PinYin = 13

If I >= Asc("哦") And I < Asc("啪") Then PinYin = 14

If I >= Asc("啪") And I < Asc("欺") Then PinYin = 15

If I >= Asc("欺") And I < Asc("然") Then PinYin = 16

If I >= Asc("然") And I < Asc("撒") Then PinYin = 17

If I >= Asc("撒") And I < Asc("塌") Then PinYin = 18

If I >= Asc("塌") And I < Asc("挖") Then PinYin = 19

If I >= Asc("挖") And I < Asc("昔") Then PinYin = 20

If I >= Asc("昔") And I < Asc("压") Then PinYin = 21

If I >= Asc("压") And I < Asc("匝") Then PinYin = 22

If I >= Asc("匝") And I <= Asc("座") Then PinYin = 23

End Function
具体用法参照罗斯文数据库的按拼单排序报表,我也没有仔细研究它,你可以去研究研究

作者: MsAccess 时间: 2002-3-27 16:26
对,上面的例子只能查一级汉字的声母(首字母).

作者: yang7512 时间: 2002-3-27 16:47
我在Northwind里面拼音报表里看不到任何有关代码,请告知,谢谢!!!

作者: ganrong 时间: 2002-3-27 16:47
提示: 作者被禁止或删除内容自动屏蔽

作者: binbow_z 时间: 2002-3-28 07:44
如果是拼音排序的的话，获取字段的长度，依次取出每个字符，再在报表的排序中依次调用函数
以上公仅是思路
为什么要取声母呢？多复杂
另：我上次在一个VB网站上看到过一个例子，不好意思的是不记得是哪个网站了

作者: tmtony 时间: 2002-3-28 07:49
我以前的旧贴里有这个VB程序
后面在给灵芝的例程里改成了ACCESS版，不过始终不是很完善。
因为内码的顺序的问题

作者: huanghai 时间: 2002-7-2 18:03
MS的例子代码做在宏中了

我刚刚结合拼音库做了一个中文字符串转化拼音通用函数：
http://www.office-cn.net/bbs/dispbbs.asp?boardid=9&RootID=7219&ID=7245

作者: wxgzgq 时间: 2004-3-23 00:15
大家好，我是一个学生！~我正在自己建一个人主页~！
但是不知道该怎么建设，希望有知识的朋友能够帮帮我~！谢谢！~
就是关于一些技巧的帮助，希望可以帮我，联系我的QQ：264187106

作者: sea.er 时间: 2004-3-23 04:08
wxgzgq网友，请不要在本版灌水

作者: xdcow 时间: 2004-12-5 04:53
12楼的版主,怎么你的函数看不到呢

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)