[转载]罗斯文数据库中提供的一段代码
2006-12-13 20:58
274 查看
[ 此文章内容主要转于Microsoft Access 所提供的示例Northwind数据库]
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
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
相关文章推荐
- 求php高手提供一段提交表单,并写入数据库 zhaoshang 里面的 shenqing 表中的代码,谢谢~!
- 【提供全部源码下载】这些年让我值得骄傲的数据库访问层代码,C# ASP.NET 全国最好用的通用数据库访问层代码之一
- 分享一段ios中使用数据库的代码(创建,升级,增删改查)
- 分享一段ios数据库代码,包括对表的创建、升级、增删查改
- .NET 把数据库数据放入数组的一段代码
- 一段绕过JDBC的数据库交互代码
- 随便写的一段代码,想用来复制数据库。。
- JSP 各种数据库连接驱动部分代码(转载)
- 一段代码,SQL注入猜解数据库用户密码
- 一段程序代码的修改,将原来按分钟活动的方式改为秒级滑动,可以提供数据分析的精度
- 以前实习期间写的一段mfc编程,对数据库和xml格式文档的相关操作 主要相关代码 之一连接数据库
- 在asp中通过getrows实现数据库记录分页的一段代码
- 一段提交用户名和密码到指定网址的代码(大漠提供)--青蛙非王子(lostfrog)
- 一段导出数据库的代码
- 在程序中写了一段代码向数据库中插入数据,出现了data too long for column 'name' at row 1的问题。
- asp中通过getrows实现数据库记录分页的一段代码
- entity framework codefirst 用户代码未处理DataException,InnerException基础提供程序在open上失败,数据库生成失败
- 生成/读取(反向更新数据库) Excel文件(示例代码下载) ----转载
- java开发中JDBC连接数据库的代码实现与详解(转载)
- 求一段smartupload上传图片的代码,不需要保存到数据库,但是想在jsp页面选中文件夹图片后,立马可以显示