Textdaten ald Bin speichern.

[funkheld]

Hallo, guten Tag.

Ich habe diese Text-Datei:

Code: Alles auswählen

        BYTE	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
	BYTE	$00,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$00,$00
	BYTE	$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$00
	BYTE	$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$00
	BYTE	$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$00
	BYTE	$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$00
	BYTE	$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$00
	BYTE	$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$00
	BYTE	$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$00
	BYTE	$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$00
	BYTE	$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$00
	BYTE	$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$00
	BYTE	$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$00,$00,$00,$20,$00,$00
	BYTE	$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$00,$00,$00,$00,$00,$00,$00
	BYTE	$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$00
	BYTE	$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$00
	BYTE	$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$00
	BYTE	$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$00,$00

Nun möchte ich bitte die Hexwerte alle als BIN abspeichern.

Wie geht das bitte?

Danke.
Gruss

[NicTheQuick]

Geht es nur um die eine Datei oder hast du mehrere dieser Art, die du konvertieren möchtest?

[fabulouspaul]

So...

Code: Alles auswählen

EnableExplicit

Define hex_dateiname.s
Define hex_dateinummer
Define bin_dateiname.s
Define bin_dateinummer
Define zeile.s
Define i
Define zeichen.a

hex_dateiname = "p:\test\hex.txt"
bin_dateiname = "p:\test\bin.bin"

hex_dateinummer = OpenFile(#PB_Any, hex_dateiname)
bin_dateinummer = CreateFile(#PB_Any, bin_dateiname)

If hex_dateinummer <> 0 And bin_dateinummer <> 0
  While Not Eof(hex_dateinummer)
    ; Zeile einlesen
    zeile = Trim(ReadString(hex_dateinummer, #PB_Ascii))
    ; "Byte" am Anfang eliminieren
    If UCase(Left(zeile, 4)) = "BYTE"
      zeile = Trim(Right(zeile, Len(zeile) - 4))
    EndIf
    ; Werte auslesen und binär schreiben
    For i = 0 To CountString(zeile, ",")
      zeichen = Val(StringField(zeile, i + 1, ","))
      WriteAsciiCharacter(bin_dateinummer, zeichen)
    Next i
  Wend
  CloseFile(hex_dateinummer)
  CloseFile(bin_dateinummer)
EndIf

End

[funkheld]

Hallo, danke für die Hilfe.

Das Programm kann ich noch schön ausbauen.

Gruss