汉字转拼音缩写的函数(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 

中文汉字转汉语拼音vb.net三种方式源代码程序,可直接运行

  • 2013年08月06日 09:32
  • 183KB
  • 下载

asp.net汉字转拼音和获取汉字首字母的代码

using System; using System.Data; using System.Configuration; using System.Text; ///  ///...
  • hoiven
  • hoiven
  • 2016年05月06日 16:07
  • 15133

VB实现 汉字转拼音缩写的函数

汉字转拼音缩写的函数(VB)Code highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlig...
  • paoluo
  • paoluo
  • 2006年04月07日 09:31
  • 1373

C#实现汉字转换为拼音缩写的代码

using System; using System.Configuration; using System.Data; using System.Web; using System.Web....
  • lygapp
  • lygapp
  • 2014年09月18日 15:25
  • 694

汉字转拼音源码的两个类

StrToPinyin.cs  //类一文件名 using System; using System.Data; using System.Configuration; using Syste...
  • lbuskeep
  • lbuskeep
  • 2012年05月31日 15:08
  • 171118

用JAVA实现汉字转拼音缩写(两种方式介绍)

1.JAVA版汉字转拼音缩写程序 摘自:http://www.blogjava.net/jiafang83/archive/2009/06/08/280651.html 最近正做一个根据汉字拼音缩写的...
  • fjfdszj
  • fjfdszj
  • 2009年07月03日 20:44
  • 1943

Java 汉字转拼音首字母缩写

以下代码不支持多音字,请慎重使用。package com.tc.sjcj.TC_Provider;import android.content.ContentUris; import android....
  • u010259369
  • u010259369
  • 2015年06月02日 17:11
  • 999

java实现中文转化为拼音与简称 .

package test; import java.io.UnsupportedEncodingException;   import net.sourceforge.pinyin4j.Piny...
  • xiyang_1990
  • xiyang_1990
  • 2013年09月09日 17:22
  • 792

java 获取汉字拼音首字母 源码

  • 2010年02月23日 10:43
  • 2KB
  • 下载

java汉字转拼音

import java.io.UnsupportedEncodingException;import java.util.Iterator;import java.util.LinkedHashMap...
  • weinianjie1
  • weinianjie1
  • 2011年06月23日 13:38
  • 3283
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:汉字转拼音缩写的函数(VB)
举报原因:
原因补充:

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