[VB6] Scrivere al contrario in file binari

[GraficInside]

quindi potrei prendere la stringa iniziale prendo i caratteri a due a due e da questi realizzo un vettore di byte... Grazie per il consiglio credo che tu abbia indicato la via migliore per risolvere il problema
grazie 1000!

[oregon]

Questo un esempio di codice della funzione che dovresti usare, senza problemi di lunghezza e nell'ordine naturale in cui i byte sono presenti nella stringa ...

Private Function Hex2ByteArr(ByVal h As String) As Byte()
    Dim sL As Long
    Dim ix As Long
    Dim bRes() As Byte
    
    sL = Len(h)
    If sL Then
        ReDim bRes(0 To sL - 1)
        For ix = 1 To sL - 1
            bRes(ix - 1) = Val("&H" & Mid$(h, ix * 2 - 1, 2))
        Next ix
    End If
    
    Hex2ByteArr = bRes
End Function

e questo un modo per chiamarla, tenendo presente sempre che la posizione 3 e' il byte 2 nel file ...

Put #1, 3, Hex2ByteArr("AABBCCDD")

[oregon]

Errata corrige ...

Deve essere

Private Function Hex2ByteArr(ByVal h As String) As Byte()
    Dim sL As Long
    Dim ix As Long
    Dim bRes() As Byte
    
    sL = Len(h)
    If sL Then
        ReDim bRes(0 To sL / 2 - 1)
        For ix = 1 To sL / 2
            bRes(ix - 1) = Val("&H" & Mid$(h, ix * 2 - 1, 2))
        Next ix
    End If
    
    Hex2ByteArr = bRes
End Function

[GraficInside]

Grazie Oregon con questo codice non dovrei avere vincoli sulla dimensione della stringa immagino ... provo