您的位置：程序门 -> vb -> 基础类

生成二进制文件

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

生成二进制文件

发表于：2007-12-17 20:16:11 楼主

怎样生成二进制文件并把若干个数写到二进制文件中？
比如有一字符串"aa bb cc dd ee ff"写到二进制文件中．

发表于：2007-12-17 23:48:381楼得分:0

先放到數組中，一次輸出。

dim b（5) as byte
b（0) = &haa
……

open "my.dat" for binary as #1
put #1,,b
close #1

发表于：2007-12-18 01:47:212楼得分:0

假设你的16进制数统一表示为 xx形式比如小于a0的数则表示为01~0f

private sub command1_click（)
dim s as string, s2 as string, b（) as byte
dim i as long, j as long, lens as long
s = "aa bb cc dd ee ff"
s2 = replace（replace（s, " ", ""), vbcrlf, "")
lens = len（s2)
redim b（lens / 2 - 1)
i = 0
j = 1
do while j < lens
b（i) = val（"&h" & mid（s2, j, 2))
i = i + 1
j = j + 2
loop

open "e:\my.dat" for binary as #1
put #1, , b
close #1
end sub

发表于：2007-12-18 01:48:343楼得分:0

忘记论坛的空格问题

vbscript code

private sub command1_click（)
  dim s as string, s2 as string, b（) as byte
  dim i as long, j as long, lens as long
  s = "aa   bb   cc   dd   ee   ff"
  s2 = replace（replace（s, " ", ""), vbcrlf, "")
  lens = len（s2)
  redim b（lens / 2 - 1)
  i = 0
  j = 1
  do while j < lens
    b（i) = val（"&h" & mid（s2, j, 2))
    i = i + 1
    j = j + 2
  loop
  
  open "e:\my.dat" for binary as #1
  put #1, , b
  close #1
end sub

下一篇：请教：vb怎样用按键终止子程序中的死循环
上一篇：无法为更新行集定位，一些值可能已在最后读取时改变???

其他资讯