0xDe

[Visual Basic 6.0] Byte 讀取檔案 (影音檔、圖片檔、資料檔)

 

通常用 VB6 在寫資料讀檔存檔最簡單的方法是：

當要讀入的資料格式為：

0xDe 點部落 - http://www.dotblogs.com.tw/0xDe

就必須要使用逐行整列讀入

Open "檔案路徑" For Input as #編號

Do While Not EOF(編號)
    Line Input #編號, Temp ' 逐行整列 (Line) 讀入變數 Temp
Loop

但如果是遇到這種資料格式：

A B C D E F G

我們通常有兩種做法

第一種也是 Line Input 逐行整列讀入後 使用 Split  去處理字串

但進階我們可以直接使用 Input , 變數1 , 變數2 .... 方式來讀檔

假設我們用以上的範例資料格式 有 7 個資料我們就要用 7 個變數去存它

Open "檔案路徑" For Input as #編號

Do While Not EOF(編號)
     Input #編號, A1, A2, A3, A4, A5, A6, A7 ' 逐行一一讀入變數 A1,A2,A3....
Loop

 

接著我們如何用 Byte 來讀資料呢 (?)

一樣使用 Input 的方式那就大錯特錯了！

Open "檔案路徑" For Binary As #編號

Dim Inp As Byte

Do While Not EOF(編號)
     Get #編號, , Inp ' 注意必定要先把 變數 宣告為 Byte 才不會出錯
Loop

 

#0xDe 從分享中學習

#Facebook：ProgrammerDe (https://www.facebook.com/MicrosoftDes) 有問題歡迎提問