title image


Smiley Re: Binärdatei erzeugen
vielen dank!

funktioniert soweit.

allerdings habe ich nun das nächste problem.



code:

Function RndString( _

Optional Chars As String = "0123456789ABCDEF", _

Optional MinLen As Long = 2, _

Optional MaxLen As Long = 2) As String

Dim CharsLen As Long

Dim i As Long

Dim n As Long

'Länge(n) bestimmen:

CharsLen = Len(Chars)

n = Int((MaxLen - MinLen + 1) * Rnd) + MinLen

RndString = Space$(n)

'Zufällige Zeichen einfügen:

For i = 1 To n

n = Int(CharsLen * Rnd) + 1

Mid$(RndString, i) = Mid$(Chars, n, 1)

Next i

End Function



Private Sub Form_Load()

Randomize

Dim intFile As Integer

Dim bytArr() As Byte

'// den Bytearray eben entsprechend

'// dimensionieren und befüllen

ReDim bytArr(786432)

bytArr(0) = &H7B

'// Bytearray in Datei schreiben

intFile = FreeFile

Open "C:\Testmuster.usm" For Binary As #intFile

Put #intFile, , bytArr

Close #intFile

End Sub



ich habe in RndString den wert des bytes stehen (3A oder sonstiges).

nun möchte ich diese werte im file stehen haben, allerdings funktioniert das nicht da sie keine hex-werte sind. kann ich die irgendwie konvertieren oder muss ich das ganu anders machen?

danke für die hilfe

gruß

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: