【VBA对二进制数据文件的处理】

小fisher

如果要凭空创建一个二进制数据文件，直接使用上述Open语句会出错，可以用以下两种预处理方法：
    1、手工创建一个目标文件，就是生成一个空TXT文档，然后随意改下扩展名就行；
    2、使用FileSystemObject来创建一个目标文件，也是空的。
然后再使用上述Open等一系列语句来写入内容。

我一般是用open for output来创建空白文件，代码是：

1. fNo = FreeFile
   
2. Open "X:\newfile.ext" For Output As fNo  
   
3. Close fNo   

复制代码

需要注意的是，这个代码不会检查是否已经存在同名的文件，如果该文件已存在且有内容，通过上述代码打开并关闭后，该文件所有内容会被清空，文件长度变为0字节，所以必要时应先检查文件是否存在。

大灰狼1976

小fisher 发表于 2024-6-12 09:00
我一般是用open for output来创建空白文件，代码是：

需要注意的是，这个代码不会检查是否已经存在同 ...

感谢小fisher老师指点，今后改进！

大灰狼1976

对10楼实战二的补充说明：
由于家里的电脑不太好，打字很累，所以忽略了很多内容，这里补上。
1、有些软件里面的图片素材，实际上就是把一个完整的图片文件数据整合进去了，只要根据各种图片的文件头和文件尾特征，在二进制数据里面找到相应地址就可以处理了，可导出图片、也可替换图片；
2、有些图片没有文件尾的概念，而是在文件头里面记录了文件大小，同样可以确定数据范围；
3、此示例内的对象软件，包含了对几种图片格式的支持，替换时可不按照原来的图片类型，前提是数据大小不要超过原来的数据范围（比原来的数据范围小没关系，未覆盖的数据不会被识别）
4、不适用所有软件，但作为尝试，过程还是比较有趣的

effort火星

大佬，open for binary 能否写入 mp3 文件？

大灰狼1976

effort火星 发表于 2024-10-10 09:53
大佬，open for binary 能否写入 mp3 文件？

什么都可以写进去，但你URL获得的数据，先和直接下载mp3文件做个二进制对比，看看是不是相同。

qiys

大神就是大神

aman1516

搬个小板凳
Good good study, day day up