資料讀寫：Binary模式

最新推荐文章于 2021-01-27 12:10:53 发布
最新推荐文章于 2021-01-27 12:10:53 发布
阅读量81 收藏
点赞数
原文链接：http://www.cnblogs.com/iswszheng/archive/2009/09/17/1568554.html
版权
●在高階的程式語言，把資料寫入檔案或是從檔案讀出資料的這個部份，可以說是很難理解，因為資料寫入檔案後，我們無法從外觀上去判別有什麼變化，大家也只能靠熟練，小瓜瓜也盡量說清處、講明白。

●前面說到Input、Append與Output模式，基本上它們是對純文書檔做存取的動作，用Write寫入、用Input讀取，而Binary則是把資料以0、1組成位元組的方式寫入檔案，而且存取的方式與Output、Input、Append不一樣。
●在Binary模式裡，Put是寫入、Get是讀出，我們先用Put來試著把資料寫入，Put #檔案編號,第幾筆,資料：

ExpandedBlockStart.gif ContractedBlock.gif Private   Sub Command1_Click() Sub Command1_Click() 
  Open "G:\test1.txt" For Binary As #1 
    Put #1, , 1 
    Put #1, , 2 
    Put #1, , 3 
    Put #1, , 4 
    Put #1, , 5 
    Put #1, , 6 
    Put #1, , 7 
    Put #1, , 8 
    Put #1, , 9 
    Put #1, , 0 
  Close #1 
End Sub

●然後用記事本開起這個檔案，結果內容是一黑一白一黑一白......，因為1,2,3,4,5,6,7,8,9,0等變成了電腦的二進數，這些變成電腦二進數再轉成ASCII後，變成Windows的非列印字元，所以看不到文字。

 

●然後我們用純文字寫入：

ExpandedBlockStart.gif ContractedBlock.gif Private   Sub Command1_Click() Sub Command1_Click() 
  Open "G:\test2.txt" For Binary As #1 
    Put #1, , "1" 
    Put #1, , "2" 
    Put #1, , "3" 
    Put #1, , "4" 
    Put #1, , "5" 
    Put #1, , "6" 
    Put #1, , "7" 
    Put #1, , "8" 
    Put #1, , "9" 
    Put #1, , "0" 
  Close #1 
End Sub
●然後用記事本開起這個檔案，結果內容是1234567890，因為這些數轉二進制後再轉回ASCII剛好是1234567890。

 

 ●然後利用Get來讀檔：

ExpandedBlockStart.gif ContractedBlock.gif Private   Sub Command1_Clcik() Sub Command1_Clcik() 
Dim A As Integer 
Open "G:\test1.txt" For Binary As #1 
  Do Until EOF(1) 
    Get #1, , A 
    Print A 
  Loop 
Close #1 
End Sub
●結果印出1 2 3 4 5 6 7 8 9 0

 

●然後利用Get來讀檔：

ExpandedBlockStart.gif ContractedBlock.gif Private   Sub Command1_Clcik() Sub Command1_Clcik() 
Dim A As String * 1 
Open "G:\test2.txt" For Binary As #1 
  Do Until EOF(1) 
    Get #1, , A 
    Print A 
  Loop 
Close #1 
End Sub
●結果印出1 2 3 4 5 6 7 8 ■

 

 
××××
●我們使用文字模式時，每一筆資料VB都會用Chr(13)來幫我們做分隔，我們用VB讀取資料時，VB也會自動分成一筆一筆的，而二進制的檔案因會把資料轉成01組成的表示資料，且每一筆資料與資料間並沒有做分格處理，因此我們在使用二進制存檔時須記得檔案資料存放的模式，再依此模式讀回資料，例：

ExpandedBlockStart.gif ContractedBlock.gif Private   Sub Command1_Click() Sub Command1_Click() 
Open "G:\test.txt" For Binary As #1 
  Put #1, , "abcdefg" 
  Close #1 
End Sub


●寫入字串abcdefg後

ExpandedBlockStart.gif ContractedBlock.gif Private   Sub Command2_Click() Sub Command2_Click() 
Dim a As Integer 
Open "G:\test.txt" For Binary As #1 
  Get #1, , a 
  Close #1 
MsgBox a 
End Sub

●用整數模式讀出的資料變成了25185，也就是( Hex(Asc("a")) & Hex(Asc("b")))16 = 25185，因為我們光用記事本開啟二進制寫入的檔案無法得知某個資料是字元型態？整數型態？或是其它型態的資料？加上如果混合了很多不同型態的資料於二進制檔後，讓其他人就更難猜測、更難解讀，資料的保秘性就更為提高了。

●假設我們要把銀行內的存款儲存在電腦裡，為了怕其他人入侵電腦而解讀，我們可以故佈疑陣：

ExpandedBlockStart.gif ContractedBlock.gif Private   Sub Command1_Click() Sub Command1_Click() 
   Randomize Timer 
   Dim A As Byte 
   Dim B As Integer 
   Dim C As Double 
   Dim Bank As Single 
   A = Int(Rnd * 100) 
   B = Int(Rnd * 32767) - 16384 
   C = Rnd * 50000 
   Bank = 200000.5 
   Open "G:\test.txt" For Binary As #1 
      Put #1, , A 
      Put #1, , B 
      Put #1, , Bank 
      Put #1, , C 
   Close #1 
End Sub


●嘿嘿，我們直接用記事本將G:\test.txt檔案開啟後，結果是一堆看不懂的資料，如果沒看到上一段的程式碼，你須花一段時間來猜出這個檔案由那幾個幾種的資料來組成，我們必需按照原來的資料模式讀回資料，資料才會正確：

ExpandedBlockStart.gif ContractedBlock.gif Private   Sub Command2_Click() Sub Command2_Click() 
   Dim A As Byte 
   Dim B As Integer 
   Dim C As Double 
   Dim Bank As Single 
   Open "G:\test.txt" For Binary As #1 
      Get #1, , A 
      Get #1, , B 
      Get #1, , Bank 
      Get #1, , C 
   Close #1 
   MsgBox Bank 
End Sub


●讀回資料是200000.5，正確。第一章裡說過，Byte佔一個位元組、整數佔兩個位元組、單精度佔四個位元組、雙精度則佔八個位元組，因此1 + 2 + 4 + 8 = 15，其中某一段4個位元組才是正確的資料，這個就必須讓別人去猜了。
●後來讀取時按原資料型態讀取，先用Byte讀取，把第一個垃圾資訊槓掉，再用Integer讀取，再把第二個與第三個資訊槓掉，再用Single讀入第四至七個資訊，然後VB將之轉回Single型態，資料就讀出來了。
●我們把讀取順序換一下

ExpandedBlockStart.gif ContractedBlock.gif Private   Sub Command2_Click() Sub Command2_Click() 
   Dim A As Byte 
   Dim B As Integer 
   Dim C As Double 
   Dim Bank As Single 
   Open "G:\test.txt" For Binary As #1 
      Get #1, , A 
      Get #1, , Bank 
      Get #1, , C 
      Get #1, , B 
   Close #1 
   MsgBox Bank 
End Sub


●結果把第二至第五個資訊當成Single讀入，結果資料的值不正確。

●對於多筆資料時，我們也可以依此法並配合EOF()來讀檔：

ExpandedBlockStart.gif ContractedBlock.gif Private   Sub Command1_Click() Sub Command1_Click() 
   Randomize Timer 
   Dim A As Byte 
   Dim B As Integer 
   Dim C As Double 
   Dim Bank As Single 
   Open "G:\test.txt" For Binary As #1 
      A = Int(Rnd * 100) 
      B = Int(Rnd * 32767) - 16384 
      C = Rnd * 50000 
      Bank = 200000 
      Put #1, , A 
      Put #1, , B 
      Put #1, , Bank 
      Put #1, , C 

      A = Int(Rnd * 100) 
      B = Int(Rnd * 32767) - 16384 
      C = Rnd * 50000 
      Bank = 250000 
      Put #1, , A 
      Put #1, , B 
      Put #1, , Bank 
      Put #1, , C 

      A = Int(Rnd * 100) 
      B = Int(Rnd * 32767) - 16384 
      C = Rnd * 50000 
      Bank = 235500 
      Put #1, , A 
      Put #1, , B 
      Put #1, , Bank 
      Put #1, , C 
   Close #1 
End Sub


●一樣用記事本開啟G:\Test.txt，結果內容還是看不懂，但我們是鈴人，知道當初的繫鈴法，我們再用VB來解鈴：

ExpandedBlockStart.gif ContractedBlock.gif Private   Sub Command2_Click() Sub Command2_Click() 
   Dim A As Byte 
   Dim B As Integer 
   Dim C As Double 
   Dim Bank As Single 
   Open "G:\test.txt" For Binary As #1 
   Do 
      Get #1, , A 
      Get #1, , B 
      Get #1, , Bank 
      Get #1, , C 
      MsgBox Bank 
   Loop Until EOF(1) 
   Close #1 
End Sub


●結果依依讀出的資料正確，但多了一筆0這個資料，因此在運用時，這筆資料必須省略：

ExpandedBlockStart.gif ContractedBlock.gif Private   Sub Command2_Click() Sub Command2_Click() 
   Dim A As Byte 
   Dim B As Integer 
   Dim C As Double 
   Dim Bank As Single 
   Open "G:\test.txt" For Binary As #1 
   Do 
      Get #1, , A 
      Get #1, , B 
      Get #1, , Bank 
      Get #1, , C 
      If Not EOF(1) Then MsgBox Bank 
   Loop Until EOF(1) 
   Close #1 
End Sub

 

ExpandedBlockStart.gif ContractedBlock.gif Private   Sub Command1_Click() Sub Command1_Click() 

Randomize Timer 
Dim A As Byte '長度為1Byte 
Dim B As Integer '長度為2Byte 
Dim C As Double '長度為8Byte 
Dim Bank As Single '長度為4Byte 
Open "G:\test.txt" For Binary As #1 
A = Int(Rnd * 100) 
B = Int(Rnd * 32767) - 16384 
C = Rnd * 50000 
Bank = 200000 
Put #1, , A '寫入第1Byte的位址 
Put #1, , B '寫入第2~3Byte的位址 
Put #1, , Bank '寫入第4~7Byte的位址 
Put #1, , C '寫入第8~15Byte的位址 

A = Int(Rnd * 100) 
B = Int(Rnd * 32767) - 16384 
C = Rnd * 50000 
Bank = 250000 
Put #1, , A '寫入第16Byte的位址 
Put #1, , B '寫入第17~18Byte的位址 
Put #1, , Bank '寫入第19~22Byte的位址 
Put #1, , C '寫入第23~30Byte的位址 

A = Int(Rnd * 100) 
B = Int(Rnd * 32767) - 16384 
C = Rnd * 50000 
Bank = 235500 
Put #1, , A '寫入第31Byte的位址 
Put #1, , B '寫入第32~33Byte的位址 
Put #1, , Bank '寫入第34~37Byte的位址 
Put #1, , C '寫入第38~45Byte的位址 
Close #1 
End Sub

●二進制檔是以一個Byte做為一個資料的當位，當我們寫入Integer，VB會自動轉成兩個Byte的資料，因此上式中，我們共存入45個1Byte的資料。

●我們可以直接讀取某個Byte的資料，我們資到我們的資料是在每一筆的第四個Byte開始讀，也就是第4、19、34個Byte位置為我們正確資料的地方，Get #檔案編號,第幾個Byte位址,資料變數：

ExpandedBlockStart.gif ContractedBlock.gif Private   Sub Command2_Click() Sub Command2_Click() 
   Dim N As Byte 
   Dim Bank As Single 
   Open "G:\test.txt" For Binary As #1 
   Do 
      Get #1, N * 15 + 4, Bank 
      If Not EOF(1) Then MsgBox Bank 
      N = N + 1 
   Loop Until EOF(1) 
   Close #1 
End Sub


●結果第二課的最後一個式子被減化了不少，資料也正確。

●二進制檔還有一個好處，它允許我們直接改寫第幾個Byte的資料，這個純文書檔就做不到了，假設G:\Test.txt這個檔案第二筆的金額錯誤，要改成35萬，用法是：Put #檔案編號,第幾個Byte位址,變數。

ExpandedBlockStart.gif ContractedBlock.gif Private   Sub Command1_Click() Sub Command1_Click() 
   Dim Bank As Single 
   Open "G:\test.txt" For Binary As #1 
      Bank = 350000 
      Put #1, 19, Bank 
   Close #1 
End Sub

 

转载于:https://www.cnblogs.com/iswszheng/archive/2009/09/17/1568554.html

weixin_33726318
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
Binary二进制文件读写方法
02-17
在编程领域，二进制（Binary）文件读写是一种高效且常见的操作，特别是在处理大量数据或需要最小化存储空间的情况下。本篇文章将深入探讨使用C#语言进行二进制文件读写的原理、方法以及相关实践。 一、二进制文件的...
FTP 两种传输模式 Binary 和 ASCII 的区别
liaowenxiong的博客
04-08 3735
文章目录区别原理分析建议常规作法习惯作法 区别 ASCII 模式和 Binary 模式的区别是换行符的处理，Binary 模式不对数据进行任何处理，ASCII 模式将换行符转换为目标主机操作系统的换行符，换行符号在Unix下是\n(0A)，Windows下是\r\n(0D0A)，Mac下是\r(0D)。 原理分析 当在一个 Windows 操作系统上用 ASCII 方式从 Unix 服务器上下载文件时，无论是文本文件还是二进制文件（字节码文件/可执行文件/压缩文件等），都会进行检测和转换：每检测到一个 0A
SSH使用注意事项
河马的BLOG
10-14 1494
SSH ASCII bin
关于FTP的ASCII模式和Binary模式
裂帛一剑
08-17 3540
关于FTP的ASCII模式和Binary模式     　　ASCII模式和Binary模式的区别是回车换行的处理，Binary模式不对数据进行任何处理，ASCII模式将回车换行转换为本机的回车字符，比如：UNIX下是\n,Windows下是\r\n，Mac下是\r。   　　ASCII模式下会转换文件，不能说是不同系统对回车换行解释不同，而是不同的系统有不同的行结束符。UNIX系
ASCII 和BINARY模式
WDTSW的博客
03-25 4400
1、ASCII传输方式 假定我们正在拷贝的文件包含的简单ASCII码文本，如果在远程机器上运行的不是UNIX，当文件传输时ftp通常会自动地调整文件的内容以便于把文件解释成另外那台计算机存储文本文件的格式。 但是也有这样的情况，用户正在传输的文件包含的不是文本文件，它们可能是程序，数据库，字处理文件或者压缩文件（尽管字处理文件包含的大部分是文本，其中也包含有指示页尺寸，字库等信息的非打印字符）。在...
详解C++文件读写操作
09-02
打开模式有多种，如`ios::in`表示读取，`ios::out`表示写入，`ios::app`表示追加，`ios::binary`表示二进制模式等。例如： ```cpp ofstream out("file.txt", ios::out); ifstream in("file.txt", ios::in); fstream...
erjinzhiduxie.rar_二进制 文件读写
07-15
文本文件使用字符编码（如ASCII或Unicode）来存储数据，而二进制文件则直接保存数据的原始位模式，没有字符编码的转换，因此通常更适合存储结构化数据，如图像、音频、数据库记录等。 要进行二进制文件的读写，我们...
读写大块资料（二进制）
05-23
在编程领域，尤其是在处理大量数据时，读写大块资料（二进制）是一个常见的需求。这个场景通常出现在处理图像、音频、视频等文件或进行大数据传输时。本实例聚焦于VC++环境下如何高效地进行大文件二进制读写操作。 ...
Binary Viewer二进制文件读取软件
07-10
1. **字节视图**：Binary Viewer可以将二进制文件以十六进制的形式展示，每字节都有对应的ASCII字符表示，这有助于识别可能隐藏的文本或特定的编码模式。 2. **搜索与定位**：软件提供了强大的搜索功能，允许用户...
mysql binary模式_MySQL的binary类型操作
weixin_33006121的博客
01-27 220
示例数据表：CREATETABLEtest_bin(bin_idBINARY(16)NOTNULL)Engine=InnoDB;插入数据(内容是一个32位的UUID字符串值)：INSERTINTOtest_bin(bin_id)VALUES(UNHEX('FA34E10293CB42848573A4E39937F479'));INSERTINTOtest_bin(bin_i...
FTP中BINARY和ASCII传送模式的区别
iteye_7379的博客
07-29 416
FTP可用多种格式传输文件，通常由系统决定，大多数Linux/UNIX系统只有两种模式：文本模式和二进制模式。文本传输器使用ASCII字符，并由回车键和换行符分开，而二进制不用转换或格式化就可传字符，二进制模式比文本模式更快，并且可以传输所有ASCII值，所以系统管理员一般将FTP设置成二进制模式。　　一般来说： 如果你用错误的模式传输你的图片，你将可能无法看到图片，看到的会是乱码。 如果你用...
FTP中Binary二进制与ASCII传输模式的区别
c914620529的博客
01-25 3596
转载：http://www.4u4v.net/ftp-in-binary-and-ascii-transfer-mode-binary-difference.html FTP可用多种格式传输文件，通常由系统决定，大多数Linux/UNIX系统只有两种模式：文本模式和二进制模式。文本传输器使用ASCII字符，并由回车键和换行符分开，而二进制不用转换或格式化就可传字符，二进制模式比文本模式更
FTP的ASCII和Binary传输模式
MOTOLT的博客
06-06 2307
WINDOWS用FTP上传文本文件到UNIX.在unix下编辑上传的文本文件时 经常会出现M，虽然我们可以通过命令替换掉M。但上传的文件比较多时, 逐个替换还是比较麻烦。下面通过小实验来解决这个问题。 FTP有ASCII和Binary两种传输模式。 Binary模式不会对数据进行任何处理。 Ascii模式会将回车换行转换为本机的回车字符。 由于WINDOWS和UNIX的行结束符不一样。所以从WIN...
FTP的传输模式（ascii, binary）的区别
chanet(牧师)'s blog
11-06 5959
上传图片、压缩或打包类的文件用binary模式； 上传脚本类的文件用(CGI、HTML)，用文件编写的文件都需用ascii模式；否则会造成文件的损坏；修改模式直接用命令就行了，很简单：ascii 模式ftp> ascii200 Type set to A.binary模式ftp> binary200 Type set to I.ftp> 之后再put文件。：）
FTP的两种传输模式：BINARY和ASCII
jackfreesiue的专栏
03-20 2254
最近工作中需要构造些数据（windows），然后上传到服务器（linux）上运行，本来在本地已经设置后用linux的newLine符号(\n)但传到服务器上newLine符却变成了(\r\n)，虽然可以用dos2unix，但为什么会把换行符改变呢？找了些资料，发现这和FTP的传输模式有关，如下： FTP有两种传输模式：BINARY和ASCII BINARY模式 复制时保留文件的位序，逐位拷贝
oem模式是什么_OEM的完整形式是什么？
cumtb2002的博客
07-28 4954
oem模式是什么 OEM：原始设备制造商 (OEM: Original Equipment Manufacturer) OEM is an abbreviation of "Original Equipment Manufacturer". Its meaning has changed over time. In former times, it alluded to a corporation...
实操：VRRP配置实验演练演示.mp4
最新发布
07-09
基于华为模拟器ENSP
std::ios::binary
07-23
通过指定 `std::ios::binary` 打开模式，我们可以确保数据以二进制形式进行读写，而不会进行任何额外的转换或处理。 希望这能帮助您理解 `std::ios::binary` 在C++中的使用。如有任何疑问，请随时提问。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值