共11 条记录, 每页显示 10 条, 页签: [1] [2]

标题：请教，关于如何做“北京转换成BeiJing！！！

1楼

kevin 发表于：2011/9/2 1:03:00

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

2楼

blackzhu 发表于：2011/9/2 7:36:00

例如：

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

得到的结果为：zhong guo

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

得到的结果为：zg

3楼

狐狸爸爸 发表于：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)

4楼

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编辑过]

5楼

kevin 发表于：2011/9/2 17:37:00