[發問] 從txt file讀出binary/hex data，結尾卻多出一個byte為0

帖子: 37
主題: 11
精華: 0
積分: 87
點名: 0
作業系統: window7
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2011-3-14
最後登錄: 2022-5-30

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2020-8-26 17:59 | 只看該作者

[發問] 從txt file讀出binary/hex data，結尾卻多出一個byte為0

各位大大們你好，請幫忙找一下問題:
我從hello.txt file 要讀出binary/hex data到excel cells，
但"hello"只有5個byte，可是用以下程式讀出來會再最後多出一個byte為0?
是程式寫法哪裡有誤嗎?

----------------------------------------------------------------
Sub Temp1()

Application.ScreenUpdating = False

Dim intFileNum%, bytTemp As Byte, intCellRow%
intFileNum = FreeFile
intCellRow = 0

fipath = "C:\hello.txt"

Open fipath For Binary Access Read As intFileNum

Do While Not EOF(intFileNum)
      intCellRow = intCellRow + 1
      Get intFileNum, , bytTemp
      Cells(1, intCellRow) = Hex(bytTemp) '' convert dec to hex

Loop
Close intFileNum

Application.ScreenUpdating = True

MsgBox "Done."

End Sub
-------------------------------------------------------------------------------------------------

樓主熱帖

帖子: 37
主題: 11
精華: 0
積分: 87
點名: 0
作業系統: window7
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2011-3-14
最後登錄: 2022-5-30

2^#

發表於 2020-8-27 11:00 | 只看該作者

回復 1# swatt

補充一下,此程式的目的是要以byte為長度,將任意檔案的原始碼(ASCII)寫到excel,
基本上程式是可行的，但就是在最後面會多出一個byte，這個byte一定是0,
找不出問題在哪裡，請大大們幫忙一下，感謝~

Sub Temp1()
Application.ScreenUpdating = False
Dim intFileNum%, bytTemp As Byte, intCellRow%
intFileNum = FreeFile
intCellRow = 0
fipath = "C:\hello.txt"
Open fipath For Binary Access Read As intFileNum
Do While Not EOF(intFileNum)
intCellRow = intCellRow + 1
Get intFileNum, , bytTemp
Cells(1, intCellRow) = Hex(bytTemp) '' convert dec to hex
Loop
Close intFileNum
Application.ScreenUpdating = True
MsgBox "Done."
End Sub

複製代碼

帖子: 37
主題: 11
精華: 0
積分: 87
點名: 0
作業系統: window7
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2011-3-14
最後登錄: 2022-5-30

3^#

發表於 2020-8-27 17:36 | 只看該作者

本帖最後由 swatt 於 2020-8-27 17:40 編輯

回復 2# swatt

先繞路避過這個問題，不用EOF改用fil size 判斷檔案結束.

Sub Temp1()
Application.ScreenUpdating = False
Dim intFileNum%, bytTemp As Byte, intCellRow%
intFileNum = FreeFile
intCellRow = 1
fipath = "C:\hello.txt"
flen = FileLen(fipath) 'get file length
Open fipath For Binary Access Read As intFileNum
'Do While Not EOF(intFileNum) '用EOF判斷會在結尾多出一個byte為0
Do While intCellRow <= flen
Get intFileNum, , bytTemp
Cells(1, intCellRow) = Hex(bytTemp) '' convert dec to hex
intCellRow = intCellRow + 1
Loop
Close intFileNum
Application.ScreenUpdating = True
MsgBox "Done."
End Sub

複製代碼

quickfixer

帖子: 154
主題: 1
精華: 0
積分: 200
點名: 28
作業系統: windwos 7
軟體版本: 64bit
閱讀權限: 20
註冊時間: 2017-5-29
最後登錄: 2024-10-22

4^#

發表於 2020-8-28 04:52 | 只看該作者

回復 3# swatt

Sub Temp1()
Dim intFileNum%, byttemp As Byte, intCellRow%, pos
intFileNum = FreeFile
intCellRow = 0

fipath = "C:\hello.txt"

Open fipath For Binary Access Read As intFileNum

Do While pos < LOF(intFileNum)
      intCellRow = intCellRow + 1
      Get intFileNum, , byttemp
      pos = Loc(intFileNum)
      Cells(1, intCellRow) = Hex(byttemp)
Loop

Close intFileNum

MsgBox "Done."

End Sub

帖子: 37
主題: 11
精華: 0
積分: 87
點名: 0
作業系統: window7
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2011-3-14
最後登錄: 2022-5-30

5^#

發表於 2020-8-28 10:09 | 只看該作者

回復 4# quickfixer

這也是個好方法，感謝quickfixer大~