获取汉字的首字母

获取汉字的首字母

此文章从网上摘抄留着自己使用，现分享给大家。我在做一个搜索功能输入首字母显示对应的汉字信息。在后台录入数据时不能总是让客户把汉字的首字母给输进去。为了给客户以个好的体现，从后台自动获取汉字首字母存入数据中，当查询的时候方面使用。

public class chInitial {

// 简体中文的编码范围从B0A1（45217）一直到F7FE（63486）

private static int BEGIN = 45217;

private static int END = 63486;

// 按照声母表示，这个表是在GB2312中的出现的第一个汉字，也就是说“啊”是代表首字母a的第一个汉字。

// i, u, v都不做声母, 自定规则跟随前面的字母

private static char[] chartable = { '啊', '芭', '擦', '搭', '蛾', '发', '噶', '哈', '哈', '击', '喀', '垃', '妈', '拿', '哦', '啪', '期', '然', '撒', '塌', '塌',

'塌', '挖', '昔', '压', '匝', };

// 二十六个字母区间对应二十七个端点

// GB2312码汉字区间十进制表示

private static int[] table = new int[27];

// 对应首字母区间表

private static char[] initialtable = { 'a', 'b', 'c', 'd', 'e', 'f', 'g',

'h', 'h', 'j', 'k', 'l', 'm', 'n', 'o', 'p', 'q', 'r', 's', 't',

't', 't', 'w', 'x', 'y', 'z', };

// 初始化

static {

for (int i = 0; i < 26; i++) {

table[i] = gbValue(chartable[i]);// 得到GB2312码的首字母区间端点表，十进制。

}

table[26] = END;// 区间表结尾

}

// ------------------------public方法区------------------------

/**

*根据一个包含汉字的字符串返回一个汉字拼音首字母的字符串最重要的一个方法，思路如下：一个个字符读入、判断、输出

*/

public static String cn2py(String SourceStr) {

String Result = "";

int StrLength = SourceStr.length();

int i;

try {

for (i = 0; i < StrLength; i++) {

Result += Char2Initial(SourceStr.charAt(i));

}

} catch (Exception e) {

Result = "";

}

return Result;

}

/**

*输入字符,得到他的声母,英文字母返回对应的大写字母,其他非简体汉字返回'0' *

*/

private static char Char2Initial(char ch) {

// 对英文字母的处理：小写字母转换为大写，大写的直接返回

if (ch >= 'a' && ch <= 'z')

return (char) (ch - 'a' + 'A');

if (ch >= 'A' && ch <= 'Z')

return ch;

// 对非英文字母的处理：转化为首字母，然后判断是否在码表范围内，

// 若不是，则直接返回。

// 若是，则在码表内的进行判断。

int gb = gbValue(ch);// 汉字转换首字母

if ((gb < BEGIN) || (gb > END))// 在码表区间之前，直接返回

return ch;

int i;

for (i = 0; i < 26; i++) {// 判断匹配码表区间，匹配到就break,判断区间形如“[,)”

if ((gb >= table[i]) && (gb < table[i+1]))

break;

}

if (gb==END) {//补上GB2312区间最右端

i=25;

}

return initialtable[i]; // 在码表区间中，返回首字母

}

/**

*取出汉字的编码cn汉字

*/

private static int gbValue(char ch) {// 将一个汉字（GB2312）转换为十进制表示。

String str = new String();

str += ch;

try {

byte[] bytes = str.getBytes("GB2312");

if (bytes.length < 2)

return 0;

return (bytes[0] << 8 & 0xff00) + (bytes[1] & 0xff);

} catch (Exception e) {

return 0;

}

}

public static void main(String[] args) throws Exception { System.out.println(cn2py("小小鸟"));

}

}

获取汉字全拼以及首字母缩拼

获取汉字全拼以及首字母缩拼 using System; using System.Collections.Generic; using System.Text; using System.Text.RegularExpressions; namespace https://www.wendangku.net/doc/384767022.html,mon.Tools { /// <summary> /// 汉字转拼音静态类,包括功能全拼和缩写，方法全部是静态的/// </summary> public static class Chinese2Spell { #region 属性数据定义 /// <summary> /// 汉字的机内码数组 /// </summary> private static int[] pyValue = new int[] {

-20319,-20317,-20304,-20295,-20292,-20283,-20265,-20257,-20242,-202 30,-20051,-20036, -20032,-20026,-20002,-19990,-19986,-19982,-19976,-19805,-19784,-197 75,-19774,-19763, -19756,-19751,-19746,-19741,-19739,-19728,-19725,-19715,-19540,-195 31,-19525,-19515, -19500,-19484,-19479,-19467,-19289,-19288,-19281,-19275,-19270,-192 63,-19261,-19249, -19243,-19242,-19238,-19235,-19227,-19224,-19218,-19212,-19038,-190 23,-19018,-19006, -19003,-18996,-18977,-18961,-18952,-18783,-18774,-18773,-18763,-187 56,-18741,-18735, -18731,-18722,-18710,-18697,-18696,-18526,-18518,-18501,-18490,-184 78,-18463,-18448, -18447,-18446,-18239,-18237,-18231,-18220,-18211,-18201,-18184,-181 83, -18181,-18012, -17997,-17988,-17970,-17964,-17961,-17950,-17947,-17931,-17928,-179 22,-17759,-17752, -17733,-17730,-17721,-17703,-17701,-17697,-17692,-17683,-17676,-174 96,-17487,-17482, -17468,-17454,-17433,-17427,-17417,-17202,-17185,-16983,-16970,-169 42,-16915,-16733,

excel提取汉字的拼音首字母集锦

方法二：VBA自定义函数"=hztopy（）" 下面是一个VBA自定义函数，工具->宏->Visual Basic编辑器->，插入模块,在VBA编辑器里面->插入->模块->贴入下述代码，那么，比如在A3中有"进退两难"，则在B3中输入"=hztopy（A3）"，则会得到"JTLN"。 不过此法有时候也会出错，比如"皓、鑫、婷、雯、奕"等，就无法提取汉字拼音首字母。" Function hztopy(hzpy As String) As String Dim hzstring As String, pystring As String Dim hzpysum As Integer, hzi As Integer, hzpyhex As Integer hzstring = Trim(hzpy) hzpysum = Len(Trim(hzstring)) pystring = "" For hzi = 1 To hzpysum hzpyhex = "&H" + Hex(Asc(Mid(hzstring, hzi, 1))) Select Case hzpyhex Case &HB0A1 To &HB0C4: pystring = pystring + "A" Case &HB0C5 To &HB2C0: pystring = pystring + "B" Case &HB2C1 To &HB4ED: pystring = pystring + "C" Case &HB4EE To &HB6E9: pystring = pystring + "D" Case &HB6EA To &HB7A1: pystring = pystring + "E" Case &HB7A2 To &HB8C0: pystring = pystring + "F" Case &HB8C1 To &HB9FD: pystring = pystring + "G" Case &HB9FE To &HBBF6: pystring = pystring + "H" Case &HBBF7 To &HBFA5: pystring = pystring + "J" Case &HBFA6 To &HC0AB: pystring = pystring + "K" Case &HC0AC To &HC2E7: pystring = pystring + "L" Case &HC2E8 To &HC4C2: pystring = pystring + "M" Case &HC4C3 To &HC5B5: pystring = pystring + "N" Case &HC5B6 To &HC5BD: pystring = pystring + "O" Case &HC5BE To &HC6D9: pystring = pystring + "P" Case &HC6DA To &HC8BA: pystring = pystring + "Q" Case &HC8BB To &HC8F5: pystring = pystring + "R" Case &HC8F6 To &HCBF9: pystring = pystring + "S" Case &HCBFA To &HCDD9: pystring = pystring + "T" Case &HEDC5: pystring = pystring + "T" Case &HCDDA To &HCEF3: pystring = pystring + "W" Case &HCEF4 To &HD1B8: pystring = pystring + "X" Case &HD1B9 To &HD4D0: pystring = pystring + "Y" Case &HD4D1 To &HD7F9: pystring = pystring + "Z" Case Else pystring = pystring + Mid(hzstring, hzi, 1)

汉字取拼音首字母程序vba

Option Explicit Public Sub dnxbz() Dim myrange As Range Dim i As Long, j As Long Dim temp As String Set myrange = Worksheets("Sheet1").Range("a1").CurrentRegion For i = 1 To myrange.Rows.Count '从1行开始到有数据的最后一行 temp = Cells(i, "A") '假设原数据在A列 For j = 1 To Len(temp) If Get_Pinyin(Mid(temp, j, 1)) <> "" Then Mid(temp, j, 1) = Get_Pinyin(Mid(temp, j, 1)) '如果速度慢再加个变量 Next Cells(i, "B") = temp '假设B列为输出数据 Next End Sub Public Function Get_Pinyin(ByVal Hanzi As String) As String Dim Ch As String Ch = Left(Hanzi, 1) Select Case Asc(Ch) Case -20319 To -20284 Get_Pinyin = "A" Case -20283 To -19776 Get_Pinyin = "B" Case -19775 To -19219 Get_Pinyin = "C" Case -19218 To -18711 Get_Pinyin = "D" Case -18710 To -18527 Get_Pinyin = "E" Case -18526 To -18240 Get_Pinyin = "F" Case -18239 To -17923 Get_Pinyin = "G" Case -17922 To -17418 Get_Pinyin = "H" Case -17417 To -16475 Get_Pinyin = "J" Case -16474 To -16217 Get_Pinyin = "K"

excel：汉字拼音首字母提取

方法一：VBA自定义函数"=hztopy（）" 下面是一个VBA自定义函数，工具->宏->Visual Basic编辑器->，插入模块,在VBA编辑器里面->插入->模块->贴入下述代码，（按ALT＋F11，插入模块，在右面窗口中粘贴下面代码）那么，比如在A3中有"进退两难"，则在B3中输入"=hztopy（A3）"，则会得到"JTLN"。 不过此法有时候也会出错，比如"皓、鑫、婷、雯、奕"等，就无法提取汉字拼音首字母。 Function hztopy(hzpy As String) As String Dim hzstring As String, pystring As String Dim hzpysum As Integer, hzi As Integer, hzpyhex As Integer hzstring = Trim(hzpy) hzpysum = Len(Trim(hzstring)) pystring = "" For hzi = 1 To hzpysum hzpyhex = "&H" + Hex(Asc(Mid(hzstring, hzi, 1))) Select Case hzpyhex Case &HB0A1 To &HB0C4: pystring = pystring + "A" Case &HB0C5 To &HB2C0: pystring = pystring + "B" Case &HB2C1 To &HB4ED: pystring = pystring + "C" Case &HB4EE To &HB6E9: pystring = pystring + "D" Case &HB6EA To &HB7A1: pystring = pystring + "E" Case &HB7A2 To &HB8C0: pystring = pystring + "F" Case &HB8C1 To &HB9FD: pystring = pystring + "G" Case &HB9FE To &HBBF6: pystring = pystring + "H" Case &HBBF7 To &HBFA5: pystring = pystring + "J" Case &HBFA6 To &HC0AB: pystring = pystring + "K" Case &HC0AC To &HC2E7: pystring = pystring + "L" Case &HC2E8 To &HC4C2: pystring = pystring + "M" Case &HC4C3 To &HC5B5: pystring = pystring + "N" Case &HC5B6 To &HC5BD: pystring = pystring + "O" Case &HC5BE To &HC6D9: pystring = pystring + "P" Case &HC6DA To &HC8BA: pystring = pystring + "Q" Case &HC8BB To &HC8F5: pystring = pystring + "R" Case &HC8F6 To &HCBF9: pystring = pystring + "S" Case &HCBFA To &HCDD9: pystring = pystring + "T" Case &HEDC5: pystring = pystring + "T" Case &HCDDA To &HCEF3: pystring = pystring + "W"

获取汉字的首字母

获取汉字的首字母 此文章从网上摘抄留着自己使用，现分享给大家。我在做一个搜索功能输入首字母显示对应的汉字信息。在后台录入数据时不能总是让客户把汉字的首字母给输进去。为了给客户以个好的体现，从后台自动获取汉字首字母存入数据中，当查询的时候方面使用。 public class chInitial { // 简体中文的编码范围从B0A1（45217）一直到F7FE（63486） private static int BEGIN = 45217; private static int END = 63486; // 按照声母表示，这个表是在GB2312中的出现的第一个汉字，也就是说“啊”是代表首字母a的第一个汉字。 // i, u, v都不做声母, 自定规则跟随前面的字母 private static char[] chartable = { '啊', '芭', '擦', '搭', '蛾', '发', '噶', '哈', '哈', '击', '喀', '垃', '妈', '拿', '哦', '啪', '期', '然', '撒', '塌', '塌', '塌', '挖', '昔', '压', '匝', }; // 二十六个字母区间对应二十七个端点 // GB2312码汉字区间十进制表示 private static int[] table = new int[27]; // 对应首字母区间表 private static char[] initialtable = { 'a', 'b', 'c', 'd', 'e', 'f', 'g',

'h', 'h', 'j', 'k', 'l', 'm', 'n', 'o', 'p', 'q', 'r', 's', 't', 't', 't', 'w', 'x', 'y', 'z', }; // 初始化 static { for (int i = 0; i < 26; i++) { table[i] = gbValue(chartable[i]);// 得到GB2312码的首字母区间端点表，十进制。 } table[26] = END;// 区间表结尾 } // ------------------------public方法区------------------------ /** *根据一个包含汉字的字符串返回一个汉字拼音首字母的字符串最重要的一个方法，思路如下：一个个字符读入、判断、输出 */ public static String cn2py(String SourceStr) { String Result = ""; int StrLength = SourceStr.length(); int i; try { for (i = 0; i < StrLength; i++) {

excel中实现提取汉字的拼音首字母

在EXECL中，按ALT+F11，插入---模块复制下列代码： Function hztopy(hzpy As String) As String Dim hzstring As String, pystring As String Dim hzpysum As Integer, hzi As Integer, hzpyhex As Integer hzstring = Trim(hzpy) hzpysum = Len(Trim(hzstring)) pystring = "" For hzi = 1 To hzpysum hzpyhex = "&H" + Hex(Asc(Mid(hzstring, hzi, 1))) Select Case hzpyhex Case &HB0A1 To &HB0C4: pystring = pystring + "A" Case &HB0C5 To &HB2C0: pystring = pystring + "B" Case &HB2C1 To &HB4ED: pystring = pystring + "C" Case &HB4EE To &HB6E9: pystring = pystring + "D" Case &HB6EA To &HB7A1: pystring = pystring + "E" Case &HB7A2 To &HB8C0: pystring = pystring + "F" Case &HB8C1 To &HB9FD: pystring = pystring + "G" Case &HB9FE To &HBBF6: pystring = pystring + "H" Case &HBBF7 To &HBFA5: pystring = pystring + "J" Case &HBFA6 To &HC0AB: pystring = pystring + "K" Case &HC0AC To &HC2E7: pystring = pystring + "L" Case &HC2E8 To &HC4C2: pystring = pystring + "M" Case &HC4C3 To &HC5B5: pystring = pystring + "N" Case &HC5B6 To &HC5BD: pystring = pystring + "O" Case &HC5BE To &HC6D9: pystring = pystring + "P" Case &HC6DA To &HC8BA: pystring = pystring + "Q" Case &HC8BB To &HC8F5: pystring = pystring + "R" Case &HC8F6 To &HCBF9: pystring = pystring + "S" Case &HCBFA To &HCDD9: pystring = pystring + "T" Case &HEDC5: pystring = pystring + "T" Case &HCDDA To &HCEF3: pystring = pystring + "W" Case &HCEF4 To &HD1B8: pystring = pystring + "X" Case &HD1B9 To &HD4D0: pystring = pystring + "Y" Case &HD4D1 To &HD7F9: pystring = pystring + "Z" Case Else pystring = pystring + Mid(hzstring, hzi, 1) End Select Next hztopy = pystring End Function 比如在A1输入小燕子耳坠子7.8 则在其他空白单元格输入=hztopy(A1) 回车执行即可

汉字按首字母排序(编码问题解决)

=48 && $asc<=57){ return '1'; //数字 }elseif ($asc>=65 && $asc<=90){ return chr($asc); // A--Z }elseif ($asc>=97 && $asc<=122){ return chr($asc-32); // a--z } } else //中文 { $asc=$asc*1000+ord(substr($str,1,1)); //获取拼音首字母A--Z if ($asc>=176161 && $asc<176197){ return 'A'; }elseif ($asc>=176197 && $asc<178193){ return 'B'; }elseif ($asc>=178193 && $asc<180238){ return 'C'; }elseif ($asc>=180238 && $asc<182234){ return 'D'; }elseif ($asc>=182234 && $asc<183162){ return 'E'; }elseif ($asc>=183162 && $asc<184193){ return 'F'; }elseif ($asc>=184193 && $asc<185254){ return 'G'; }elseif ($asc>=185254 && $asc<187247){ return 'H'; }elseif ($asc>=187247 && $asc<191166){ return 'J'; }elseif ($asc>=191166 && $asc<192172){ return 'K'; }elseif ($asc>=192172 && $asc<194232){ return 'L'; }elseif ($asc>=194232 && $asc<196195){ return 'M'; }elseif ($asc>=196195 && $asc<197182){ return 'N';

excel汉字转换成拼音简拼(只取首字母)

打开Excel->工具->宏->Viaual Basic编辑器 在弹出来的窗口中对着VBAproject点右键->插入->模块下面会出现一个名为"模块1"，点击 在右边的空白栏中粘贴以下内容： Function pinyin(p As String) As String i = Asc(p) Select Case i Case -20319 To -20284: pinyin = "A" Case -20283 To -19776: pinyin = "B" Case -19775 To -19219: pinyin = "C" Case -19218 To -18711: pinyin = "D" Case -18710 To -18527: pinyin = "E" Case -18526 To -18240: pinyin = "F" Case -18239 To -17923: pinyin = "G" Case -17922 To -17418: pinyin = "H" Case -17417 To -16475: pinyin = "J" Case -16474 To -16213: pinyin = "K" Case -16212 To -15641: pinyin = "L" Case -15640 To -15166: pinyin = "M" Case -15165 To -14923: pinyin = "N" Case -14922 To -14915: pinyin = "O" Case -14914 To -14631: pinyin = "P"

花语(按中文拼音首字母排序)

A B 百合的花语——纯洁/神圣 百合（火红）--热烈的爱 香水百合---纯洁,高贵 彼岸花的花语是——悲伤的回忆（日本）/相互思念（韩国） 白日菊--永失我爱 波斯菊的花语——永远快乐 C 雏菊——隐藏爱情 菖蒲－相信者的幸福 菖蒲（德国品种）的花语——婚姻完美 D 丁香－－－回忆 E F 风信子--永远的怀念 风信子（红色）的花语是——让人感动的爱 非洲菊的花语是--永远快乐 G 狗尾巴草的花语--暗恋 H 含羞草的花语－－自卑 蝴蝶花---相信就是幸福 蝴蝶兰--我爱你 I J 桔梗花的花语是——真诚不变的爱 菊花（白色）---真实坦诚 菊（红色素）---我爱你 K 卡萨布兰卡的花语: [1]伟大的爱 [2]一种充满回忆的花,花语是淡泊的永恒 [3]易变的心 [4]不要放弃一个你深爱着的人 [5]死亡,一种盛开的很傲然,厌世的花 [6]一种永恒的美 [7]负担不起的爱

L 蓝色妖姬----相守是一种承诺,人世轮回中,怎样才能拥有一份温柔的情意! 蓝色妖姬双枝花语：相遇是一种宿命，心灵的交汇让我们有诉不尽的浪漫情怀。而如果是三枝蓝色妖姬,送花人表达的是另一种情愫——你是我最深的爱恋希望永远铭记我们这段美丽的爱情故事! 鳞托菊--永远的爱 龙舌兰的花语----是为爱付出一切 龙胆花的花语－－－喜欢看忧伤时的你 M 玫瑰（红色）---我爱你 玫瑰（白）的花语是——我足以与你相配 玫瑰（黄）--腿色的爱 玫瑰（紫）--珍惜的爱 玫瑰（蓝）---无法得到的东西 玫瑰（香槟）的花语——我只钟情你一个&爱上你是我今生最大的幸福，想你是我最甜蜜的痛苦，和你在一起是我的骄傲，没有你的我就像一只迷失了航线的船。梦幻的感觉 茉莉花——你是我的莫离幸福 密蒙花--请幸福到来 迷迭香花语----回忆不想忘记得过去,纪念 麦杆菊--永恒的记忆木棉花------珍惜眼前的幸福 N O P 蒲公英的花语——无法停留的爱 Q 蔷薇的花语——爱的思念；你的一切都很可爱蔷薇（红）的花语是——热恋 蔷薇（粉）的花语是——爱的誓言 蔷薇（白）的花语是——纯洁的爱情 蔷薇（黄）的花语是——永恒的微笑 蔷薇（深红色）的花语是——只想和你在一起蔷薇（野）的花语是——浪漫的爱情 牵牛花--爱情永固 R S

汉字与首字母相互转换：输入汉字拼音首字母,自动识别汉字; 输入汉字,自动获取首字母;

///

/// 找到中文短语的拼音首字母。 ///

/// 中文短语 /// 拼音首字母，存在多音字时以,分隔。 /// 如：西单，将返回XD,XS,XC。 public static void GetFirstLetter(string wStrChs, ref string strResult) { strResult = ""; string strBuffer = ""; for (int i = 0; i < wStrChs.Length; i++) { GetSpellByChs(wStrChs[i], ref strBuffer); if (strBuffer.Length > 0) { if (strResult != string.Empty) { string[] strs = strResult.Split(','); strResult = ""; for (int j = 0; j < strs.Length; j++) { for (int k = 0; k < strBuffer.Length; k++) { strResult += strs[j] + strBuffer[k].ToString() + ","; } } } else { for (int j = 0; j < strBuffer.Length; j++) { strResult += strBuffer[j] + ","; } } if (strResult != string.Empty) strResult = strResult.Substring(0, strResult.Length - 1); } } } ///

/// 返回中文单字的拼音首字母。

甲骨文字对照

甲骨文字对照 LG GROUP system office room 【LGA16H-LGYY-LGUA8Q8-LGA162】

甲骨文——汉字对应表 下列的甲骨文单字均是从原字放大，在解释文字之后，附注原诗词作者与诗名、词牌，以供参考。 A B C D E F G H I J K L M N O P Q R S T U V W X Y Z A 安安安 A B C D E F G H I J K L M N O P Q R S T U V W X Y Z B 八八巴巴巴巴癹白百败 般般邦雹雹宝宝饱保保 保保保保豹豹卑北贝狈 祊偪鼻匕匕匕比必闭畀 畀畀敝敝敝敝辟辟濞兵 兵丙丙丙丙丙丙丙秉并

并并并并驳帛泊亳亳亳 亳卜不不步 A B C D E F G H I J K L M N O P Q R S T U V W X Y Z C 才才采采仓仓仓仓曹册 叉叉昌长鬯鬯鬯朝朝朝 朝车车车车车屮尘臣辰 辰辰辰辰辰辰成呈呈呈 呈承乘齿齿齿齿齿赤赤 舂舂舂虫虫稠丑丑丑丑 臭出出初刍刍楚豖传吹 吹娕娕此此此此朿朿朿 朿朿朿朿朿朿琮琮

D 沓大大汏带带带丹单单 单旦旦宕刀刀盗得登弟 弟杕帝帝帝典典典典奠 奠吊耋丁丁丁丁丁鼎鼎 东东冬冬斗斗豆豆豆剢 剢督督杜端对兑多多 A B C D E F G H I J K L M N O P Q R S T U V W X Y Z E 娥娥儿而耳洱洱二二 A B C D E F G H I J K L M N O P Q R S T U V W X Y Z F 伐伐伐凡杋匚匚方方方 方彷非非扉分焚焚焚焚

丰丰丰丰丰风风风风风 妦封封封封夆夆缶夫弗 伏凫刜孚服福福甫斧斧 父父妇妇阜阜复富富腹 腹 G 干甘刚刚高膏膏杲槁告 戈戈鬲鬲鬲鬲鬲鬲各各 更庚庚庚庚庚庚庚工工 工弓公肱肱宫龚冓遘遘 遘古谷蛊蛊鼓雇雇雇雇 剐官毋毋毋毋盥盥盥雚

个常用汉字 按照拼音首字母排序

3500个常用汉字 A 啊阿埃挨哎唉哀皑癌蔼矮艾碍爱隘鞍氨安俺按暗岸胺案肮昂盎凹敖熬翱袄傲奥懊澳 B 芭捌扒叭吧笆八疤巴拔跋靶把耙坝霸罢爸白柏百摆佰败拜稗斑班搬扳般颁板版扮拌伴瓣半办绊邦帮梆榜膀绑棒磅蚌镑傍谤苞胞包褒剥薄雹保堡饱宝抱报暴豹鲍爆杯碑悲卑北辈背贝钡倍狈备惫焙被奔苯本笨崩绷甭泵蹦迸逼鼻比鄙笔彼碧蓖蔽毕毙毖币庇痹闭敝弊必辟壁臂避陛鞭边编贬扁便变卞辨辩辫遍标彪膘表鳖憋别瘪彬斌濒滨宾摈兵冰柄丙秉饼炳病并玻菠播拨钵波博勃搏铂箔伯帛舶脖膊渤泊驳捕卜哺补埠不布步簿部怖 C 擦猜裁材才财睬踩采彩菜蔡餐参蚕残惭惨灿苍舱仓沧藏操糙槽曹草厕策侧册测层蹭插叉茬茶查碴搽察岔差诧拆柴豺搀掺蝉馋谗缠铲产阐颤昌猖场尝常长偿肠厂敞畅唱倡超抄钞朝嘲潮巢吵炒车扯撤掣彻澈郴臣辰尘晨忱沉陈趁衬撑称城橙成呈乘程惩澄诚承逞骋秤吃痴持匙池迟弛驰耻齿侈尺赤翅斥炽充冲虫崇宠抽酬畴踌稠愁筹仇绸瞅丑臭初出橱厨躇锄雏滁除楚础储矗搐触处揣川穿椽传船喘串疮窗幢床闯创吹炊捶锤垂春椿醇唇淳纯蠢戳绰疵茨磁雌辞慈瓷词此刺赐次聪葱囱匆从丛凑粗醋簇促蹿篡窜摧崔催脆瘁粹淬翠村存寸磋撮搓措挫错 D 搭达答瘩打大呆歹傣戴带殆代贷袋待逮怠耽担丹单郸掸胆旦氮但惮淡诞弹蛋当挡党荡档刀捣蹈倒岛祷导到稻悼道盗德得的蹬灯登等瞪凳邓堤低滴迪敌笛狄涤翟嫡抵底地蒂第帝弟递缔颠掂滇碘点典靛垫电佃甸店惦奠淀殿碉叼雕凋刁掉吊钓调跌爹碟蝶迭谍叠丁盯叮钉顶鼎锭定订丢东冬董懂动栋侗恫冻洞兜抖斗陡豆逗痘都督毒犊独读堵睹赌杜镀肚度渡妒端短锻段断缎堆兑队对墩吨蹲敦顿囤钝盾遁掇哆多夺垛躲朵跺舵剁惰堕 E 蛾峨鹅俄额讹娥恶厄扼遏鄂饿恩而儿耳尔饵洱二贰 F 发罚筏伐乏阀法珐藩帆番翻樊矾钒繁凡烦反返范贩犯饭泛坊芳方肪房防妨仿访纺放菲非啡飞肥匪诽吠肺废沸费芬酚吩氛分纷坟焚汾粉奋份忿愤粪丰封枫蜂峰锋风疯烽逢冯缝讽奉凤佛否夫敷肤孵扶拂辐幅氟符伏俘服浮涪福袱弗甫抚辅俯釜斧脯腑府腐赴副覆赋复傅付阜父腹负富讣附妇缚咐 G 噶嘎该改概钙盖溉干甘杆柑竿肝赶感秆敢赣冈刚钢缸肛纲岗港杠篙皋高膏羔糕搞镐稿告哥歌搁戈鸽胳疙割革葛格蛤阁隔铬个各给根跟耕更庚羹埂耿梗工攻功恭龚供躬公宫弓巩汞拱贡共钩勾沟苟狗垢构购够辜菇咕箍估沽孤姑鼓古蛊骨谷股故顾固雇刮瓜剐寡挂褂乖拐怪棺关官冠观管馆罐惯灌贯光广逛瑰规圭硅归龟闺轨

甲骨文对应字检索表

汉字笔画检索表 一 (292) 丶 (245) 亅 (236) (167) (145) 乙 (384) (144) 【一】二 (293) (299) (299) 十 (295) 丅 (299) 丁 (245) 厂 (356) (64) 七 (294) 匚 (224) 丂 (237) 【丨】丄.........299 卜 (279) 刂 (266) 冂 (165) 【】 亻 (1) 人 (1) 入 (299) 八 (294) 乂 (235) ? (293) 匕 (61) (19) 儿 (12) 几 (232) 九 (294) 勹 (21) 乃 (144) (227) 【丶】 冫 (350) 【乛 】 力 (144) 刀 (266) (266) 又 (64) 卩 (32) 丩 (393) 阝[在左] (358) ? (32) 【一】 三 (293) 干 (241) 于 (246) 亏 (237) 士 (147) 土 (350) 工 (244) 卄 (295) 艹 (380) 下 (299) 廾 (81) 大 (23) 万 (429) 兀 (7) (30) (115) 才 (380) 弋 (239) (145) 【丨】 上 (299) 口 (115) 囗 (162) (285) 巾 (150) 山 (354) 屮 (379) (224) 【】 千 (296) 乇 (385) 乞 (315) 川 (348) 彳 (191) 彡 (301) 亼 (221) 个 (8) 亽 (221) (245) 兦 (167) (144) 犭 (402) 夂 (113) 久 (294) 夕 (312) 么 (152) 凡 (216) 饣 (213) 及 (65) 【丶】 丬 (184) 广 (177) 文 (31) 亡 (167) 门 (181) 义 (286) 忄 (139) 氵 (326) 宀 (170) 之 (103) 辶 (196) 【乛 】 尸 (21) (21) 己 (157) 巳 (63) (65) 弓 (253) 卫 (192) 也 (426) 卪 (32) 女 (40) 小 (300) 刃 (266) 刄 (266) 习 (439) 叉 (70) 飞 (438) 子 (62) 马 (407) (153) 幺 (152) 巛 (348) 【一】 丰 (384) (233) 王 (274) 井 (354) 天 (23) 夫 (24) 元 (7) 无 (27) (167) 韦 (111) 云 (315) 专 (243) 弌 (292) 耂 (10) 丐 (5) 廿 (295) (258) 木 (361) 卅 (295) (280) 1

提取汉字的拼音

使用方法，工具-宏-visual basic编辑器，新建一个模块，拷贝进去 然后，就可以吧pinyin(mystring)当一个工作比函数来使用了 例子 在a1单元格中有文字"阿中" 在b1单元格中输入函数=pinyin(a1) b1中则输出AZ Public Function pinyin(mystr As String) As Variant '自定义函数，目的：把单个汉字变为拼音的第一个字母。 On Error Resume Next mystr = StrConv(mystr, vbNarrow) Dim returnStr As String Dim i As Integer Dim curWord As String For i = 1 To Len(mystr) curWord = Mid(mystr, i, 1) If Asc(curWord) <> 0 And Err.Number <> 1004 Then returnStr = returnStr & getFirstLetterOfCnWord(curWord) End If Next i pinyin = returnStr End Function Public Function isCNWord(mystr As String) As Boolean Dim flag As Boolean flag = False If Len(mystr) <> LenB(mystr) Then flag = True End If isCNWord = flag End Function Public Function getFirstLetterOfCnWord(mystr As String) As String If Asc(mystr) < 0 Then If Asc(Left$(mystr, 1)) < Asc("啊") Then getFirstLetterOfCnWord = "0" Exit Function End If If Asc(Left$(mystr, 1)) >= Asc("啊") And Asc(Left$(mystr, 1)) < Asc("芭") Then getFirstLetterOfCnWord = "A" Exit Function End If

excel提取汉字的拼音首字母集锦

excel提取汉字的拼音首字母集锦 方法一：（最完美的方法） 如果你A列的汉字都在4个字符之内，那就在B列输入此公式： =LOOKUP(MID(A1,1,1),{"","";"吖","A";"八","B";"嚓","C";"咑","D";"鵽","E";"发","F";"猤","G";"铪","H";"夻","J";"咔","K";"垃","L";"嘸","M";"旀","N";"噢","O";"妑","P";"七","Q";"囕","R";"仨","S";"他","T";"屲","W";"夕","X";"丫","Y";"帀","Z"})&LOOKUP(MID(A1,2,1),{"","";"吖","A";"八","B";"嚓","C";"咑","D";"鵽","E";"发","F";"猤","G";"铪","H";"夻","J";"咔","K";"垃","L";"嘸","M";"旀","N";"噢","O";"妑","P";"七","Q";"囕","R";"仨","S";"他","T";"屲","W";"夕","X";"丫","Y";"帀","Z"})&LOOKUP(MID(A1,3,1),{"","";"吖","A";"八","B";"嚓","C";"咑","D";"鵽","E";"发","F";"猤","G";"铪","H";"夻","J";"咔","K";"垃","L";"嘸","M";"旀","N";"噢","O";"妑","P";"七","Q";"囕","R";"仨","S";"他","T";"屲","W";"夕","X";"丫","Y";"帀","Z"})&LOOKUP(MID(A1,4,1),{"","";"吖","A";"八","B";"嚓","C";"咑","D";"鵽","E";"发","F";"猤","G";"铪","H";"夻","J";"咔","K";"垃","L";"嘸","M";"旀","N";"噢","O";"妑","P";"七","Q";"囕","R";"仨","S";"他","T";"屲","W";"夕","X";"丫","Y";"帀","Z"}) 公式是长了一点，如果把{}里的数据定义为名称，可以转换更多的首字母 具体方法： 复制{}里的数据，插入-名称(或者按CTRL+F3)，定义名称，如图，定义“拼音”为名称，下面的“引用位置”的“=”号后面粘贴刚才复制的{}里的数据

java获取汉字拼音或拼音首字母

Java获取汉字拼音或拼音首字母 Posted on 2012-04-18 21:58 myfavorite阅读(1251) 评论(0)编辑收藏在进行模糊查询时，经常用到使用汉字拼音或者首字母进行匹配查询。以下是获取汉字拼音或者首字母的java代码实现 package com; import net.sourceforge.pinyin4j.PinyinHelper; import net.sourceforge.pinyin4j.format.HanyuPinyinCaseType; import net.sourceforge.pinyin4j.format.HanyuPinyinOutputFormat; import net.sourceforge.pinyin4j.format.HanyuPinyinToneType; import net.sourceforge.pinyin4j.format.HanyuPinyinVCharType; import net.sourceforge.pinyin4j.format.exception.BadHanyuPinyinOutputFormatCombination; public class GetPinyin { /** * 得到全拼 * * @param src * @return */ public static String getPingYin(String src) { char[] t1 = null; t1 = src.toCharArray(); String[] t2 = new String[t1.length]; HanyuPinyinOutputFormat t3 = new HanyuPinyinOutputFormat(); t3.setCaseType(HanyuPinyinCaseType.LOWERCASE); t3.setToneType(HanyuPinyinToneType.WITHOUT_TONE); t3.setVCharType(HanyuPinyinVCharType.WITH_V); String t4 = ""; int t0 = t1.length; try { for (int i = 0; i < t0; i++) { // 判断是否为汉字字符 if (https://www.wendangku.net/doc/384767022.html,ng.Character.toString(t1[i]).matches("[\\u4E00-\\u9FA5]+")) { t2 = PinyinHelper.toHanyuPinyinStringArray(t1[i], t3); t4 += t2[0]; } else { t4 += https://www.wendangku.net/doc/384767022.html,ng.Character.toString(t1[i]); } } return t4; } catch (BadHanyuPinyinOutputFormatCombination e1) {