Text einlesen umwandeln und wieder ausgeben

afo

Hallo Com,
Ich habe eigentlich ein relativ simples Problem.

Meine Ausgangsdatei ist so aufgebaut:

Spoiler anzeigen

Code

0,00h


1,00h


2,18h


3,00h


4,00h


5,00h


6,00h


7,00h


8,00h


9,00h


10,00h


11,00h


12,00h


13,00h


14,00h


15,00h


16,4Fh


17,80h


18,80h


19,80h


....


231,00h


232,00h

Alles anzeigen

Es ist eine txt-Datei.

Ich möchte jetzt, dass der Inhalt eingelesen wird und folgendermaßen wieder ausgegeben wird.

Code

/sc00000/sc00100/sc00218

Also der Aufbau ist:

Code

/s + c0 + Zahl vor dem Komma in Hexadezimal umwanlden + Zahl nach dem Komma ohne h hinschreiben.

Das ganze soll dann wieder in einer txt-Datei ausgegeben werden.

Ich habe mir gedacht, dass es mit Autoit ganz gut geht. Nur ich habe viel zu
wenig Ahnung davon und bin so auf etwas Unterstützung angewiesen.
Ich kann noch nicht viel als Vorablösung präsentieren, weil ich wirklich keine Ahnung habe.

Vielen Dank

**Schnitzel**

Sollte so ca funktionieren

Spoiler anzeigen

[autoit]

$aRead = StringSplit(StringReplace(FileRead('test.txt'), @CR, ''), @LF)
$sOutput = ''
For $i = 1 To $aRead[0]
$aTmp = StringRegExp($aRead[$i], '\d+', 3)
If IsArray($aTmp) and UBound($aTmp) = 2 Then
$sOutput &= "/sc0" & StringRight(Hex($aTmp[0]),2) & $aTmp[1]
Else
MsgBox(64,'', 'Zeile "'&$aRead[$i]&'" entspricht nicht den Vorgaben')
EndIf
Next
FileWrite('output.txt', $sOutput)

[/autoit]

Da die Zahl vor der Komma auf zwei Hex zeichen begrenzt ist gehe ich mal davon aus dass keine Zahlen >255 vorkommen oder?

afo

Jap geht bis Zeile 230.
Ich teste es mal.
Es funktioniert schon ganz gut.
Es kommt die Fehlermeldung: "Zeile " 30,AAh" entspricht nicht den Vorgaben".

**Schnitzel**

Ach das nach dem Komma ist schon Hex...
Nächster versuch:

Spoiler anzeigen

[autoit]

$aRead = StringSplit(StringReplace(FileRead('test.txt'), @CR, ''), @LF)
$sOutput = ''
For $i = 1 To $aRead[0]
$aTmp = StringSplit($aRead[$i], ',', 2)
If IsArray($aTmp) and UBound($aTmp) = 2 Then
$sOutput &= "/sc0" & StringRight(Hex($aTmp[0]),2) & StringLeft($aTmp[1],2)
Else
MsgBox(64,'', 'Zeile "'&$aRead[$i]&'" entspricht nicht den Vorgaben')
EndIf
Next
FileWrite('output.txt', $sOutput)

[/autoit]