十进制转换为二进制

清泉石上流shm

香川群子 发表于 2012-7-10 05:54
写入只能按照字节，一个字节一个字节地改。 不能按照 0 / 1 这样数位来改。

计算机不是按照1个数位单位来 ...

嗯，就是按照一个字节一个字节写入，只要写入时加以处理，将不需要变动的位依然不变，需要变动的位通过计算等方法写入！比如改变第5位，找到第一个字节二进制：00110100，现在要在第5位写入0，则写入00100100这样就达到目的了！由于不知道怎么实现所以请老师帮忙！！

香川群子

你要我帮你，难道就不需要上附件么？

清泉石上流shm

香川群子 发表于 2012-7-10 21:02
你要我帮你，难道就不需要上附件么？

请看附件，{:soso_e100:}

香川群子

需要改动前二进制文件的附件。
最好还有改动成功结果的附件作比较。

清泉石上流shm

香川群子 发表于 2012-7-11 16:50
需要改动前二进制文件的附件。
最好还有改动成功结果的附件作比较。

附件已经重新上传，EXCEL中有模拟需要的效果，请查看，谢谢您的帮助，您辛苦了！！

清泉石上流shm

香川群子 发表于 2012-7-11 16:50
需要改动前二进制文件的附件。
最好还有改动成功结果的附件作比较。

亲爱的裙子老师，附件已经上传在第15楼，里面有模拟前后的数据情况！

香川群子

代码写好了：

1. Function DBin(n, Optional l = 8)
   
2.     If l = 0 Then
   
3.         l = Len(n)
   
4.         For i = 1 To l
   
5.             DBin = DBin + Mid(n, i, 1) * 2 ^ (l - i)
   
6.         Next
   
7.     Else
   
8.         Do
   
9.             s = n Mod 2 & s
   
10.             n = n \ 2
    
11.         Loop While n
    
12.         If Len(s) < l Then DBin = Right(String(l, "0") & s, l) Else DBin = s
    
13.     End If
    
14. End Function
    
15. '首先是自定义函数的升级：默认十进制转为二进制（8位），升级为当第2参数=0时，再把二进制转换为十进制数。
    
16. 
    
17. Sub BinReWrite() '二进制位值改写（1→0,0→1）
    
18.     Dim B As Byte
    
19.    
    
20.     Open ThisWorkbook.Path & "\Y.dat" For Binary As #1 '打开文件
    
21.    
    
22.     For A = 1 To 40 '可批量循环处理，举例为处理第1-40个数位
    
23.    
    
24.         i = (A - 1) \ 8      '计算该数位对应的字节数序号
    
25.         j = A - i * 8         '计算该数位在该字节中的位置
    
26.         Get #1, i + 1, B   '从文件中获取含该数位的整个字节
    
27.         t = DBin(B)         '用自定义函数转换该字节为二进制结果
    
28.         
    
29.         If Mid(t, j, 1) = 0 Then '检查该数位的二进制值
    
30.             Mid(t, j, 1) = 1        '是0则改写转换为1
    
31.         Else
    
32.             Mid(t, j, 1) = 0        '是1则改写转换为0
    
33.         End If
    
34.         
    
35.         'Mid(t, j, 1) = C           '或者如果不论该数位对应二进制结果是0还是1，一律改写为=C时，直接用这一句。
    
36.       
    
37.         B = DBin(t, 0)             '改写完成后的二进制数，用自定义函数改回十进制数值的 新字节内容。
    
38.         Put #1, i + 1, B                 '把结果写入文件。（置换原来的字节）
    
39.    
    
40.     Next                               '整个循环结束。
    
41.    
    
42.     Close #1                          '关闭文件
    
43.    
    
44. End Sub

复制代码

香川群子

附件中，每次先按下改写按钮，然后再按读取按钮确认对比。

清泉石上流shm

香川群子 发表于 2012-7-13 22:51
代码写好了：

裙子老师，太感谢你了，不仅帮我做了，还怕我看不懂加了注释，感动中~~~，谢谢！！代码很强大，我学习下~

walle666

学习了，谢谢