Нулевой байт

@Wereb · Регистрация: 10.01.2019

Author24 — интернет-сервис помощи студентам

Код читает массив hex байт и записывает текстовый файл, но почему то в конец файла дописываются нули.
На скриншоте хорошо это видно.

Код:

Visual Basic

Dim sh As Worksheet
    Dim rw As Range
    
    Set sh = ActiveSheet
    Open "C:\A.txt" For Binary As #1
    Dim hextext As String
    'Dim bytes() As Byte
    ReDim bytes(0)
    'Dim byteLength As Long
    For Each rw In sh.Rows
        hextext = sh.Cells(rw.Row, 1).Value
        If hextext = "" Then
            Exit For
        End If
    
        For y = 1 To Len(hextext)
            byteLength = UBound(bytes)
            ReDim Preserve bytes(byteLength + 1)
            bytes(byteLength) = Val("&h" & Mid(hextext, y, 2))
            
            y = y + 1
        Next y
    Next rw
    Put #1, , bytes
    Close #1

@Казанский · 10.01.2019, 13:32

Сообщение от Wereb

На скриншоте хорошо это видно

Это и в коде хорошо видно - строка 18.
После цикла сделайте

Visual Basic

1	ReDim Preserve bytes(byteLength)

А вообще, делать Redim Preserve в цикле - весьма затратная операция, если массив под мегабайт размером.

@EvaPiks · 10.01.2019, 15:21

Сообщение от Казанский

ReDim Preserve bytes(byteLength)

Тогда файл создается и в него записывается 1 байт 00, и на этом все.
Вот полный код:

Visual Basic

Sub ren()
    
    Dim sh As Worksheet
    Dim rw As Range
    handle = FreeFile
    
    Set sh = ActiveSheet
    Open "C:\1.dll" For Binary As #1
    Dim hextext As String
    Dim bytes() As Byte
    ReDim bytes(0)
    Dim byteLength As Long
    For Each rw In sh.Rows
        hextext = sh.Cells(rw.Row, 1).Value
        If hextext = "" Then
            Exit For
        End If
    
        For y = 1 To Len(hextext)
            byteLength = UBound(bytes)
            ReDim Preserve bytes(byteLength)
            bytes(byteLength) = Val("&h" & Mid(hextext, y, 2))
            
            y = y + 1
        Next y
    Next rw
    Put #1, 1, bytes
    Close #1
 
End Sub

@Wereb · 10.01.2019, 15:27 **[ТС]**

Сообщение от Казанский

ReDim Preserve bytes(byteLength)

Тогда файл создается и в него записывается 1 байт 00, и на этом все.
Вот полный код:

Visual Basic

Sub ren()
    
    Dim sh As Worksheet
    Dim rw As Range
    handle = FreeFile
    
    Set sh = ActiveSheet
    Open "C:\1.dll" For Binary As #1
    Dim hextext As String
    Dim bytes() As Byte
    ReDim bytes(0)
    Dim byteLength As Long
    For Each rw In sh.Rows
        hextext = sh.Cells(rw.Row, 1).Value
        If hextext = "" Then
            Exit For
        End If
    
        For y = 1 To Len(hextext)
            byteLength = UBound(bytes)
            ReDim Preserve bytes(byteLength)
            bytes(byteLength) = Val("&h" & Mid(hextext, y, 2))
            
            y = y + 1
        Next y
    Next rw
    Put #1, 1, bytes
    Close #1
 
End Sub

@Казанский · 10.01.2019, 15:37

EvaPiks, Wereb, я написал "после цикла". В цикле оставьте говнокод как есть.

@Казанский 15146 / 6419 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	10.01.2019, 15:37	5
	EvaPiks, Wereb, я написал "после цикла". В цикле оставьте говнокод как есть. 0