各位学友，请伸出你们的友谊之手！：）

大熊

数据库中某个字段需生成对应的拼音字段，因老外看不懂中文，有拼音可方便工作人员进行检索。Who can deal with this?
[em14]

huanghai

参考MS有罗斯文示例中的拼音函数

大熊

能否得到您更详细的帮助?
是指拼音指南吗,我忘说明了,我需要去掉代表第几声的数字.

[此贴子已经被大熊于2002-5-12 0:40:56编辑过]

huanghai

我指的是这个：
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

tmtony

如果我未记错的话，我记得楼上的方面有少量中文字处理不正确
freesky曾经有一个表包括所有中文（不知有否支持到全部GBK码）对应的拼音。应该可以完全处理你的要求

cnwang

把拼音输入法码表文件还原出来不就是一个大而全的数据库了吗？

tmtony

正是，我的自制繁体五笔输入法也是这么做的

大熊

谢了,我计划向TONY版主学习,搞个大熊输入法,骗点钱花花!