以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  将汉字翻译成拼音  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=12412)
--  作者：kevin
--  发布时间：2011/9/1 23:27:00
--  将汉字翻译成拼音
将汉字翻译成拼音，如：北京，翻译成  BeiJing
--  作者：程兴刚
--  发布时间：2011/9/1 23:49:00
--  
Output.show(getpy("北京",False))
--  作者：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,却不成功。不知道原因是出在什么地方。
--  作者：c
--  发布时间：2011/9/2 0:15:00
--  

GetPy

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

语法

GetPY(Value,Initial)

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

 

函数有说明的，如果你不想返回 首字母，可以设置成 false 即可
--  作者：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
--  作者：c
--  发布时间：2011/9/2 0:30:00
--  

也很简单：

 

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

 

替换下就好了！！
--  作者：kevin
--  发布时间：2011/9/2 0:34:00
--  
不明白如何替换。能否再写完整一点？
--  作者：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