Stringfunktionen

[Slashmob]

Hallo,

ich will aus einer Textdatei, mit dem Inhalt z.B. X123Y456 oder DELTAX51DELTAY175, die Zahlenwerte "herausfiltern."
Die Zahlenwerte sind gesuchte Koordinaten.

Ich vermute mal das dürfte irgendwie mit Copy,Pos und Delete gehen.
Kann mir jemand konkret am obigen Beispiel zeigen wie das codemäßig aussehen muss?
Meine eigenen Versuche führten nicht zum Ziel...

Gruß Slash

[daywalker9]

Delphi-Quellcode:

for I := 1 to Length(Zeile) do
begin
  if (Zeile[I] in ['0'..'9']) do
     Result := Result + Zeile[i];
end;

Zeile Zeichen für Zeichen durchgehen und alles was numerisch ist sammeln

[Slashmob]

Erstmal Danke. Kann ich denn damit auch die X- und Y-Koordinaten unterscheiden? Oder hab ich damit nur einen "Topf voller Zahlen"?

Mir geht es darum aus jeder Zeile einen X-Wert und einen Y-Wert zu bekommen.
Geht das denn alternativ auch irgendwie mit copy,pos und delete?? (Das wäre sogar zu bevorzugen, weil ich diese drei Funktionen anhand dieses Beispiels lernen muss)


Gruß Slash

[Aphton]

Überleg doch selbst! Ist ja gar nicht so schwer:

Code:

1. Solange löschen, bis eine Zahl oder das Ende erreicht wird; beim Letzterem: überspringe nächsten beiden Punkte
2. Solange die Zahl extrahieren (Zahl speichern, aus dem Originalstring löschen), bis entweder ein Buchstabe erreicht oder an das Ende gelangt wurde; bei Letzterem: überspringe nächsten Punkt
3. Springe zu Punkt 1

Code:

Umgesetzt (Originalstring "X123Y456")
1. Resultat: "123Y456"
2. Resultat: 123 (Originalstring "Y456")
3. -> 1.

1. Resultat: "456"
2. Resultat: 456 (Originalstring ""; Punkt 3 wird übersprungen)

Thats it;
Funktioniert genausogut mit DELTAX123... Zeugs

[Aphton]

(Doppelpost wegen der Trennung; Sry)

Code:

* String = 'ABCDEFG'

- Copy(String, Position, Stellen)
Copy(String, 3, 2) -> Kopiere ab der Position 3 (Buchstabe "C") 2 Stellen = "CD"

- Delete(String, Position, Stellen)
Delete(String, 3, 2) -> Lösche ab der Position 3 (Buchstabe "C") 2 Stellen = "ABEFG"

- Pos(String, GesuchterString)
Pos(String, 'CD') -> suche nach der Position CD im String 'ABCDEFG' und liefere den Index als Zahl zurück = 3

Wenn du scheiterst, wird dir gerne geholfen. Nur wirds dir keiner Vorkauen!

[Slashmob]

Zitat von Aphton:

(Doppelpost wegen der Trennung; Sry)

Code:

* String = 'ABCDEFG'

- Copy(String, Position, Stellen)
Copy(String, 3, 2) -> Kopiere ab der Position 3 (Buchstabe "C") 2 Stellen = "CD"

- Delete(String, Position, Stellen)
Delete(String, 3, 2) -> Lösche ab der Position 3 (Buchstabe "C") 2 Stellen = "ABEFG"

- Pos(String, GesuchterString)
Pos(String, 'CD') -> suche nach der Position CD im String 'ABCDEFG' und liefere den Index als Zahl zurück = 3

Wenn du scheiterst, wird dir gerne geholfen. Nur wirds dir keiner Vorkauen!

Ich wills ja verstehen und lernen, mir fällts halt leichter wenn ich etwas "Neues" anhand eines konkreten Beispiels sehe...dann hab ichs vor Augen und kann es woanders auch andwenden.

Versuche mich mal dran. Wenn Fragen sind, dann meld ich mich!
Danke dir nochmal!

[Bernhard Geyer]

Zitat von daywalker9:

  if (Zeile[I] in ['0'..'9']) do

Dein XE2 sollte dich hier aber darauf hinweisen doch die Funktion CharInSet zu verwenden...