编程使用dim bytData as byte dim bitData(7) as bytefor i=0 to 7 bitData(i)=((bytData /2^i) and &h01) next i
是这样吗? dim a as string a="12345678" dim b as string b=mid(a,3,1) 这样就是b="3",将a字符串的第三个取出来.Mid(string, start[, length])函数Mid 函数的语法具有下面的命名参数:部分 说明 string 必要参数。字符串表达式,从中返回字符。如果 string 包含 Null,将返回 Null。 start 必要参数。为 Long。string 中被取出部分的字符位置。如果 start 超过 string 的字符数,Mid 返回零长度字符串 ("")。 length 可选参数;为 Variant (Long)。要返回的字符数。如果省略或 length 超过文本的字符数(包括 start 处的字符),将返回字符串中从 start 到尾端的所有字符。
((a) and &h01)即可以得第1位 ((a) and &h02)即可以得第2位 ((a) and &h04)即可以得第3位 ((a) and &h08)即可以得第4位 ((a) and &h10)即可以得第5位 ((a) and &h20)即可以得第6位 ((a) and &h40)即可以得第7位 ((a) and &h80)即可以得第8位 利用位与实现,其中&HXX为十六进制编码
dim bitData(7) as bytefor i=0 to 7
bitData(i)=((bytData /2^i) and &h01)
next i
dim a as string
a="12345678"
dim b as string
b=mid(a,3,1)
这样就是b="3",将a字符串的第三个取出来.Mid(string, start[, length])函数Mid 函数的语法具有下面的命名参数:部分 说明
string 必要参数。字符串表达式,从中返回字符。如果 string 包含 Null,将返回 Null。
start 必要参数。为 Long。string 中被取出部分的字符位置。如果 start 超过 string 的字符数,Mid 返回零长度字符串 ("")。
length 可选参数;为 Variant (Long)。要返回的字符数。如果省略或 length 超过文本的字符数(包括 start 处的字符),将返回字符串中从 start 到尾端的所有字符。
((a) and &h02)即可以得第2位
((a) and &h04)即可以得第3位
((a) and &h08)即可以得第4位
((a) and &h10)即可以得第5位
((a) and &h20)即可以得第6位
((a) and &h40)即可以得第7位
((a) and &h80)即可以得第8位
利用位与实现,其中&HXX为十六进制编码