Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]将指定汉字转换为拼音格式,首写字母要大写。


  共有5376人关注过本帖树形打印复制链接

主题：[求助]将指定汉字转换为拼音格式,首写字母要大写。
帅哥哟，离线，有人找我吗？
cqlpjks
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：407 积分：3194 威望：0 精华：0 注册：2011/2/28 11:57:00 		[求助]将指定汉字转换为拼音格式,首写字母要大写。  发帖心情 Post By：2014/4/3 17:30:00 [只看该作者]

 

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

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

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

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

[此贴子已经被作者于2014-4-3 17:32:04编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178530 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2014/4/3 17:39:00 [只看该作者]

参考帮助

StrToTitleCase

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

示例

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

　

得到的结果是：China
 回到顶部
帅哥哟，离线，有人找我吗？
E_Fox
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：103 积分：859 威望：0 精华：0 注册：2014/4/2 13:46:00 		  发帖心情 Post By：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
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：407 积分：3194 威望：0 精华：0 注册：2011/2/28 11:57:00 		  发帖心情 Post By：2014/4/4 16:18:00 [只看该作者]

搞定。谢谢!

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 4 次数据查询