String von nicht Zahlen säubern und formartieren

ruby

Hallo,

ich lade ein Datei ein und will nur die Zahlen beibehalten.

Anschliessend soll alles in eine Editbox rein.

Die Datei sieht z.B. so aus:

0 0 0 An explosion of lava ... by D. Egnor

60 60 60

64 60 60

72 60 60

76 56 56

100 48 48

108 48 48

112 44 44

212 12 12

224 8 8

232 8 8

236 4 4

244 4 4

252 12 0

252 20 0

252 28 0

160 0 0

156 4 4

152 4 4

148 8 8

140 12 12

104 32 32

100 36 36

96 40 40

88 44 44

60 60 60

Das Ergebniss sollte anschliessend wieder so aussehen:

0 0 0

60 60 60

64 60 60

72 60 60

76 56 56

100 48 48

108 48 48

112 44 44

212 12 12

224 8 8

232 8 8

236 4 4

244 4 4

252 12 0

252 20 0

252 28 0

160 0 0

156 4 4

152 4 4

148 8 8

140 12 12

104 32 32

100 36 36

96 40 40

88 44 44

60 60 60

Es sollen alle nicht Zahlen und nur ein Leerschritt zwischen den Zahlen bestehen bleiben.

Ich habe bisher das, das ich alle nicht Zahlen und und Leerschritte enferne.

Nur wie bekomme ich es hin, das er nach jeder 3. Zahl eine @lf macht?

Mein Ergeniss sieht leider so aus:

0 0 0 60 60 60 64 60 60 72 60 60 76 56 56 100 48 48 108 48 48 112 44 44 212 12 12 224 8 8 232 8 8 236 4 4 244 4 4 252 12 0 252 20 0 252 28 0 160 0 0 156 4 4 152 4 4 148 8 8 140 12 12 104 32 32 100 36 36 100 36 36 96 40 40 88 44 44 60 60 60 60 60 60

Code

#include <File.au3>

Local $string = FileRead("test.txt")

$string = StringRegExp($string, "(?i)(\d+[-\d+]*)", 3); Zahlen werden herausgezogen
;_ArrayDisplay($string) ;dient nur zur Übersicht

$out = ""
For $i = 0 To UBound($string) - 1
ConsoleWrite($string[$i] & " ")
Next

Alles anzeigen

Lottich

hi. Regex freaks kennen sicher bessere lösungen als ich, aber quick&dirty würde ich dein Ergebnis nochmal durch eine Schleife jagen. Ermittle die Anzahl der Leerzeichen und dann per step 3 besagtes Leerzeichen durch ein @lf ersetzen.

ruby

Ich habe noch einmal die datei hochgeladen, da man in dem aufgeführten bespiel die formartierung innerhalb der txt nicht sieht.

ruby

Hallo Lottich,

ja genau, aber wie mache ich das.

**BugFix**

Alles in einem Rutsch:

Python

Local $s = _
"0 0 0 An explosion of lava ... by D. Egnor" & @CRLF & _
"60 60 60" & @CRLF & _
"64 60 60" & @CRLF & _
"72 60 60" & @CRLF & _
"76 56 56" & @CRLF & _
"100 48 48" & @CRLF & _
"108 48 48" & @CRLF & _
"112 44 44" & @CRLF & _
"212 12 12" & @CRLF & _
"224 8 8" & @CRLF & _
"232 8 8" & @CRLF & _
"236 4 4" & @CRLF & _
"244 4 4" & @CRLF & _
"252 12 0" & @CRLF & _
"252 20 0" & @CRLF & _
"252 28 0" & @CRLF & _
"160 0 0" & @CRLF & _
"156 4 4" & @CRLF & _
"152 4 4" & @CRLF & _
"148 8 8" & @CRLF & _
"140 12 12" & @CRLF & _
"104 32 32" & @CRLF & _
"100 36 36" & @CRLF & _
"100 36 36" & @CRLF & _
"96 40 40" & @CRLF & _
"88 44 44" & @CRLF & _
"60 60 60" & @CRLF & _
"60 60 60"

Local $sResult = StringRegExpReplace($s, '(?m)(\d+)\s+(\d+)\s+(\d+)(\D*)', '\1 \2 \3' & @CRLF)
ConsoleWrite($sResult & @CRLF)

Alles anzeigen

ruby

Hallo BugFix ,

nicht zu fassen, eine Zeile und es ist erledigt, Hammer

Da wäre ich nicht draufgekommen.

Um bei der ersten Zeile die beiden Leerstellen vor der 0 zu entfernen und die letzte leere Zeile zu löschen, das mache ich händisch in der Editbox.

Oder geht das auch?

Ersteinmal Dank.

**BugFix**

Zitat von ruby

Oder geht das auch?

Klar, ich hatte nur anhand deines Eintrags im Post das Pattern erstellt und nicht die Datei geladen:

Python

Local $s = _
"  0 0 0 An explosion of lava ... by D. Egnor" & @CRLF & _
"60 60 60" & @CRLF & _
"64 60 60" & @CRLF & _
"72 60 60" & @CRLF & _
"76 56 56" & @CRLF & _
"100 48 48" & @CRLF & _
"108 48 48" & @CRLF & _
"112 44 44" & @CRLF & _
"212 12 12" & @CRLF & _
"224 8 8" & @CRLF & _
"232 8 8" & @CRLF & _
"236 4 4" & @CRLF & _
"244 4 4" & @CRLF & _
"252 12 0" & @CRLF & _
"252 20 0" & @CRLF & _
"252 28 0" & @CRLF & _
"160 0 0" & @CRLF & _
"156 4 4" & @CRLF & _
"152 4 4" & @CRLF & _
"148 8 8" & @CRLF & _
"140 12 12" & @CRLF & _
"104 32 32" & @CRLF & _
"100 36 36" & @CRLF & _
"100 36 36" & @CRLF & _
"96 40 40" & @CRLF & _
"88 44 44" & @CRLF & _
"60 60 60" & @CRLF & _
"60 60 60"

Local $sResult = StringRegExpReplace($s, '(?m)\s*(\d+)\s+(\d+)\s+(\d+)(\D*)', '\1 \2 \3' & @CRLF)
ConsoleWrite($sResult & @CRLF)

Alles anzeigen

ruby

Hi BugFix ,

Hammer, mit diesen regulären Ausdrücken komme ich ja garnicht zurecht, da muss ich noch was lernen.

Die letzte leere Zeile löschen bekomm ich dann hoffentlich selber hin.

Vielen Dank für deine Hilfe.

ruby

Hi BugFix ,

lösche die letzte leere Zeile mit StringStripWS($sResult, 1+2)

Das ganz sieht jetzt so aus:

Code

Local $sResult = StringRegExpReplace($string, '(?m)\s*(\d+)\s+(\d+)\s+(\d+)(\D*)', '\1 \2 \3' & @CRLF)
$out = StringStripWS($sResult, 2)
ConsoleWrite($out)

Also, nochmals vielen Dank.

**Bitnugger**

Zitat von ruby

lösche die letzte leere Zeile mit StringStripWS($sResult, 1+2)

In dem Bsp. von BugFix wird durch das ConsoleWrite ein zusätzliches @CRLF ausgegeben und da der String selbst auch mit einem @CRLF endet, hast du eines zu viel...

Hier wieder als Einzeiler.

Code

; Diese Pattern funktioniert auch, wenn Zeilen mit Leerzeichen|Tabs beginnen und es ist auch egal, ob die letzte Zeile mit oder ohne @CR|@LF|@CRLF endet.
Local $sResult = StringRegExpReplace($s, '(?m)(?:^\s+)?(\d+)\s+(\d+)\s+(\d+)(?:.*\R)?', '\1 \2 \3' & @CRLF)
ConsoleWrite($sResult)

; Wenn du das @CRLF der letzten Zeile noch weg haben willst...
Local $sResult = StringStripWS(StringRegExpReplace($s, '(?m)(?:^\s+)?(\d+)\s+(\d+)\s+(\d+)(?:.*\R)?', '\1 \2 \3' & @CRLF), 2)
ConsoleWrite($sResult)

ruby

Hi Bitnugger,

vielen Dank, da wird einem ja ganz schwindelig bei den vielen ?m)^\s+(\d+)....

**Bitnugger**

Zitat von ruby

vielen Dank, da wird einem ja ganz schwindelig bei den vielen ?m)^\s+(\d+)....

Ja, solche Pattern sind alles andere, aber definitiv nicht augenfreundlich... das ist aber immer so, wenn man eine "Sprache" nicht versteht.

PS: Ich habe obiges Script noch mal ein wenig geändert!

ruby

Bitnugger

deswegen lernt man ja noch die "Sprache" und dafür gibt es das Forum mit euch poweruser.