ASP汉字转拼音,支持自定义特殊词语

2009-05-12 14:58:53来源:未知 阅读 ()

新老客户大回馈,云服务器低至5折

这次更新了一下自已所用的博客程序,将生成静态文件时的文件名用文章标题的拼音,这就涉及到如何将文字转成拼音了,在网上大概的看了看,千篇一律的那个函数,应该只可以在GB2312下正常,也没有做太多考虑,这就拿出了曾在无忧系统的源码里看到过的一段用上了。

来看看下面的函数,加入少量注释:

这是一个自定义特殊词语的一个函数

以下为引用的内容:
Function getEnglish(ByVal Str)
    getEnglish = Str
 getEnglish = Replace(getEnglish, "中国", " china ")
 getEnglish = Replace(getEnglish, "策划", " plan ")
 getEnglish = Replace(getEnglish, "免费", " free ")
 getEnglish = Replace(getEnglish, "介绍", " intro ")
 getEnglish = Replace(getEnglish, "技巧", " skill ")
 getEnglish = Replace(getEnglish, "生活", " life ")
 getEnglish = Replace(getEnglish, "活动", " activity ")
 getEnglish = Replace(getEnglish, "工具", " tool ")
 getEnglish = Replace(getEnglish, "联盟", " union ")
 getEnglish = Replace(getEnglish, "注册", " register ")
 getEnglish = Replace(getEnglish, "经验", " experience ")
 getEnglish = Replace(getEnglish, "翻译", " translate ")
 getEnglish = Replace(getEnglish, "项目", " item ")
 getEnglish = Replace(getEnglish, "网站", " web-site ")
 getEnglish = Replace(getEnglish, "英语", " english ")
 getEnglish = Replace(getEnglish, "英文", " english ")
 getEnglish = Replace(getEnglish, "雅虎", " yahoo ")
 getEnglish = Replace(getEnglish, "新浪", " sina ")
 getEnglish = Replace(getEnglish, "支付宝", " alipay ")
 getEnglish = Replace(getEnglish, "交易", " trade ")
 getEnglish = Replace(getEnglish, "网店", " b2c ")
 getEnglish = Replace(getEnglish, "升级", " update ")
 getEnglish = Replace(getEnglish, "杂志", " magazine ")
 getEnglish = Replace(getEnglish, "空间", " space ")
 getEnglish = Replace(getEnglish, "爱情", " love ")
 getEnglish = Replace(getEnglish, "朋友", " friend ")
 getEnglish = Replace(getEnglish, "友情", " friend ")
 getEnglish = Replace(getEnglish, "链接", " like ")
 getEnglish = Replace(getEnglish, "标签", " label ")
 getEnglish = Replace(getEnglish, "运行", " running ")
 getEnglish = Replace(getEnglish, "管理", " manager ")
 getEnglish = Replace(getEnglish, "管理", " manage ")
 getEnglish = Replace(getEnglish, "页面", " page ")
 getEnglish = Replace(getEnglish, "模板", " template ")
 getEnglish = Replace(getEnglish, "游戏", " game ")
 getEnglish = Replace(getEnglish, "论坛", " forum ")
 getEnglish = Replace(getEnglish, "新闻", " news ")
 getEnglish = Replace(getEnglish, "音乐", " music ")
 getEnglish = Replace(getEnglish, "帮助", " help ")
 getEnglish = Replace(getEnglish, "优化", " optimize ")
 getEnglish = Replace(getEnglish, "软件", " soft ")
 getEnglish = Replace(getEnglish, "教程", " tech ")
 getEnglish = Replace(getEnglish, "下载", " download ")
 getEnglish = Replace(getEnglish, "搜索", " search ")
 getEnglish = Replace(getEnglish, "引擎", " engine ")
 getEnglish = Replace(getEnglish, "蜘蛛", " spider ")
 getEnglish = Replace(getEnglish, "日志", " log ")
 getEnglish = Replace(getEnglish, "博客", " blog ")
 getEnglish = Replace(getEnglish, "百度", " baidu ")
 getEnglish = Replace(getEnglish, "谷歌", " google ")
 getEnglish = Replace(getEnglish, "邮箱", " mailbox ")
 getEnglish = Replace(getEnglish, "邮件", " mail ")
 getEnglish = Replace(getEnglish, "域名", " domain ")
 getEnglish = Replace(getEnglish, "测试", " test")
 getEnglish = Replace(getEnglish, "演示", " demo ")
 getEnglish = Replace(getEnglish, "音乐", " music ")
 getEnglish = Replace(getEnglish, "笑话", " joke ")
 getEnglish = Replace(getEnglish, "产品", " product ")
 getEnglish = Replace(getEnglish, "留言", " message ")
 getEnglish = Replace(getEnglish, "反馈", " freedback ")
 getEnglish = Replace(getEnglish, "评论", " comment ")
 getEnglish = Replace(getEnglish, "推荐", " commend ")
 getEnglish = Replace(getEnglish, "共享", " share ")
 getEnglish = Replace(getEnglish, "资源", " resource ")
 getEnglish = Replace(getEnglish, "插件", " plugins ")
 getEnglish = Replace(getEnglish, "本本", " notebook ")
 getEnglish = Replace(getEnglish, "电脑", " computer ")
 getEnglish = Replace(getEnglish, "系统", " system ")
 getEnglish = Replace(getEnglish, "学校", " school ")
 getEnglish = Replace(getEnglish, "无忧", " 5u ")
 getEnglish = Replace(getEnglish, "工作", " job ")
 getEnglish = Replace(getEnglish, "信息", " info ")
 getEnglish = Replace(getEnglish, "娱乐", " ent ")
 getEnglish = Replace(getEnglish, "汽车", " car ")
 getEnglish = Replace(getEnglish, "手机", " mobile ")
 getEnglish = Replace(getEnglish, "网络", " network ")
 getEnglish = Replace(getEnglish, "老板", " boss ")
 getEnglish = Replace(getEnglish, "狗", " dog ")
 getEnglish = Replace(getEnglish, "电视", " tv ")
 getEnglish = Replace(getEnglish, "电影", " movie ")
End Function

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:ASP教程:不连数据库进行查询分页的思路

下一篇:如何节约程序开发中的时间