求助守版!字符转换新问题

yangzh

想将文本框1中的所有汉字用汉字的拼音第一个字母替代，不知该如何做？其它字母和数字不变，只转换汉字。转换结果显示在文本框3中

x4keWWaz.rar (6.73 KB, 下载次数: 7)

2007-2-3 23:00 上传

点击文件名下载附件
求助!字符转换新问题

[此贴子已经被作者于2007-2-4 16:10:02编辑过]

c81

文本框呢？第一个字母还是声母？

可搜索守版主关于拼音的贴子，也可向孔版主咨询，他应该能快速解决这个问题。

yangzh

取第一个字母,详见附件,原来守版的一个例子为文档中选择的字符，不是TEXTBOX中的字符，移植后不知如何改。请赐教！

yangzh

帮个忙呀!跪谢了!

konggs

不要说跪，不要让人家看不起咱们好吗？

在我们的家搜了一下给你。

学会搜索，你会学到很多。

Private Sub CommandButton1_Click()
    TextBox3.Text = py(TextBox1.Text)
End Sub
Function py(ByVal R As String) As String
Const hanzi = "啊芭擦搭蛾发噶哈击喀垃妈拿哦啪期然撒塌挖昔压匝座ABCDEFGHJKLMNOPQRSTWXYZZ"
Dim I As Integer, j As Integer, temp As String
    For I = 1 To Len(R)
        temp = Mid(R, I, 1)
        If temp <> " " And Asc(temp) < 0 Then
           If temp = "座" Then temp = "Z"
            For j = 1 To 23
                If Asc(temp) >= Asc(Mid(hanzi, j, 1)) And Asc(temp) < Asc(Mid(hanzi, j + 1, 1)) Then temp = Mid(hanzi, 24 + j, 1)
            Next
            py = py & temp
        Else
            py = py & temp
        End If
    Next
py = LCase(py)
End Function

cxz008

男儿膝下有黄金，不跪天地只跪真！

佩服这种追求真理的劲头！

yangzh

呵呵,楼上的说得对，谢谢理解！

版主的代码试用了一下，加了一句

 If temp = "酯" Then temp = "Z"

可能代码中不能包括所有汉字，不过代码好用，只要加一些判断即可（不知这样理解对不？）

看来我是要加强搜索训练，可能是关键字选得不好，再加上依赖性太强。得改改学习态度了。

再次谢谢KONGGS版主！ [em23][em23][em23]

 

QUOTE:

以下是引用konggs在2007-2-4 19:23:56的发言：

不要说跪，不要让人家看不起咱们好吗？

在我们的家搜了一下给你。

学会搜索，你会学到很多。

Private Sub CommandButton1_Click()
    TextBox3.Text = py(TextBox1.Text)
End Sub
Function py(ByVal R As String) As String
Const hanzi = "啊芭擦搭蛾发噶哈击喀垃妈拿哦啪期然撒塌挖昔压匝座ABCDEFGHJKLMNOPQRSTWXYZZ"
Dim I As Integer, j As Integer, temp As String
    For I = 1 To Len(R)
        temp = Mid(R, I, 1)
        If temp <> " " And Asc(temp) < 0 Then
           If temp = "座" Then temp = "Z"
            For j = 1 To 23
                If Asc(temp) >= Asc(Mid(hanzi, j, 1)) And Asc(temp) < Asc(Mid(hanzi, j + 1, 1)) Then temp = Mid(hanzi, 24 + j, 1)
            Next
            py = py & temp
        Else
            py = py & temp
        End If
    Next
py = LCase(py)
End Function

[此贴子已经被作者于2007-2-5 15:03:11编辑过]