| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 664 人关注过本帖
标题:VB6如何把汉字转换成五笔编码
只看楼主 加入收藏
yuma
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:银河系
等 级:版主
威 望:27
帖 子:1478
专家分:2297
注 册:2009-12-22
结帖率:88.1%
收藏
 问题点数:0 回复次数:6 
VB6如何把汉字转换成五笔编码
VB6如何把汉字转换成编码

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

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

搜索更多相关主题的帖子: 编码 汉字 VB6 转换 编程论坛 
2022-04-29 16:19
apull
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:三体星系
等 级:版主
威 望:115
帖 子:1098
专家分:6408
注 册:2010-3-16
收藏
得分:0 
做个字典查询吧。
2022-04-29 21:29
独木星空
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:河北省曲阳县
等 级:版主
威 望:23
帖 子:490
专家分:406
注 册:2016-6-29
收藏
得分:0 
回复 2楼 apull
一般人是没有那份精神和毅力,能沉下心来做事有几人?

素数问题的解决是我学习编程永恒的动力。
2022-05-02 11:40
apull
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:三体星系
等 级:版主
威 望:115
帖 子:1098
专家分:6408
注 册:2010-3-16
收藏
得分:0 
回复 3楼 独木星空
都想要现成的,ctrl+c
2022-05-02 12:21
cwa9958
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:40
帖 子:188
专家分:1036
注 册:2006-6-25
收藏
得分:0 
肯定有现成的文件,你只要找就会找到的。
百度一下就有
2022-05-02 17:56
xiaofisher
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2022-4-21
收藏
得分:0 
五笔编码查询不是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
2022-05-06 16:07
cuituo
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2008-6-21
收藏
得分:0 
稍微一改,有点慢,还是做库吧

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
图片附件: 游客没有浏览图片的权限,请 登录注册
  
2022-05-07 11:35
快速回复:VB6如何把汉字转换成五笔编码
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.029940 second(s), 9 queries.
Copyright©2004-2022, BCCN.NET, All Rights Reserved