标题：将汉字翻译成拼音

1楼

kevin 发表于：2011/9/1 23:27:00

将汉字翻译成拼音，如：北京，翻译成 BeiJing

2楼

程兴刚 发表于：2011/9/1 23:49:00

Output.show(getpy("北京",False))

3楼

kevin 发表于：2011/9/2 0:12:00

Dim py As DataRow = e.DataRow
If e.DataCol.Name = "简称" Then
    If py.IsNull("简称") Then
        py("简码") = Nothing
    Else
        py("简码") = getpy(py("简称"),True)
    End If
End If

以上代码是将汉字转换成拼音的首母如：北京＝BJ 而我希望得到的效果是：BeiJing

我试着将py 改成getpy,却不成功。不知道原因是出在什么地方。

4楼

c 发表于：2011/9/2 0:15:00

GetPy

将指定汉字转换为拼音格式。

语法

GetPY(Value,Initial)

Value：要转换的拼音。
Initial: 可选参数，如果设为True，返回拼音缩写(由首字母组成)。

函数有说明的，如果你不想返回首字母，可以设置成 false 即可

5楼

kevin 发表于：2011/9/2 0:16: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)－－－－我将原先的True改成Falsh,可以正常显示如：北京＝＝bei jing
    End If
End If

可是我希望得到的效果是：BeiJing

6楼

c 发表于：2011/9/2 0:30:00

也很简单：

str= getpy(py("省洲"),False)
py("Province") =str.Replace(" ","")

替换下就好了！！

7楼

kevin 发表于：2011/9/2 0:34:00

不明白如何替换。能否再写完整一点？

8楼

czy 发表于：2011/9/2 0:47: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).Replace(" ","") '----我将原先的True改成Falsh,可以正常显示如:北京==bei jing
    End If
End If

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