如何编写代码能够使二进制方式写入的数据用记事本读出？

作者：绿色风分类：时间：2022-08-17 浏览：122

楼主 amulee	Q：如何编写代码能够使二进制方式写入的数据用记事本读出？ A：当采用二进制方式打开文件并写入数据后，其内容都是二进制数据存储模式。此时若写入英文字符或数字时，是无法再用记事本程度正确读出该文件的。原因在于记事本打开时按照ASC的方式读取字符（中文除外）。所以可以将数据转换为ASC码，然后再用二进制方式写入后，则可以读取该写入的内容。参考代码如下： Sub Test() Dim FName As String Dim arr() As Byte Dim Temp As String '设定写入内容 Temp = "123456789ABCDEFRG" ReDim arr(1 To Len(Temp)) '处理数组，将字符转换为ASC码存储 For i = 1 To Len(Temp) arr(i) = Asc(Mid(Temp, i, 1)) Next i '文件名 FName = ThisWorkbook.Path & "\Test.txt" '获得一个文件号 FS = FreeFile '打开文件 Open FName For Binary Access Write As #FS Put #FS, , arr Close #FS End Sub 其实文件中存储的实质都是二进制数据，不同的程序按照不同的方式读取文件后能够得到不同的内容。 WriteBinaryNumber.rar
2楼 wise	学习阿木的做法
3楼水星钓鱼	学习

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表