<< Click to Display Table of Contents >> 获取拼音首字母(gf_GetPinYin函数) |
函数说明
该函数可以获取一个字符串的拼音首字母(只对汉字有效)。
函数原型
|
Public Function gf_GetPinYin(str As String) As String |
语法
gf_GetPinYin(str)
参考:gf_GetPinYin("你好") '获取“你好”的拼音首字母
参数
参数名 |
必需/可选 |
数据类型 |
参数说明 |
---|---|---|---|
str |
必需 |
String |
要获取拼音首字母的字符串 |
返回值
返回一个字符串类型(String)的值,若要获取的字符串不是汉字,则原样返回。
示例
|
Sub subTest() Dim str As String '定义一个字符串变量 Dim strPinYin As String '定义一个字符串变量,保存结果 str = "你好" '设置内容 strPinYin = gf_GetPinYin(str) '获取该字符串的拼音首字母 Msgbox "【" & str & "】的拼音首字母为 " & strPinYin '显示结果,结果是 “nh” End Sub |