VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 2908|回复: 9

[求助] 字符串(包含中英文)怎么转为字节数组?

[复制链接]
发表于 2018-4-10 23:58:07 | 显示全部楼层 |阅读模式
str="中国"

结果输出的数组为:
dim res(3) as byte
res(0) = &H4E
res(1) = &H2D
res(2) = &H56
res(3) = &HFD

接收机必须发送这样的才可以,这个该怎么办?求助大牛。。。。给写个函数,谢谢了
发表于 2018-4-11 19:37:36 | 显示全部楼层

1 str 是VB保留字,在此做函数用, str字串改为astc
2 VB 的十六进制是字串, VB的Byte 不是字串, res(3)要定义为 String

2018-04-11_191349.jpg
回复 支持 反对

使用道具 举报

发表于 2018-4-11 19:38:37 | 显示全部楼层
Option Explicit

Private Sub Form_Load()
    Dim strc As String
    Dim i As Long
    Dim res(3) As String * 4
    Dim a As String
    strc = "中国"
    For i = 1 To Len(strc)
        a = Hex((str(AscW(Mid(strc, i, 1)))))
        res(i - 1) = "&H" & Mid(a, 1, 2)
        res(i) = "&H" & Mid(a, 3)
        Print res(i - 1)
        Print res(i)
    Next i
End Sub
回复 支持 反对

使用道具 举报

 楼主| 发表于 2018-4-11 20:03:51 | 显示全部楼层
ymismy 发表于 2018-4-11 19:38
Option Explicit

Private Sub Form_Load()

VBGOOD大牛好人高手真多,真心谢过,祝您开心
回复 支持 反对

使用道具 举报

 楼主| 发表于 2018-4-11 20:07:33 | 显示全部楼层
ymismy 发表于 2018-4-11 19:38
Option Explicit

Private Sub Form_Load()

您好,感谢您的回答,如果是多个文字就不行了吗?
回复 支持 反对

使用道具 举报

发表于 2018-4-11 20:28:20 | 显示全部楼层
多个文字 改变 strc 长度及增加 res()  的下标
回复 支持 反对

使用道具 举报

 楼主| 发表于 2018-4-11 20:35:10 | 显示全部楼层
ymismy 发表于 2018-4-11 20:28
多个文字 改变 strc 长度及增加 res()  的下标

本人很菜,能否直接修改个,麻烦您了
回复 支持 反对

使用道具 举报

发表于 2018-4-14 18:23:27 | 显示全部楼层
Option Explicit

Private Sub Form_Load()
    Dim strc As String
    Dim i As Long
    Dim res() As String * 4
    Dim a As String
    strc = "中华人民共和国"     '这里写字符串
    ReDim res(Len(strc))        '定义数组下标大小
    For i = 1 To Len(strc)
        a = Hex((Str(AscW(Mid(strc, i, 1)))))
        res(i - 1) = "&H" & Mid(a, 1, 2)
        res(i) = "&H" & Mid(a, 3)
        Print res(i - 1)
        Print res(i)
    Next i
End Sub
回复 支持 反对

使用道具 举报

 楼主| 发表于 2018-4-15 00:17:49 | 显示全部楼层
ymismy 发表于 2018-4-14 18:23
Option Explicit

Private Sub Form_Load()

十分感谢。。。。。。
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2021-12-4 22:12

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表