1 吖 A K 2 2 阿 A B 5 3 啊 A K 2 4 锕 A Q 3 5 嗄 A K 2 6 哎 A K 2 7 哀 A Y 4 8 唉 A K 2 9 埃 A F 1 10 挨 A R 1 11 锿 A Q 3 12 捱 A R 1 13 皑 A R 3 14 癌 A U 4 15 嗳 A K 2
excel汉子首拼自动生成 先打开excel，再点击工具-宏-visual basic 编辑器 在编辑器中右键点击vbaproject，点插入-模块 再将下列代码考入模块中， Public Function SuperPY(ByVal vText As Variant) As String Application.Volatile Dim strResult As String Dim lStart As Long Dim sTemp As String On Error Resume Nex
获得常用字汉字拼音的首个拼音字母首码，例举；Function HZToPY(cSTR:String):String; Var i:integer; S:String; begin Result:=''; for I := 1 to Length(cSTR) do begin S:=Copy(cSTR,i,1); if Trim(Getpinyin_shoupinma(S))='' then Result:=Result+S else Result:=Result+Getpinyin_shoup
代码如下： 代码如下: USE [tempdb] GO /****** Object: UserDefinedFunction [dbo].[fun_getPY] scr ipt Date: 05/23/2012 18:03:45 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO /* 获取汉字的首拼音 如果是非汉字字符 */ ALTER function [dbo].[fun_getPY] ( str nvarchar(4000
