Text edit algorithmus konzept... Zeichen finden :)

[hedie]

Hallo Zusammen...

Ich habe folgendes Problem
Bei einem G-Code (Code zur Steuerung von CNC Maschinen) muss vor einer solchen Zeile

Code:

N160 G0 X15.261 Y15.899

Die Zeichen M5 eingefügt werden und nach dieser Zeile M3

Dabei kann Die Nummer vor dem G0 und alles danach Variieren...

Wie geht man hier am besten vor?

Besten Dank und frohes neujahr :)

[Helmi]

[OT]Ich würd die Spindel weiterlaufen lassen :-)[/OT]

[s.h.a.r.k]

Ein Edit mit mehreren Zeilen gibt so es nicht. Es ist halt dann ein Memo :)

Zudem verstehe ich das eigentliche Problem nicht wirklich :gruebel: Reguläre Ausdrücke wären hier vielleicht ganz praktisch.

[Björn Ole]

Delphi-Quellcode:

if Pos('G0', Zeile) > 0 then
  Zeile := Format('M5 %s M3', [Zeile]);

Sollte die Ziffer nach dem G auch variabel sein, zusätzlich darauf prüfen.

Delphi-Quellcode:

p := Pos('G', Zeile);
if (p > 0) and (Length(Zeile) > p) and (CharInSet(Zeile[p+1], ['0'..'9'])) then
  Zeile := Format('M5 %s M3', [Zeile]);

[idefix2]

Am bequemsten erkennst Du solche Zeilen wahrscheinlich mit regulären Ausdrücken.

[BUG]

zB:

Code:

^N[0-9]+ G0 .*$

[Helmi]

Zitat:

Zitat von Björn Ole (Beitrag 1071485)

Delphi-Quellcode:

if Pos('G0', Zeile) > 0 then
  Zeile := Format('M5 %s M3', [Zeile]);

Bei NC-Programmen muss es so lauten:

Delphi-Quellcode:

if Pos('G0', Zeile) > 0 then
  Zeile := Format('M5 %s' + #13#10 + 'M3', [Zeile]);

Da M5 und M3 nicht in einer Zeile stehen dürfen.
(Dürfen schon, aber dann wäre die Funktion weg)

Wobei man sagen muss, wenn jetzt jemand nen Vorschub programmiert, dann kann
es mit dem Code in die Hose gehen (G01 oder G1)

[Björn Ole]

Okay, dann kommt man da mit regulären Ausdrücken natürlich einfacher voran.

[hedie]

Vielen Dank für die vielen und blitzschnellen Antworten...

Hat soweit geklappt... Jetzt noch eine Frage..

Wie kann man in einem Memo eine neue Zeile zwischen zwei existierenden hinzufügen?

[rollstuhlfahrer]

Delphi-Quellcode:

Memo1.Lines.Insert(1, 'Inhalt');

Bernhard