[µo°Ý] ±qtxt fileŪ¥Xbinary/hex data¡Aµ²§À«o¦h¥X¤@­Óbyte¬°0

swatt

¦U¦ì¤j¤j­Ì§A¦n¡A½ÐÀ°¦£§ä¤@¤U°ÝÃD:
§Ú±qhello.txt file ­nŪ¥Xbinary/hex data¨ìexcel cells¡A
¦ý"hello"¥u¦³5­Óbyte¡A¥i¬O¥Î¥H¤Uµ{¦¡Åª¥X¨Ó·|¦A³Ì«á¦h¥X¤@­Óbyte¬°0?
¬Oµ{¦¡¼gªk­þ¸Ì¦³»~¶Ü?

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

¤U¸ü (84.35 KB)
bin

2020-8-26 17:57

swatt

¦^´_ 1# swatt

¸É¥R¤@¤U,¦¹µ{¦¡ªº¥Øªº¬O­n¥Hbyte¬°ªø«×,±N¥ô·NÀɮתº­ì©l½X(ASCII)¼g¨ìexcel,
°ò¥»¤Wµ{¦¡¬O¥i¦æªº¡A¦ý´N¬O¦b³Ì«á­±·|¦h¥X¤@­Óbyte¡A³o­Óbyte¤@©w¬O0,
§ä¤£¥X°ÝÃD¦b­þ¸Ì¡A½Ð¤j¤j­ÌÀ°¦£¤@¤U¡A·PÁÂ~

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

½Æ»s¥N½X

swatt

¦^´_ 2# swatt

¥ý¶¸ôÁ×¹L³o­Ó°ÝÃD¡A¤£¥ÎEOF§ï¥Îfil size §PÂ_ÀÉ®×µ²§ô.

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§PÂ_·|¦bµ²§À¦h¥X¤@­Ó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

½Æ»s¥N½X

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

³o¤]¬O­Ó¦n¤èªk¡A·PÁÂquickfixer¤j~