Aktuelle Zeit: 12.07.2020 02:51

Alle Zeiten sind UTC + 1 Stunde [ Sommerzeit ]




Ein neues Thema erstellen Auf das Thema antworten  [ 4 Beiträge ] 
Autor Nachricht
 Betreff des Beitrags: Wie kann man bitte eine HexText-Datei in Deci-Text-Datei umw
BeitragVerfasst: 07.04.2020 14:07 
Offline

Registriert: 31.12.2009 11:58
Hallo, guten tag.
Wie kann man bitte eine HexText-Datei in Deci-Text-Datei umwandeln?

Ich weiss nicht wie man das so sauber hin bekommt mit der ganzen Ordnung.

Die Dateien bestehen aus mehr oder weniger Zeilen.
Die letzte Zeile kann manchmal weniger als 8 Einträge haben.

Als erste Dataeintragung soll die gesamtanzahl erscheinen.
Ich möchte dann alla Daten mit der Read in Basic einlesen. Der erste Datawert steht dann in der For/Next zum zählen.
data 45
data.....
data...

Jede Zeile soll so aussehen :

data 123 , 234 , 123

und am Ende jeder Zeile soll das letzte Komma immer wegfallen.

----------------------------------------
$FF , $80 , $80 , $80 , $80 , $81 , $81 , $81 ,
$81 , $81 , $81 , $81 , $81 , $81 , $81 , $81 ,
$FF , $00 , $00 , $00 , $00 , $FF , $00 , $00 ,
-----------------------------------------

Danke.


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: Wie kann man bitte eine HexText-Datei in Deci-Text-Datei
BeitragVerfasst: 07.04.2020 16:13 
Offline

Registriert: 08.09.2004 20:18
Wohnort: Zürich
Hallo,

ich habe das nicht explizit getestet, aber ich denke VAL() und STR() könnte da gut weiterhelfen. VAL() wandelt String in Zahlen und STR() Zahlen in String.
Das sollte auch mit "%00111110" gehen. Die Deutsche Hilfe zu den String Sachen ist sehr hilfreich.

Code:
Debug Str(Val("$F8"))


Gruss TFT

_________________
TFT

Code faster than fast.
W10 ,i5 4*3.4 MHz,16 GB Ram,GTX Titan, 3 Monitore UHD
ARDUINO Freak :-)


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: Wie kann man bitte eine HexText-Datei in Deci-Text-Datei
BeitragVerfasst: 07.04.2020 17:37 
Offline
Benutzeravatar

Registriert: 24.11.2004 13:12
Wohnort: Germany
1. Du brauchst nicht nach Dezimal wandeln, PB kann das selber.
2. Anzahl Daten brauchst du nicht. Kann man berechnen

Code:

a1.s = "$FF , $80 , $80 , $80 , $80 , $81 , $81 , $81 , "
a2.s = "$81 , $81 , $81 , $81 , $81 , $81 , $81 , $81 , "
a3.s = "$FF , $00 , $00 , $00 , $00 , $FF , $00 , $00 , "

Procedure.s TrimData(String.s)
  String = RTrim(String, " ")
  String = RTrim(String, ",")
  String = RTrim(String, " ")
  ProcedureReturn "  Data.a " + String
EndProcedure

Define r1.s
r1 = "DataSection" + #LF$
r1 + "  BeginData:" + #LF$
r1 + TrimData(a1) + #LF$
r1 + TrimData(a2) + #LF$
r1 + TrimData(a3) + #LF$
r1 + "  EndData:" + #LF$
r1 + "EndDataSection" + #LF$

Debug r1

; ----

Define cnt, i, value

Debug "Methode 1"
cnt = ?EndData - ?BeginData - 1

Restore BeginData
For i = 0 To cnt
  Read.a value
  Debug "" + i + " = " + value
Next

Debug "Methode 2"

Structure ArrayOfUnsignedByte
  a.a[0]
EndStructure

cnt = ?EndData - ?BeginData - 1

Define *pdata.ArrayOfUnsignedByte = ?BeginData
For i = 0 To cnt
  Debug "" + i + " = " + *pdata\a[i]
Next

; Result - vom Debugger Kopiert und eingefügt
 
DataSection
  BeginData:
  Data.a $FF , $80 , $80 , $80 , $80 , $81 , $81 , $81
  Data.a $81 , $81 , $81 , $81 , $81 , $81 , $81 , $81
  Data.a $FF , $00 , $00 , $00 , $00 , $FF , $00 , $00
  EndData:
EndDataSection


_________________
Alles ist möglich, fragt sich nur wie...
Projekte ThreadToGUI / EventDesigner V3 / OOP-BaseClass-Modul / OPC-Helper DLL
PB v3.30 / v5.4x - OS Mac Mini OSX 10.xx / Window 10 Pro. (X64) /Window 7 Pro. (X64) / Window XP Pro. (X86) / Ubuntu 14.04
Downloads auf My Webspace


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: Wie kann man bitte eine HexText-Datei in Deci-Text-Datei
BeitragVerfasst: 08.04.2020 23:15 
Offline

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

Das hat mir gut weiter geholfen.


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 15 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