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

markieren

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

Reguläre Ausdrücke wären hier vielleicht ganz praktisch.

**Björn Ole**

markieren

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.

markieren

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:

markieren

Code:

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

**Helmi**

Zitat von Björn Ole:

markieren

Delphi-Quellcode:

			if Pos('G0', Zeile) > 0 then

  Zeile := Format('M5 %s M3', [Zeile]);

Bei NC-Programmen muss es so lauten:

markieren

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

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

Themen-Optionen	Thema durchsuchen
Druckbare Version zeigen Jemanden per E-Mail auf dieses Thema hinweisen	Thema durchsuchen: Erweiterte Suche
Ansicht
Linear-Darstellung Zur Hybrid-Darstellung wechseln Zur Baum-Darstellung wechseln

Text edit algorithmus konzept... Zeichen finden :)

Text edit algorithmus konzept... Zeichen finden :)

AW: Text edit algorithmus konzept... Zeichen finden :)

AW: Text edit algorithmus konzept... Zeichen finden :)

AW: Text edit algorithmus konzept... Zeichen finden :)

AW: Text edit algorithmus konzept... Zeichen finden :)

AW: Text edit algorithmus konzept... Zeichen finden :)

AW: Text edit algorithmus konzept... Zeichen finden :)

AW: Text edit algorithmus konzept... Zeichen finden :)

AW: Text edit algorithmus konzept... Zeichen finden :)

AW: Text edit algorithmus konzept... Zeichen finden :)

Forumregeln

Helmi Registriert seit: 29. Dez 2003 Ort: Erding, Republik Bayern 3.312 Beiträge Delphi XE2 Professional	#2 AW: Text edit algorithmus konzept... Zeichen finden :) 31. Dez 2010, 15:29 [OT]Ich würd die Spindel weiterlaufen lassen [/OT] mfg Helmi >> Theorie ist Wissen, dass nicht funktioniert - Praxis ist, wenn alles funktioniert und keiner weiss warum! <<
	Zitat

s.h.a.r.k Registriert seit: 26. Mai 2004 3.159 Beiträge	#3 AW: Text edit algorithmus konzept... Zeichen finden :) 31. Dez 2010, 15:36 Ein Edit mit mehreren Zeilen gibt so es nicht. Es ist halt dann ein Memo Zudem verstehe ich das eigentliche Problem nicht wirklich Reguläre Ausdrücke wären hier vielleicht ganz praktisch. »Remember, the future maintainer is the person you should be writing code for, not the compiler.« (Nick Hodges)
	Zitat

idefix2 Registriert seit: 17. Mär 2010 Ort: Wien 1.027 Beiträge RAD-Studio 2009 Pro	#5 AW: Text edit algorithmus konzept... Zeichen finden :) 31. Dez 2010, 15:37 Am bequemsten erkennst Du solche Zeilen wahrscheinlich mit regulären Ausdrücken.
	Zitat

BUG Registriert seit: 4. Dez 2003 Ort: Cottbus 2.094 Beiträge	#6 AW: Text edit algorithmus konzept... Zeichen finden :) 31. Dez 2010, 15:40 zB: markieren Code: ^N[0-9]+ G0 .$ Intellekt ist das Verstehen von Wissen. Verstehen ist der wahre Pfad zu Einsicht. Einsicht ist der Schlüssel zu allem.*
	Zitat

Björn Ole Registriert seit: 10. Jul 2008 166 Beiträge Delphi XE Professional	#8 AW: Text edit algorithmus konzept... Zeichen finden :) 31. Dez 2010, 15:43 Okay, dann kommt man da mit regulären Ausdrücken natürlich einfacher voran.
	Zitat

hedie Registriert seit: 12. Dez 2005 Ort: Schweiz 1.024 Beiträge Delphi XE6 Starter	#9 AW: Text edit algorithmus konzept... Zeichen finden :) 31. Dez 2010, 15:59 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? Claudio Tu was du nicht lassen kannst - http://endasmedia.ch
	Zitat

rollstuhlfahrer Registriert seit: 1. Aug 2007 Ort: Ludwigshafen am Rhein 1.529 Beiträge Delphi 7 Professional	#10 AW: Text edit algorithmus konzept... Zeichen finden :) 31. Dez 2010, 16:01 Memo1.Lines.Insert(1, 'Inhalt'); Bernhard Bernhard Iliacos intra muros peccatur et extra!
	Zitat