找回密码
 加入
搜索
查看: 2760|回复: 11

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

  [复制链接]
发表于 2013-10-27 10:48:02 | 显示全部楼层 |阅读模式
autoit里面有个函数是binary(表达式)
那vba或vbs里面有没有这样的功能呢?
发表于 2013-10-27 11:12:09 | 显示全部楼层
貌似没有吧
发表于 2013-10-27 11:12:43 | 显示全部楼层
建议,遇到问题先百度,再搜索论坛,最后再发帖。
百度搜索  VBS binary ,得到结果 http://www.jb51.net/article/7516.htm
发表于 2013-10-27 11:39:57 | 显示全部楼层
vba里可以引用工作表函数
application.worksheetfunction.dec2bin()
 楼主| 发表于 2013-10-27 13:33:25 | 显示全部楼层
回复 4# kevinch
dec2bin是将十进制的数转为二进制数字,跟binary应该是不一样的。
 楼主| 发表于 2013-10-27 13:36:16 | 显示全部楼层
回复 3# 倚栏听风
Local $bBinary = Binary("0x00204060") ;$var 为一个二进制(binary)类型.
MsgBox(4096, "检查变量是否是 binary (二进制)类型", "如果是一个二进制类型变量则返回1: " & IsBinary($bBinary))
binary函数的功能应该是把一个ox00000的字符串转为0x00000的二进值,所以是不一样的。

类似于吧字符串“12344”  转化为数字:12344
发表于 2013-10-27 15:47:35 | 显示全部楼层
如果你是想把表示二进制的字符串转换成对应的值,还有bin2dec,bin2oct,bin2hex,只是不知道你在纠结什么功能,没有这个功能应该都不是什么大问题啊
 楼主| 发表于 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
 楼主| 发表于 2013-10-28 21:01:43 | 显示全部楼层
其实我要的功能是把一个图片转成二进制,放到vbs某个变量里,当vbs运行的时候释放图片出来。
发表于 2013-10-28 22:56:59 | 显示全部楼层
这个是什么啊!!!
发表于 2013-10-29 15:40:22 | 显示全部楼层
回复 9# ykykjq


    使用 basc64 编码解码就好!比你说的那种还要省空间。
 楼主| 发表于 2013-10-29 22:22:10 | 显示全部楼层
回复 11# chishingchan
base64?又一个新名词,开始好好学习了
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-12-24 08:14 , Processed in 0.085666 second(s), 23 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表