VB6如何把汉字转换成五笔编码 - 编程论坛

#2

apull2022-04-29 21:29

做个字典查询吧。

#3

独木星空2022-05-02 11:40

回复 2楼 apull

一般人是没有那份精神和毅力，能沉下心来做事有几人？

#4

apull2022-05-02 12:21

回复 3楼独木星空

都想要现成的，ctrl+c

#5

cwa99582022-05-02 17:56

肯定有现成的文件，你只要找就会找到的。
百度一下就有

#6

xiaofisher2022-05-06 16:07

五笔编码查询不是VB内置的功能，也没有对应的Windows API，可以从百度汉语网页上查询，也可以网抓下来做到本地数据库中

程序代码：

Private Sub Form_Load()
    Text1 = "我爱编程论坛"
End Sub

Private Sub Command1_Click()
    For i = 1 To Len(Text1)
        Debug.Print Mid(Text1, i, 1), GetWubi(Mid(Text1, i, 1))
    Next
End Sub

Function GetWubi(s As String) As String
    On Error Resume Next
    Dim HttpRequest 'As WinHttpRequest
    Dim HtmlDoc 'As MSHTML.HTMLDocument
    Dim htmlLi
    Set HttpRequest = CreateObject("WinHttp.WinHttpRequest.5.1")
    Set HtmlDoc = CreateObject("htmlfile")
    With HttpRequest
        .open "Get", "https://hanyu.baidu.com/zici/s?wd=" & Left(s, 1)
        .send
        HtmlDoc.body.innerHTML = .responseText
    End With
    Set htmlLi = HtmlDoc.body.getElementsByTagName("li")
    For i = 0 To htmlLi.length - 1
        If htmlLi(i).id = "wubi" Then
            GetWubi = htmlLi(i).getElementsByTagName("span")(0).innerText
            Exit Function
        End If
    Next
End Function

#7

cuituo2022-05-07 11:35

稍微一改，有点慢，还是做库吧

Private Sub Command1_Click()
    RichTextBox1.Text = ""

    For i = 1 To Len(Text1)

        RichTextBox1.Text = RichTextBox1.Text + Mid(Text1, i, 1) + GetWubi(Mid(Text1, i, 1)) + Chr(13)

    Next
End Sub

只有本站会员才能查看附件，请登录

#8

chenyucheng2022-07-10 09:40

自己找个五笔码表。
比如这样：https://bbs.bccn.net/show.php?action=showfile&fid=6&id=106294