设为首页收藏本站
开启辅助访问 切换到窄版
搜索
第一问答网»论坛 › 中问网 › 问答 › VB 数据chr的转换

VB 数据chr的转换

[复制链接]
查看11 | 回复2 | 2008-5-17 11:51:46 | 显示全部楼层 |阅读模式
Dim S as stringS="59 E9 8B AD 51 6F 64 A1 ......."Dim AA=Split(S," ")For i=0 To Ubound(A)S=S & Chr(clng("&H" & A(I)))NextPrint S
回复

使用道具 举报

千问 | 2008-5-17 11:51:46 | 显示全部楼层
楼上的好拽啊 俺也刚学 可以用循环吧应该 很简单的
回复

使用道具 举报

千问 | 2008-5-17 11:51:46 | 显示全部楼层
Private Sub Command1_Click() Debug.Print getCode("59 E9 8B AD 51 6F 64 A1 ")End SubFunction getCode$(ByVal vStr$)
Dim vTemp$
vStr = Replace$(vStr, " ", "")
For i = 0 To Len(vStr) \ 2 - 1
vTemp = vTemp & Chr$("&H" & Mid$(vStr, i * 2 + 1, 2))
Next
getCode = vTempEnd Function
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

千问

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
回复楼主 返回列表
热门排行