获得汉字字符串拼音首字母
作者:iwebsms的专栏
'返回给定字符串的首字母
Function IndexCode(ByVal IndexTxt As String) As String
Dim i As Integer
For i = 1 To IndexTxt.Length
IndexCode = IndexCode & GetOneIndex(Mid(IndexTxt, i, 1))
Next
End Function
'得到单个字符的首字母
Private Function GetOneIndex(ByVal OneIndexTxt As String) As String
If Asc(OneIndexTxt) >= 0 And Asc(OneIndexTxt) < 256 Then
GetOneIndex = OneIndexTxt
Else
GetOneIndex = GetX(CInt(Format((Asc(OneIndexTxt) + 65536) / 256 - 160, "00") & Format((Asc(OneIndexTxt) + 65536) Mod 256 - 160, "00")))
End If
End Function
'根据区位得到首字母
Private Function GetX(ByVal GBCode As Integer) As String
'判断一级汉字
If GBCode >= 1601 And GBCode < 1637 Then GetX = "A"
If GBCode >= 1637 And GBCode < 1833 Then GetX = "B"
If GBCode >= 1833 And GBCode < 2078 Then GetX = "C"
If GBCode >= 2078 And GBCode < 2274 Then GetX = "D"
If GBCode >= 2274 And GBCode < 2302 Then GetX = "E"
If GBCode >= 2302 And GBCode < 2433 Then GetX = "F"
If GBCode >= 2433 And GBCode < 2594 Then GetX = "G"
If GBCode >= 2594 And GBCode < 2787 Then GetX = "H"
If GBCode >= 2787 And GBCode < 3106 Then GetX = "J"
If GBCode >= 3106 And GBCode < 3212 Then GetX = "K"
If GBCode >= 3212 And GBCode < 3472 Then GetX = "L"
If GBCode >= 3472 And GBCode < 3635 Then GetX = "M"
If GBCode >= 3635 And GBCode < 3722 Then GetX = "N"
If GBCode >= 3722 And GBCode < 3730 Then GetX = "O"
If GBCode >= 3730 And GBCode < 3858 Then GetX = "P"
If GBCode >= 3858 And GBCode < 4027 Then GetX = "Q"
If GBCode >= 4027 And GBCode < 4086 Then GetX = "R"
If GBCode >= 4086 And GBCode < 4390 Then GetX = "S"
If GBCode >= 4390 And GBCode < 4558 Then GetX = "T"
If GBCode >= 4558 And GBCode < 4684 Then GetX = "W"
If GBCode >= 4684 And GBCode < 4925 Then GetX = "X"
If GBCode >= 4925 And GBCode < 5249 Then GetX = "Y"
If GBCode >= 5249 And GBCode <= 5589 Then GetX = "Z"
'判断二级汉字
If GBCode >= 5601 And GBCode <= 8794 Then
Dim CodeData As String
CodeData = "cjwgnspgcenegypbtwxzdxykygtpjnmjqmbsgzscyjsyyfpggbzgydywjkgaljswkbjqhyjwpdzlsgmrybywwccgznkydgttngjeyekzydcjnmcylqlypyqbqrpzslwbdgkjfyxjwcltbncxjjjjcxdtqsqzycdxxhgckbphffsspybgmxjbbyglbhlssmzmpjhsojnghdzcdklgjhsgqzhxqgkezzwymcscjnyetxadzpmdssmzjjqjyzcjjfwqjbdzbjgdnzcbwhgxhqkmwfbpbqdtjjzkqhylcgxfptyjyyzpsjlfchmqshgmmxsxjpkdcmbbqbefsjwhwwgckpylqbgldlcctnmaeddksjngkcsgxlhzaybdbtsdkdylhgymylcxpycjndqjwxqxfyyfjlejbzrwccqhqcsbzkymgplbmcrqcflnymyqmsqtrbcjthztqfrxchxmcjcjlxqgjmshzkbswxemdlckfsydsglycjjssjnqbjctyhbftdcyjdgwyghqfrxwckqkxebpdjpxjqsrmebwgjlbjslyysmdxlclqkxlhtjrjjmbjhxhwywcbhtrxxglhjhfbmgykldyxzpplggpmtcbbajjzyljtyanjgbjflqgdzyqcaxbkclecjsznslyzhlxlzcghbxzhznytdsbcjkdlzayffydlabbgqszkggldndnyskjshdlxxbcghxyggdjmmzngmmccgwzszxsjbznmlzdthcqydbdllscddnlkjyhjsycjlkohqasdhnhcsgaehdaashtcplcpqybsdmpjlpcjaqlcdhjjasprchngjnlhlyyqyhwzpnccgwwmzffjqqqqxxaclbhkdjxdgmmydjxzllsygxgkjrywzwyclzmcsjzldbndcfcxyhlschycjqppqagmnyxpfrkssbjlyxyjjglnscmhcwwmnzjjlhmhchsyppttxrycsxbyhcsmxjsxnbwgpxxtaybgajcxlypdccwqocwkccsbnhcpdyznbcyytyckskybsqkkytqqxfcwchcwkelcqbsqyjqcclmthsywhmktlkjlychwheqjhtjhppqpqscfymmcmgbmhglgsllysdllljpchmjhwljcyhzjxhdxjlhxrswlwzjcbxmhzqxsdzpmgfcsglsdymjshxpjxomyqknmyblrthbcftpmgyxlchlhlzylxgsssscclsldclepbhshxyyfhbmgdfycnjqwlqhjjcywjztejjdhfblqxtqkwhdchqxagtlxljxmsljhdzkzjecxjcjnmbbjcsfywkbjzghysdcpqyrsljpclpwxsdwejbjcbcnaytmgmbapclyqbclzxcbnmsggfnzjjbzsfqyndxhpcqkzczwalsbccjxpozgwkybsgxfcfcdkhjbstlqfsgdslqwzkxtmhsbgzhjcrglyjbpmljsxlcjqqhzmjczydjwbmjklddpmjegxyhylxhlqyqhkycwcjmyhxnatjhyccxzpcqlbzwwwtwbqcmlbmynjcccxbbsnzzljpljxyztzlgcldcklyrzzgqtgjhhgjljaxfgfjzslcfdqzlclgjdjcsnclljpjqdcclcjxmyzftsxgcgsbrzxjqqcczhgyjdjqqlzxjyldlbcyamcstylbdjbyregklzdzhldszchznwczcllwjqjjjkdgjcolbbzppglghtgzcygezmycnqcycyhbhgxkamtxyxnbskyzzgjzlqjdfcjxdygjqjjpmgwgjjjpkjsbgbmmcjssclpqpdxcdyykypcjddyygywchjrtgcnyqldkljczzgzccjgdyksgpzmdlcphnjafyzdjcnmwescsglbtzcgmsdllyxqsxsbljsbbsgghfjlwpmzjnlyywdqshzxtyywhmcyhywdbxbtlmswyyfsbjcbdxxlhjhfpsxzqhfzmqcztqcxzxrdkdjhnnyzqqfnqdmmgnydxmjgdhcdycbffallztdltfkmxqzdngeqdbdczjdxbzgsqqddjcmbkxffxmkdmcsychzcmljdjynhprsjmkmpcklgdbqtfzswtfgglyplljzhgjjgypzltcsmcnbtjbhfkdhbyzgkpbbymtdlsxsbnpdkleycjnycdykzddhqgsdzsctarlltkzlgecllkjljjaqnbdggghfjtzqjsecshalqfmmgjnlyjbbtmlycxdcjpldlpcqdhsycbzsckbzmsljflhrbjsnbrgjhxpdgdjybzgdlgcsezgxlblgyxtwmabchecmwyjyzlljjshlgndjlslygkdzpzxjyyzlpcxszfgwyydlyhcljscmbjhblyjlycblydpdqysxktbytdkdxjypcnrjmfdjgklccjbctbjddbblblcdqrppxjcglzcshltoljnmdddlngkaqakgjgyhheznmshrphqqjchgmfprxcjgdychghlyrzqlcngjnzsqdkqjymszswlcfqjqxgbggxmdjwlmcrnfkkfsyyljbmqammmycctbshcptxxzzsmphfshmclmldjfyqxsdyjdjjzzhqpdszglssjbckbxyqzjsgpsxjzqznqtbdkwxjkhhgflbcsmdldgdzdblzkycqnncsybzbfglzzxswmsccmqnjqsbdqsjtxxmbldxcclzshzcxrqjgjylxzfjphymzqqydfqjjlcznzjcdgzygcdxmzysctlkphtxhtlbjxjlxscdqccbbqjfqzfsltjbtkqbsxjjljchczdbzjdczjccprnlqcgpfczlclcxzdmxmphgsgzgszzqjxlwtjpfsyaslcjbtckwcwmytcsjjljcqlwzmalbxyfbpnlschtgjwejjxxglljstgshjqlzfkcgnndszfdeqfhbsaqdgylbxmmygszldydjmjjrgbjgkgdhgkblgkbdmbylxwcxyttybkmrjjzxqjbhlmhmjjzmqasldcyxyqdlqcafywyxqhz"
GetX = Mid(CodeData, (Microsoft.VisualBasic.Left(CStr(GBCode), 2) - 56) * 94 + (Microsoft.VisualBasic.Right(CStr(GBCode), 2)), 1)
End If
End Function
获得汉字字符串拼音首字母相关推荐
- 完整简洁的Oracle获得汉字字符串拼音首字母和全拼的函数
分享一下我老师大神的人工智能教程!零基础,通俗易懂!http://blog.csdn.net/jiangjunshow 也欢迎大家转载本篇文章.分享知识,造福人民,实现我们中华民族伟大复兴! http ...
- java 汉字 字母_JAVA获取中文汉字字符串拼音首字母,英文字符不变的工具类
java在处理项目需求时,有时需要排序,尤其是中文名字按0-9,A-Z进行首字母排序,这时候就需要首先要得到中文字符串的首字母,然后按照字母顺序进行排序,不多说,直接上代码,看java如何获取中文字符 ...
- 获得汉字字符串拼音首字母 .
'返回给定字符串的首字母 Function IndexCode(ByVal IndexTxt As String) As String Dim i As Integer For i = 1 To In ...
- 根据汉字获取它的字符串拼音首字母(大写),含多音字
/// <summary> /// 根据汉字获取它的字符串拼音首字母(大写),含多音字 /// </summary> /// & ...
- IOS汉字转拼音首字母
项目中需要给UITableView建右侧索引,需要获取汉字的拼音首字母,而汉字转拼音一般都是使用CFStringTransform方法 - (NSString*)pinyin {if (self == ...
- C# 获取汉字的拼音首字母(转)
原文:https://blog.csdn.net/younghaiqing/article/details/62417269 一种是把所有中文字符集合起来组成一个对照表:另一种是依照汉字在Unicod ...
- C# 获取汉字的拼音首字母和全拼(含源码)
C# 获取汉字的拼音首字母 一种是把所有中文字符集合起来组成一个对照表:另一种是依照汉字在Unicode编码表中的排序来确定拼音的首字母.碰到多音字时就以常用的为准(第一种方法中可以自行更改,方法为手 ...
- (转)C# 获取汉字的拼音首字母和全拼(含源码)[A]
https://blog.csdn.net/younghaiqing/article/details/62417269 C# 获取汉字的拼音首字母 一种是把所有中文字符集合起来组成一个对照表:另一种是 ...
- 取字符串拼音首字母(js)
1 //取字符串拼音首字母 2 function makePy(str) { 3 if (typeof(str) != "string") 4 throw new Error(-1 ...
最新文章
- 物体检测之从RCNN到Faster RCNN
- nginx 基础配置和常用模块
- hdu1521 指数型母函数
- [html] 列举下哪些块元素里面不能放哪些块元素呢?
- Linux:mysqldump 用法 数据库导出
- 服务器Windows 2008 R2 安装SQL 2008 R2
- js如何保证iframe里的内容,显示在父窗口
- Oracle 单实例 迁移到 RAC 实例 -- 使用导出导入方法
- JavaScript高级编程之树节点搜索过滤的设计和实现
- SketchUp最适用新手的二十多款SU插件
- java查看jar包依赖_java项目开发中如何查找到项目依赖的jar包?
- PDF电子发票解析免费版
- B站的经典封面制作方法
- 【NLP】华为发布「国产Copilot内核」PanGu-Coder,而且真的能用中文哦!
- 如何查看当前计算机硬盘状态,win7系统下如何查看硬盘状态
- Tech.Ed盛大开幕 梁念坚致开幕辞
- 147计算机代表啥,147代表什么意思
- BUUCTF-[安洵杯 2019]easy_web1
- React Concurrent Mode 之 Suspense 实践
- php java 私钥 转换格式,php公钥私钥 3 ---非标准格式转换为标准格式