摘要: VB代码：'------------------------'汉字转拼音缩写'------------------------Public Function GetPYSX(Str As String) As StringOn Error GoTo PROC_ERROR Dim i As Long For i = 0 To Len(Str) - 1 GetPYSX = GetPYSX & GetPYSXChar(Mid(Str, i + 1, 1)) Next PROC_ERROR: Exit FunctionEnd FunctionPublic Functio阅读全文

摘要: C#代码：/// <summary> /// 汉字转拼音缩写 /// Code By MuseStudio@hotmail.com /// 2004-11-30 /// </summary> /// <param name="str">要转换的汉字字符串</param> /// <returns>拼音缩写</returns> public string GetPYString(string str) { string tempStr = ""; foreach(char c in s阅读全文

摘要: C#代码：using System;using System.Collections.Generic;using System.Text;using System.Text.RegularExpressions;using System.Web;namespace CrazyCoder.Common{/// <summary> /// 汉字转拼音类 /// by http://www.crazycoder.cn /// build Date 20030610 /// </summary> public class CrazyCoderPinyin { /// <s阅读全文

摘要: VB代码：'---------------------------'汉字转拼音'---------------------------Public Function GetPY(Str As String) As StringOn Error GoTo PROC_ERROR Dim i As Long For i = 0 To Len(Str) - 1 GetPY = GetPY & GetPYChar(Mid(Str, i + 1, 1)) Next PROC_ERROR: Exit FunctionEnd FunctionPublic Function Ge阅读全文