ykykjq 发表于 2013-10-27 10:48:02

vba或vbs 里面有没有类似于autoit binary函数？

autoit里面有个函数是binary（表达式）
那vba或vbs里面有没有这样的功能呢？

zzbtlc 发表于 2013-10-27 11:12:09

貌似没有吧

倚栏听风 发表于 2013-10-27 11:12:43

建议，遇到问题先百度，再搜索论坛，最后再发帖。
百度搜索VBS binary ，得到结果 http://www.jb51.net/article/7516.htm

kevinch 发表于 2013-10-27 11:39:57

vba里可以引用工作表函数
application.worksheetfunction.dec2bin()

ykykjq 发表于 2013-10-27 13:33:25

回复 4# kevinch
dec2bin是将十进制的数转为二进制数字，跟binary应该是不一样的。

ykykjq 发表于 2013-10-27 13:36:16

回复 3# 倚栏听风 Local $bBinary = Binary("0x00204060") ;$var 为一个二进制(binary)类型.
MsgBox(4096, "检查变量是否是 binary (二进制)类型", "如果是一个二进制类型变量则返回1: " & IsBinary($bBinary))binary函数的功能应该是把一个ox00000的字符串转为0x00000的二进值，所以是不一样的。

类似于吧字符串“12344”转化为数字：12344

kevinch 发表于 2013-10-27 15:47:35

如果你是想把表示二进制的字符串转换成对应的值，还有bin2dec，bin2oct，bin2hex，只是不知道你在纠结什么功能，没有这个功能应该都不是什么大问题啊

ykykjq 发表于 2013-10-28 20:59:21

找到了，虽然不明白什么原理。Function ReadBinary(FileName)
Dim Buf(), I
With CreateObject("ADODB.Stream")
    .Mode = 3: .Type = 1: .Open: .LoadFromFile FileName
    ReDim Buf(.Size - 1)
    For I = 0 To .Size - 1: Buf(I) = AscB(.Read(1)): Next
    .Close
End With
ReadBinary = Buf
End Function

ykykjq 发表于 2013-10-28 21:01:43

其实我要的功能是把一个图片转成二进制，放到vbs某个变量里，当vbs运行的时候释放图片出来。{:face (356):}

joyran 发表于 2013-10-28 22:56:59

{:face (404):}这个是什么啊！！！

chishingchan 发表于 2013-10-29 15:40:22

回复 9# ykykjq


    使用 basc64 编码解码就好！比你说的那种还要省空间。

ykykjq 发表于 2013-10-29 22:22:10

回复 11# chishingchan
base64？又一个新名词，开始好好学习了
页: [1]
查看完整版本: vba或vbs 里面有没有类似于autoit binary函数？