专家坐堂-请教，关于如何做“北京转换成BeiJing！！！Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请教，关于如何做“北京转换成BeiJing！！！  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=12415)

--  作者：kevin
--  发布时间：2011/9/2 1:03:00
--  请教，关于如何做“北京转换成BeiJing！！！

Dim py As DataRow = e.DataRow
If e.DataCol.Name = "省洲" Then
    If py.IsNull("省洲") Then
        py("Province") = Nothing
    Else
        py("Province") = getpy(py("省洲"),False)

   End If
End If

我希望得到的效果是：BeiJing

--  作者：blackzhu
--  发布时间：2011/9/2 7:36:00
--

例如：

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

得到的结果为：zhong guo

Output.Show(GetPY("中国", True))

得到的结果为：zg

--  作者：狐狸爸爸
--  发布时间：2011/9/2 7:55:00
--
Dim s1 As String = getpy("北京")
Dim s2 As String
Dim ss() As String = s1.split(" ")
Dim textInfo As System.Globalization.TextInfo
textInfo = System.Threading.Thread.CurrentThread.CurrentCulture.TextInfo
For Each s1 In ss
    s2 = s2 & textInfo.ToTitleCase(s1)
Next
output.show(s2)

--  作者：c
--  发布时间：2011/9/2 9:24:00
--

也可以取第一个字母来替换！！

Dim s1 As String = getpy("大海")
Dim s2 As String
Dim s3 As String
Dim s4 As String
Dim ss() As String = s1.split(" ")
For Each s1 In ss
    s2 = s1.SubString(0,1) \'取开头字母
    s3= s1.SubString(1,s1.Length-1) \'取后面的字母
    s4 +=s2.ToUpper & s3 \'转换并拼接
Next
output.show(s4)

[此贴子已经被作者于2011-9-2 10:03:03编辑过]

--  作者：kevin
--  发布时间：2011/9/2 17:37:00
--

Dim s1 As String = getpy("北京")
Dim s2 As String
Dim ss() As String = s1.split(" ")
Dim textInfo As System.Globalization.TextInfo
textInfo = System.Threading.Thread.CurrentThread.CurrentCulture.TextInfo
For Each s1 In ss
    s2 = s2 & textInfo.ToTitleCase(s1)
Next
output.show(s2)

我需要：当“名称”列内容改变时，在“拼音”列显示拼音结果，代码应该如何修改呀

--  作者：狐狸爸爸
--  发布时间：2011/9/2 17:44:00
--

看这个：

下载信息  [文件大小：   下载次数： ]
点击浏览该文件:管理项目59.table

--  作者：zfwwlq
--  发布时间：2011/9/3 15:55:00
--

以下是引用狐狸爸爸在2011-9-2 17:44:00的发言：

看这个：

下载信息  [文件大小：292.0 KB  下载次数：6]

点击浏览该文件:管理项目59.table

狐他爸此法能否把简体弄成繁体

--  作者：狐狸爸爸
--  发布时间：2011/9/3 16:01:00
--

可以转换为繁体，这里有答案：

http://www.foxtable.com/help/topics/1345.htm

--  作者：zfwwlq
--  发布时间：2011/9/3 16:08:00
--

以下是引用狐狸爸爸在2011-9-3 16:01:00的发言：

可以转换为繁体，这里有答案：

http://www.foxtable.com/help/topics/1345.htm

谢谢!

我怎么就一直没有发现这个"大陆"呢!

--  作者：狐狸爸爸
--  发布时间：2011/9/3 16:17:00
--
其实帮助处处是宝，可不要错过了，建议重看两遍。