【VBA】16进制字符串转化为2进制字符串
来源:互联网 发布:程序员常用编辑器 编辑:程序博客网 时间:2024/06/05 10:26
Function Hex2Bin(TP As String) As String '处理连串的16进制转化为2进制
Dim TP2() As String
L = Len(TP)
ReDim TP2(1 To L)
Dim P As String
P = "" '初始化为空字符串
For i = 1 To L
TP2(i) = Mid(TP, i, 1)
TP2(i) = Hex2BinSingleByte(TP2(i))
P = P + TP2(i)
Next i
Dim TP2() As String
L = Len(TP)
ReDim TP2(1 To L)
Dim P As String
P = "" '初始化为空字符串
For i = 1 To L
TP2(i) = Mid(TP, i, 1)
TP2(i) = Hex2BinSingleByte(TP2(i))
P = P + TP2(i)
Next i
Hex2Bin = P
End Function
Function Hex2BinSingleByte(H As String) As String
H = UCase(H)
Dim B As String
Select Case H
Case "0"
B = "0000"
Case "1"
B = "0001"
Case "2"
B = "0010"
Case "3"
B = "0011"
Case "4"
B = "0100"
Case "5"
B = "0101"
Case "6"
B = "0110"
Case "7"
B = "0111"
Case "8"
B = "1000"
Case "9"
B = "1001"
Case "A"
B = "1010"
Case "B"
B = "1011"
Case "C"
B = "1100"
Case "D"
B = "1101"
Case "E"
B = "1110"
Case "F"
B = "1111"
End Select
Hex2BinSingleByte = B
End Function
- 【VBA】16进制字符串转化为2进制字符串
- 16进制字符串转化为数字
- 16进制字符串转化为颜色
- 二进制转化为16进制字符串
- unity 16位进制字符串转化为10进制字符串
- 将string字符串转化为16进制字符串
- 将16进制转化为时间字符串
- 20120820-[转]16进制字符串转化为10进制数
- 16进制字符串转化为10进制数
- 16进制字符串转化为浮点数
- java实现16进制字符串转化为long值
- 字节数组转化为16进制字符串
- 字节数组转化为16进制字符串输出
- JAVA byte数组转化为16进制字符串输出
- bash 把文本显示的16进制字符串转化为对应字符串
- 面试题: 十进制INT数字转化为16进制字符串、实现字符串和数字的相互转化
- 整数转化为任意n进制的字符串
- C++将十进制数字转化为X 进制的字符串
- Linux内核中ioremap映射的透彻理解
- IE6不支持min-height的解决办法
- 【VBA】单字节16进制转2进制
- 关于嵌入式系统学习的一点经验总结
- 读书笔记
- 【VBA】16进制字符串转化为2进制字符串
- 嵌入式编程中关于const,static,extern,volatile的用法
- 从网上读取图片在本地显示
- ADNROID/JAVA/SSH/Oracle+MySQl+SQLServer/jQuery/Ajax等等 优质学习资料免费下砸
- c++迭代器
- 程序人生--2009年(56)
- HTML 学习笔记(五)a:link……visited……hover……active……
- 浅思OC的语言的动态特性
- JavaScript巧解IE6与IE8兼容性问题