汉字转拼音缩写的函数(VB)

转载 2007年09月26日 19:08:00

汉字转拼音缩写的函数(VB)

出处:不详
Public Function getPYChar(char As String) As String
Dim lChar As Long
lChar = 65536 + Asc(char)
If (lChar >= 45217 And lChar <= 45252) Then getPYChar = "A"
If (lChar >= 45253 And lChar <= 45760) Then getPYChar = "B"
If (lChar >= 47761 And lChar <= 46317) Then getPYChar = "C"
If (lChar >= 46318 And lChar <= 46825) Then getPYChar = "D"
If (lChar >= 46826 And lChar <= 47009) Then getPYChar = "E"
If (lChar >= 47010 And lChar <= 47296) Then getPYChar = "F"
If (lChar >= 47297 And lChar <= 47613) Then getPYChar = "G"
If (lChar >= 47614 And lChar <= 48118) Then getPYChar = "H"
If (lChar >= 48119 And lChar <= 49061) Then getPYChar = "J"
If (lChar >= 49062 And lChar <= 49323) Then getPYChar = "K"
If (lChar >= 49324 And lChar <= 49895) Then getPYChar = "L"
If (lChar >= 49896 And lChar <= 50370) Then getPYChar = "M"
If (lChar >= 50371 And lChar <= 50613) Then getPYChar = "N"
If (lChar >= 50614 And lChar <= 50621) Then getPYChar = "O"
If (lChar >= 50622 And lChar <= 50905) Then getPYChar = "P"
If (lChar >= 50906 And lChar <= 51386) Then getPYChar = "Q"
If (lChar >= 51387 And lChar <= 51445) Then getPYChar = "R"
If (lChar >= 51446 And lChar <= 52217) Then getPYChar = "S"
If (lChar >= 52218 And lChar <= 52697) Then getPYChar = "T"
If (lChar >= 52698 And lChar <= 52979) Then getPYChar = "W"
If (lChar >= 52980 And lChar <= 53640) Then getPYChar = "X"
If (lChar >= 53689 And lChar <= 54480) Then getPYChar = "Y"
If (lChar >= 54481 And lChar <= 52289) Then getPYChar = "Z"
End Function

Public Function getPY(str As String) As String
For i = 0 To Len(str) - 1
getPY = getPY & getPYChar(Mid(str, i + 1, 1))
Next
End Function 

相关文章推荐

汉字转拼音缩写(声母)

  • 2010年12月28日 07:54
  • 16KB
  • 下载

Java 汉字转拼音首字母缩写

以下代码不支持多音字,请慎重使用。package com.tc.sjcj.TC_Provider;import android.content.ContentUris; import android....

asp.net汉字转拼音缩写.rar

  • 2008年03月12日 22:40
  • 758B
  • 下载

汉字转拼音缩写的VBA宏

  • 2008年12月15日 09:05
  • 3KB
  • 下载

小方法—汉字转拼音缩写

(一)汉字转拼音缩写/// 〈summary〉 /// 汉字转拼音缩写 /// 〈/summary〉 /// 〈param name="str"〉要转换的汉字字符串〈/param〉 /...

汉字转拼音缩写

汉字转拼音缩写 /// 〈summary〉 /// 汉字转拼音缩写 /// 〈/summary〉 /// 〈param name="str"〉要转换的汉字字符串〈/param〉 /// 〈...

根据汉字查看拼音缩写

  • 2016年10月28日 17:32
  • 33KB
  • 下载

Delphi获取汉字拼音缩写源码

  • 2008年01月05日 13:14
  • 176KB
  • 下载

汉字转换为拼音以及缩写(javascript)

if(!window.ZXZ){ZXZ={};} ZXZ.widget={}; ZXZ.widget.pinyin = {_pyvalue: ["a", "ai", "an", "ang", "a...
  • linewwei
  • linewwei
  • 2012年03月20日 15:25
  • 73553
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:汉字转拼音缩写的函数(VB)
举报原因:
原因补充:

(最多只允许输入30个字)