以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]将指定汉字转换为拼音格式,首写字母要大写。  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=48726)
--  作者：cqlpjks
--  发布时间：2014/4/3 17:30:00
--  [求助]将指定汉字转换为拼音格式,首写字母要大写。

 

Output.Show(GetPY("中国人"))

得到的结果为：zhong guo 拼音均小写字母

但我想得到的结果是：Zhong Guo Ren(拼音的首写字母大写)

怎样处理？请指教。谢谢!

[此贴子已经被作者于2014-4-3 17:32:04编辑过]
--  作者：Bin
--  发布时间：2014/4/3 17:39:00
--  
参考帮助

StrToTitleCase

将字符串转换为词首字母大写。

示例

Dim s As String
s = "china"
s = StrToTitleCase(s)
Output.Show(s)

　

得到的结果是：China
--  作者：E_Fox
--  发布时间：2014/4/3 22:47:00
--  
Dim strs As String = "中国人"
Dim str_py As String

For Each str As String In strs
    str_py = str_py & StrToTitleCase(getpy(str)) & " "   \'如不需要空开则去掉后面的双引号
Next

str_py = str_py.Trim()   \'去空格\'

Output.Show(str_py)
--  作者：cqlpjks
--  发布时间：2014/4/4 16:18:00
--  
搞定。谢谢!