Aktuelle Zeit: 20.10.2019 11:45

Alle Zeiten sind UTC + 1 Stunde [ Sommerzeit ]




Ein neues Thema erstellen Auf das Thema antworten  [ 4 Beiträge ] 
Autor Nachricht
 Betreff des Beitrags: Textdaten ald Bin speichern.
BeitragVerfasst: 27.03.2019 23:04 
Offline

Registriert: 31.12.2009 11:58
Hallo, guten Tag.

Ich habe diese Text-Datei:
Code:
        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


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: Textdaten ald Bin speichern.
BeitragVerfasst: 27.03.2019 23:34 
Offline
Ein Admin
Benutzeravatar

Registriert: 29.08.2004 20:20
Wohnort: Saarbrücken
Geht es nur um die eine Datei oder hast du mehrere dieser Art, die du konvertieren möchtest?

_________________
Neustes Video: Neje DK - 1 Watt Laser Engraver
Ubuntu Gnome 19.04 LTS x64, PureBasic 5.71 x64 (außerdem 4.41, 4.50, 4.61, 5.00, 5.10, 5.11, 5.21, 5.22, 5.30, 5.31, 5.40, 5.50, 5.60)
"Die deutsche Rechtschreibung ist Freeware, du darfst sie kostenlos nutzen – Aber sie ist nicht Open Source, d. h. du darfst sie nicht verändern oder in veränderter Form veröffentlichen."


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: Textdaten ald Bin speichern.
BeitragVerfasst: 28.03.2019 12:17 
Offline

Registriert: 01.04.2011 21:59
So...

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


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: Textdaten ald Bin speichern.
BeitragVerfasst: 28.03.2019 22:55 
Offline

Registriert: 31.12.2009 11:58
Hallo, danke für die Hilfe.

Das Programm kann ich noch schön ausbauen.

Gruss


Nach oben
 Profil  
Mit Zitat antworten  
Beiträge der letzten Zeit anzeigen:  Sortiere nach  
Ein neues Thema erstellen Auf das Thema antworten  [ 4 Beiträge ] 

Alle Zeiten sind UTC + 1 Stunde [ Sommerzeit ]


Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 5 Gäste


Sie dürfen keine neuen Themen in diesem Forum erstellen.
Sie dürfen keine Antworten zu Themen in diesem Forum erstellen.
Sie dürfen Ihre Beiträge in diesem Forum nicht ändern.
Sie dürfen Ihre Beiträge in diesem Forum nicht löschen.

Suche nach:
Gehe zu:  

 


Powered by phpBB © 2008 phpBB Group | Deutsche Übersetzung durch phpBB.de
subSilver+ theme by Canver Software, sponsor Sanal Modifiye