Frage zu StringRegExpReplace

Ich habe ein "kleines" Problem mit StringRegExpReplace

Bevor ich nun zu meinem Problem komme, kurz zur Erläuterung:
Ich bin Programmierer für NC-Werkzeugmaschinen und schreibe aktuell an einem kleinen Editor.
Wenn ich ein NC-Programm aus der Maschine sichere, hat die Steuerung aus Platzgründen alle Leerzeichen entfernt.

Hier mal kurz der Aufbau eines NC-Programmes:
Original:

N5 M6 T1 (BOHRER D10)
N10 G0 G54 X10 Y30 S500 M3
N15 G0 Z30
N20 G81 R2 Z-15 F500
N20 G0 G80 Z300

Rückgabe aus Maschine:

N5M6T1(BOHRER D10)
N10G0G54X10Y30S500M3
N15G0Z30
N20G81R2Z-15F500
N20G0G80Z300

Ich hoffe, ihr seht mein Problem. Ich möchte quasi, falls möglich, per StringRegExpReplace() vor allen Buchstaben ausser "N" und vor "(" ein Leerzeichen einfügen, wobei der Text zwischen den Klammern ausgespart werden soll, da dies einen von der Maschine nicht gelesenen Kommentar darstellt, der auch nicht verändert wird.

Ich bedanke mich schonmal für die Hilfe von euch Profis

Gruß Shadow

Zitat von TheShadowAE

Mit deiner Technik würde vor jedem Zeichen außer den 2 ein Leerzeichen kommen, versuch lieber hinter Buchstabe-Zahl-nichtklammerzuundnichtzeilenende ein Leerzeichen zu machen. Wenn du es nicht schaffst guck in den Spoiler

Spoiler anzeigen

[autoit]

$new=StringRegExpReplace($old,"(?i)(?s)([A-Z]\d+?)[^)\r\n]","$1 ")

[/autoit]

Ich fress den Syntax von StringRegExpReplace net... allerdings, wenn ich deine Zeile in mein Script einfüge, werden die Leerzeichen zwar eingefügt, aber teilweise andere Zeichen dadurch ersetzt... warum auch immer

Zitat von TheShadowAE

Ah ja, müsste funktioneren, wenn du das [^)\r\n] in ein [^)\r\n\d] machst!
https://autoit.de/index.php?page=Thread&amp;threadID=19071 <-- RegExp Tutorial

Leider nein! Es werden immernoch Zeichen durch Leerzeichen ersetzt

Danke für den Link zum Tutorial

Zitat von BugFix

Hier noch die Variante für RegExp, damit es nicht zu haarsträubend wird, habe ich den Klammerausdruck zwischengesichert und nach Leerzeicheneinfügen wieder eingesetzt.
Ich gehe mal davon aus, dass immer nur ein Klammerausdruck enthalten ist, anderenfalls müßte man das noch abändern.

Spoiler anzeigen

[autoit]

Local $s = _
"N5M6T1(BOHRER D10)" & @CRLF & _
"N10G0G54X10Y30S500M3" & @CRLF & _
"N15G0Z30" & @CRLF & _
"N20G81R2Z-15F500" & @CRLF & _
"N20G0G80Z300"

[/autoit] [autoit][/autoit] [autoit]

$sBraces = StringRegExp($s, '\(.+\)', 1)
$sOut = StringRegExpReplace(StringRegExpReplace(StringRegExpReplace($s, '\(.+\)', '(1)'), '([A-MO-Z(])', ' $1'), '\(1\)', $sBraces[0])
ConsoleWrite($sOut & @CRLF)

[/autoit]

Alles anzeigen

Um's mal salopp zu sagen: Geilomatik

Klappt super, auch wenn ich den Syntax net versteh!

Was müsste geändert werden, wenn ich am Zeilenanfang kein Leerzeichen haben möchte?

Edit:

Trotzdem noch 'n Fehler gefunden: Wenn ein Programm nicht nur einen Kommentar enthält, werden alle anderen Kommentare durch diesen ersetzt

Edit2: Hab zu spät gelesen, daß du das Klammer-Thema schon angeschnitten hast.... Ja, es kommen unterschiedliche Kommentare vor

Zitat von BugFix

Bei mir erscheinen keine Leerzeichen am Zeilenanfang. :wacko:
Das ist meine Konsolenausgabe:

Code

N5 M6 T1 (BOHRER D10)
N10 G0 G54 X10 Y30 S500 M3
N15 G0 Z30
N20 G81 R2 Z-15 F500
N20 G0 G80 Z300

Das war ja auch nur ein Beispiel-NC-Programm... es kann zwischendurch vorkommen, daß die ein oder andere Zeile kein "N" am Anfang hat

Zitat von UEZ

Hier noch eine Variante:

[autoit]

$sSource = _
"N5M6T1(BOHRER D10)" & @LF & _
"N10G0G54X10Y30S500M3" & @LF & _
"N15G0Z30" & @LF & _
"N20G81R2Z-15F500" & @LF & _
"N20G0G80Z300"
$sNew = StringRegExpReplace($sSource, "(\w\d+)", "$1 ")
MsgBox(0, "Test", $sNew)

[/autoit]

Gruß,
UEZ

Alles anzeigen

Ganz so einfach scheint's dann auch net zu klappen...
Kommazahlen z.B. 80.3 (wobei im NC-Programm das Komma nen Punkt is) werden auch geteilt dadurch

So, hier für euch mal zum Testen ein Ausschnitt eines echten NC-Programmes:

%
:0330(3300110-1) 
(HC400-330-1.NC) 
(INDEX D)
(VORRICHTUNG TURMSCHRAUBSTOCK) 
(17.08.07 MT)
 
(TEIL OBEN)
N5G10G90L20P1X355.96Y448.5Z86.0(B0 G54.1 P1 2X M16X1.5)
N10G10G90L20P3X64.0Y448.5Z-94.04(B90 G54.1 P3 TYPENSCHILD) 
N15G10G90L20P5X536.0Y448.5Z-89.06(B270 G54.1 P5 1X M20X1.5)
 
(TEIL UNTEN) 
N20G10G90L20P2X243.26Y69.65Z86.0(B0 G54.1 P2 2X M16X1.5) 
N25G10G90L20P4X64.0Y69.65Z-89.84(B90 G54.1 P4 1X M20X1.5)
N30G10G90L20P6X536.0Y69.65Z-93.26(B270 G54.1 P6 TYPENSCHILD) 
 
N35M6T1(MESSERKOPF D63)
N40G0B0M24 
N45G0G54.1P1X50Y-20S1100M3T15
N50G0Z20 
N55G0Z2
N60G1X-80F1100(F600) 
N65G0Z10 
N70G0X50Y-20 
N75G0Z0.05 
N80G1X-130 
N85G0Z50 
 
N90G0G54.1P2X-50Y20
N95G0Z2
N100G1X80
N105G0Z10
N110G0X-50Y20
N115G0Z0 
N120G1X130 
N125G0Z200 
 
N130G0B90
N135G0G54.1P3X33Y-100
N140G0Z2 
N145G1Y-20 
N150G0Z10
N155G0X33Y-100 
N160G0Z0 
N165G1Y40
N170G0Z50
 
N175G0G54.1P4X-30Y36 
N180G0Z2 
N185G1X33
N190G0Z10
N195G0X-33Y36
N200G0Z0 
N205G1X33
N210G0Z300M9 
 
N215G0B270 
N220G0G54.1P5X30Y-36 
N225G0Z2 
N230G1X-33 
N235G0Z10
N240G0X30Y-36
N245G0Z0 
N250G1X-33 
N255G0Z50
 
N260G0G54.1P6X-33Y100
N265G0Z2 
N270G1Y20
N275G0Z10
N280G0X-33Y100 
N285G0Z0 
N290G1Y0 
N291G1X30
N295G0Z300M9 
 
N300M6T15(BOHRER D2 VHM) 
N305G0B270M25
N310G0G54.1P6X-33Y7S7000M3T16
N315G0Z20M8
N320G81R2Z-5.2F280 
N325Y52
N330G0G80Z300M9
 
N335G0B90
N340G0G54.1P3X33Y-7
N345G0Z20M8
N350G81R2Z-5.2 
N355Y-52 
N360G0G80Z300M9
M1
N365 M99

Zitat von progandy

Ich denke, dass das funktioniert:

[autoit]

$sSource = ClipGet()
$sNew = StringRegExpReplace($sSource, "([A-Z][-.\d]+|\(.*\))", "$1 ")
; RegExp trifft entweder einen Befehl (Buchstabe + Zahl) oder ganze Kommentarklammer
; Dadurch wird in Kommentarklammern nichts ersetzt.
MsgBox(0, "Test", $sNew)

[/autoit]

Genau so hat's jetz funktioniert! Ich bedanke mich vielmals bei euch allen!

Gruß Shadow

Zitat von UEZ

Was erwartest du, wenn du nur die Hälfte erwähnst?

Gruß,
UEZ

Man möge mir verzeihen, ich war noch nie gut im genauen schildern von Problemen, letztendlich wurde das Problem dann aber doch gelöst

Gruß Shadow