取得字符串首字母

原创 2004年09月07日 06:34:00

'Code By 魑魅魍魉
'mailto:DemonStudio@hotmail.com

Private Function PYin(ByVal Str As String) As String
Dim mLen As Long, mLong As Long, PY As String
mLen = Len(Str)
For mLong = 1 To mLen
Select Case Asc(Mid$(Str, mLong, 1))
Case -20319 To -20284:  PY = "A"
Case -20283 To -19776:  PY = "B"
Case -19775 To -19219:  PY = "C"
Case -19218 To -18711:  PY = "D"
Case -18710 To -18527:  PY = "E"
Case -18526 To -18240:  PY = "F"
Case -18239 To -17923:  PY = "G"
Case -17922 To -17418:  PY = "H"
Case -17417 To -16475:  PY = "J"
Case -16474 To -16213:  PY = "K"
Case -16212 To -15641:  PY = "L"
Case -15640 To -15166:  PY = "M"
Case -15165 To -14923:  PY = "N"
Case -14922 To -14915:  PY = "O"
Case -14914 To -14631:  PY = "P"
Case -14630 To -14150:  PY = "Q"
Case -14149 To -14091:  PY = "R"
Case -14090 To -13319:  PY = "S"
Case -13318 To -12839:  PY = "T"
Case -12838 To -12557:  PY = "W"
Case -12556 To -11848:  PY = "X"
Case -11847 To -11056:  PY = "Y"
Case -11055 To -2050:   PY = "Z"
End Select
PYin = PYin & PY
Next mLong
End Function

 

Private Sub Text1_Change()
Me.Caption = PYin(Text1)
End Sub

C# 怎样获取string的某个字符的位置和怎样获得某单词

1:获取string的某个字符的位置   (1) String.LastIndexOf 方法 报告指定的 Unicode 字符或 String 在此实例中的最后一个匹配项的索引位置。 名称...
  • niuduwhw
  • niuduwhw
  • 2013年03月19日 11:10
  • 4164

JAVA获取字符串首字拼音和全拼

JAVA获取字符串首字拼音或者全部拼音,用的是pinyin4j。 import java.util.ArrayList; import java.util.Hashtable; import...
  • KokJuis
  • KokJuis
  • 2016年11月03日 15:52
  • 2057

iOS 获取字符串的首、尾字符

NSString *str = @"dsdf456s56fs5f4dsf145ds456fds456fds45fds45fds5fs45fs5f45"; NSString *first = [...
  • saw471
  • saw471
  • 2016年08月05日 10:28
  • 5724

iOS 获取字符串首字母

  • 2016年09月13日 16:14
  • 15KB
  • 下载

vi中如何在多行行首或行尾插入删除指定字符串

1.多行行首插入指定字符串 :1,6 s/^/System.out.println(" :2,$ s/^/System.out.println(" 注:此为2行至尾行 :% s/^/System....
  • GSH_Hello_World
  • GSH_Hello_World
  • 2017年05月09日 16:05
  • 1270

String方法取字符出现次数和字符最大相同

class Test { public static void main(String[] args) { String str = "dasdalldsdslldsdszxll"; ...
  • chaoyu168
  • chaoyu168
  • 2015年10月20日 17:53
  • 1235

//获取某个字符串或者汉字的首字母.

//获取某个字符串或者汉字的首字母. - (NSString *)firstCharactorWithString:(NSString *)string {     NSMutabl...
  • apple_bao
  • apple_bao
  • 2017年06月21日 16:49
  • 109

iOS获取字符串(或汉字)首字母

//获取某个字符串或者汉字的首字母. - (NSString *)firstCharactorWithString:(NSString *)string {     NSMutabl...
  • Liu_Esther
  • Liu_Esther
  • 2016年06月03日 14:54
  • 3889

浅谈CSS首字放大下沉及段首缩进2字符

对首字进行放大,需用到css的伪元素:first-letter。 .text{ font-family:Microsoft YaHei; font-size:16...
  • zhouziyu2011
  • zhouziyu2011
  • 2016年12月18日 09:54
  • 1229

在文本的行首或行尾加字符

转自:http://www.cnblogs.com/aaronwxb/archive/2011/08/19/2145364.html 用sed命令在行首或行尾添加字符的命令有以下几种...
  • u014630759
  • u014630759
  • 2016年05月01日 16:44
  • 484
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:取得字符串首字母
举报原因:
原因补充:

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