VB6如何把汉字转换成编码

比如：我爱编程论坛    的五笔编码为： q ep xyna tkgg ywx ffc

[此贴子已经被作者于2022-4-29 16:49编辑过]

做个字典查询吧。

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

都想要现成的，ctrl+c

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

五笔编码查询不是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

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

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
  

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