返回列表 上一主題 發帖

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

swatt

帖子
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
-------------------------------------------------------------------------------------------------
收藏 分享

swatt

帖子
37 
主題
11 
精華
0 
積分
87 
點名
0  
作業系統
window7 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2011-3-14 
最後登錄
2022-5-30 
5#
發表於 2020-8-28 10:09 | 只看該作者
回復 4# quickfixer

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

TOP

quickfixer

帖子
154 
主題
1 
精華
0 
積分
200 
點名
30  
作業系統
windwos 7 
軟體版本
64bit 
閱讀權限
20 
註冊時間
2017-5-29 
最後登錄
2024-11-25 
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

TOP

swatt

帖子
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 判斷檔案結束.
  1. Sub Temp1()

  3. Application.ScreenUpdating = False

  5.     Dim intFileNum%, bytTemp As Byte, intCellRow%
  6.     intFileNum = FreeFile
  7.     intCellRow = 1

  9.     fipath = "C:\hello.txt"
  10.    
  11.     flen = FileLen(fipath) 'get file length
  12.    
  13.     Open fipath For Binary Access Read As intFileNum

  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

  25. MsgBox "Done."

  27. End Sub
複製代碼

TOP

swatt

帖子
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,
找不出問題在哪裡，請大大們幫忙一下，感謝~
  1. Sub Temp1()

  3. Application.ScreenUpdating = False

  5.     Dim intFileNum%, bytTemp As Byte, intCellRow%
  6.     intFileNum = FreeFile
  7.     intCellRow = 0

  9.     fipath = "C:\hello.txt"
  10.    
  11.     Open fipath For Binary Access Read As intFileNum

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

  18.     Loop
  19.     Close intFileNum
  20.    
  21. Application.ScreenUpdating = True

  23. MsgBox "Done."

  25. End Sub
複製代碼

TOP

        靜思自在 : 屋寬不如心寬。
返回列表 上一主題