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

swatt

各位大大們你好，請幫忙找一下問題:
我從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
-------------------------------------------------------------------------------------------------

下載 (84.35 KB)
bin

2020-8-26 17:57

swatt

回復 1# swatt

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

1. Sub Temp1()
   
2. 
   
3. Application.ScreenUpdating = False
   
4. 
   
5.     Dim intFileNum%, bytTemp As Byte, intCellRow%
   
6.     intFileNum = FreeFile
   
7.     intCellRow = 0
   
8. 
   
9.     fipath = "C:\hello.txt"
   
10.    
    
11.     Open fipath For Binary Access Read As intFileNum
    
12. 
    
13.     Do While Not EOF(intFileNum)
    
14.         intCellRow = intCellRow + 1
    
15.         Get intFileNum, , bytTemp
    
16.         Cells(1, intCellRow) = Hex(bytTemp) '' convert dec to hex
    
17. 
    
18.     Loop
    
19.     Close intFileNum
    
20.    
    
21. Application.ScreenUpdating = True
    
22. 
    
23. MsgBox "Done."
    
24. 
    
25. End Sub

複製代碼

swatt

回復 2# swatt

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

1. Sub Temp1()
   
2. 
   
3. Application.ScreenUpdating = False
   
4. 
   
5.     Dim intFileNum%, bytTemp As Byte, intCellRow%
   
6.     intFileNum = FreeFile
   
7.     intCellRow = 1
   
8. 
   
9.     fipath = "C:\hello.txt"
   
10.    
    
11.     flen = FileLen(fipath) 'get file length
    
12.    
    
13.     Open fipath For Binary Access Read As intFileNum
    
14. 
    
15.     'Do While Not EOF(intFileNum) '用EOF判斷會在結尾多出一個byte為0
    
16.     Do While intCellRow <= flen
    
17.                 Get intFileNum, , bytTemp
    
18.         Cells(1, intCellRow) = Hex(bytTemp) '' convert dec to hex
    
19.         intCellRow = intCellRow + 1
    
20.     Loop
    
21.     Close intFileNum
    
22.    
    
23. Application.ScreenUpdating = True
    
24. 
    
25. MsgBox "Done."
    
26. 
    
27. End Sub

複製代碼

quickfixer

回復 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

swatt

回復 4# quickfixer

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