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

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

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运行的时候释放图片出来。

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

这个是什么啊！！！

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

回复 9# ykykjq

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

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

回复 11# chishingchan
base64？又一个新名词，开始好好学习了

		自动登录	找回密码
密码			加入

[AU3基础] vba或vbs 里面有没有类似于autoit binary函数？

相关帖子