Teile eines Strings auslesen

[tAxel]

Hallo erstmal zusammen!

Ich bin Delphi Neuling und stehe vor einem kleinen Problem.
Und zwar lese ich folgende Datei in einer Schleife Zeile für Zeile aus:

HF0
X10Y120
HF1
DELTAX100DELTAY40
DELTAX50Y20
HF0
X0Y0

Die Zeilen mit 'HF' fallen weg da ich sie in einer Schleife abfrage und auswerte.
Die übrigen Zeilen sind dann die die mir Probleme machen.
Und zwar will ich immer nur die Zahlen auslesen und in Variablen speichern.
Dabei müssen die 'x'- und 'y'-Werte noch getrennt werden.
Da die Datei in der Form wie sie oben steht genormt ist kann man daran nichts ändern (Trennzeichen einfügen
oder so).
Wie kriege ich also am Besten die Ziffern getrennt nach x und y aus den Strings?

Ich hoffe hier kann mir dabei jemand helfen!

Gruß
Axel

[DeddyH]

Hallo,

willkommen in der DP :dp:

Werden die Zeilen mit DELTA anders behandelt als die ohne?

[Mooshead]

Mit pos('x') bzw pos('y') kannst du die Stelle an denen x bzw y steht bestimmen. Und mit copy(string,anfangszahl,länge) kannst du einen teil des Strings herausziehen.

[sirius]

.. und mit strtoint bzw trystrtoint umwandeln

[SirThornberry]

Zitat:

Zitat von sirius

.. und mit strtoint bzw trystrtoint umwandeln

oder val oder strtointdef

[DeddyH]

Vielleicht braucht er aber Float :mrgreen:

[tAxel]

Erstmal danke für die schnellen Antworten!
Werd das mal testen!

Also anders behandelt werden die Zeilen nicht. Es wird zwar nachher die Variable in die ich die 'DELTAX'-Werte kopiere
auf die alten 'X'-Werte aufaddiert aber das ist ja erstmal unabhängig von meinem Problem.

Wenn ich jetzt an der Stelle von 'X' z.B. bin, wie kopiere ich dann nur die Zahl die da steht (von der ich ja auch nicht
die Länge weiß) in einen String? Versteht ihr was ich meine? Also ich als Anfänger hab da im Moment keine Vorstellung
davon wo der Cursor steht wenn ich sage:

POS('X',s) (so macht mans doch oder?)


Ach ja und was genau bewirke ich mit den Befehlen 'trystrtoint' , 'val' , 'strtointdef'?
Die kenne ich noch nicht!

@DeddyH: Weiß nciht was ich brauche! Aber ich denke integer passt schon weil es im Endeffekt Koordinaten im Imagefeld sein sollen!

[tAxel]

Hilft es wenn ich folgendes sage?

s:=s+'DELTAX'+inttostr(dx)+'DELTAY'+inttostr(dy);

also das er weiß das der String 'S' so aussieht das erst ein Deltax drinsteht und dann eine Zahl kommt
(die mit strtoint umgewandelt wird) und dann ein Deltay und dann wieder eine Zahl.

Könnte ich dann direkt das 'dx' bzw 'dy' nehmen?

[sirius]

Ich weis nicht genau, wie die Norm aussieht, aber so kommst du erstmal weiter:

Delphi-Quellcode:

procedure getvalues(zeile:string; var X,Y:Integer);
var sZahlx,sZahly:String;
    posX,posY:integer;
begin
  posX:=pos('X',zeile);
  posY:=pos('Y',zeile);
  sZahlx:=copy(zeile,         //Ursprungsstring
               posX+1,        //Anfang des Teils zum rauskopieren
               posY-posX-1);  //Länge des Teilstrings
  sZahly:=copy(zeile,
               posY+1,        //Ab der Stelle "Y"+1 kopieren
               length(zeile));//bis zum Ende
  
  trystrtoint(szahlx,x); //trystrtoint liefert als Ergebnis noch zurück, ob überhaupt eine Zahl in szahlx steht..
  trystrtoint(szahly,y); //..das könnte man noch auswerten
end;
//ungetestet

[tAxel]

Super das sieht vielversprechend aus!
Da wär ich so nich drauf gekommen!
Vielen dank!

Bleibt nur noch rauszufinden ob das dann deltax bzw -y sind weil die ja später von mir anders behandelt werden müssen!
Aber das müsste ich dann glaub ich schaffen!

[xZise]

Hi tAxel,
das Problem kann man leicht lösen.

Mithilfe von Pos() bekommst du die Position eines Zeichens im String zurück.
Wichtig ist, dass der String mit 1 beginnt ;)

Um nun zu überprüfen, wo das X steht:

Delphi-Quellcode:

var
  start : Integer;

begin
  start := Pos('X', str);

In "str" steht ein String (z.B. "DELTAX10DELTAY20").
In Start würde nun der Wert 6 stehen, da das erste X in dem String an der Position 6.

Ich würde jetzt überprüfen, wo die Zahl zu Ende ist.
Das heißt, wir müssen gucken, wo das nächste "D" oder "Y" auftaucht.
Das könnte man jetzt wieder mit "Pos" machen, aber nur bei Y.

Pos liefert nämlich nur das erste Vorkommen zurück. Und in unseren String wäre das die Position "1", wir wollen aber "9" herausbekommen. Also "+ 8"? Nein! Weil es kann ja sein, dass die Zahl einstellig oder mehrstellig ist!
Deshalb gibt es eine erweiterte Funktion:
PosEx() Erwartet den zu suchenden String ('D'), den zu durchsuchenden String (s.o.) und ein so genanntes Offset, in der steht, ab welchen Zeichen wir suchen sollen.
Das wäre in unseren Beispiel irgendwo nach dem ersten Zeichen. Wir könnten also "2" einsetzen, aber es geht eleganter. Und zwar muss das Zeichen ja hinter dem "X" stehen. Also können wir "start" verwenden.

Also erweitern wir den Code:

Delphi-Quellcode:

var
  start : Integer;
  endY, endD : Integer;

begin
  str := 'DELTAX10DELTAY20';
  start := Pos('X', str);
  endY := Pos('Y', str);  // Erstes Vorkommen von Y (mögliches Ende)
  endD := PosEx('D', str, start);  // Erstes Vorkommen von D. Ausgehend von der Position des "X" (anderes mögliche Ende)

Wir haben also jetzt 3 Zahlen, aber welche sind die richtigen?

Das ist relativ einfach, weil wenn das D vor dem Y steht, müssen wir D nehmen, außer wenn D null ist (also nicht vor kommt).
Das können wir dann in eine If-Bedingung gießen. Wir speichern die Endposition in "endY" ab.

Delphi-Quellcode:

if (endD > 0) and (endD < endY) then
  endY := endD;

Wenn es gefunden wurde (endD > 0) und das D vor dem Y steht (endD < endY) ist D das erste Zeichen, nach der Zahl, ansonsten Y.
Da in endY schon die Position des Y steht, müssen wir das nicht reinschreiben.

Davon ausgehend, können wir den Teilstring herauskopieren:

Delphi-Quellcode:

substr := Copy(str, start + 1, endY - start - 1);

Der erste Parameter möchte den String wissen, aus dem er den Teilstring haben möchte.
Der zweite Parameter möchte die Position des ersten Zeichens, des Teilstrings, wissen.
Der dritte Parameter möchte dann die Länge des Teilstrings wissen.

In substr sollte nun "10" stehen. Das dann in einen Integer umwandeln und fertig.
Für die Y-Koordinate kannst du dir das dann selber überlegen wie man das macht.

Übrigens kann man ganz einfach herausfinden, ob ein Delta vor dem X oder vor dem Y steht.
Wenn du nicht drauf kommst, denke doch mal nach wo der Unterschied im string ist.
Man sollte übrigens den Code dann oben etwas abändern, um doppelte Abfragen zu vermeiden :)

MfG
xZise

[tAxel]

HAHAHAAH!

Sowas hab ich mir erhofft! - Einfach und sinnvoll!

Danke Fabian! Echt genial!

[tAxel]

Hm da ist nun nen kleiner Dämpfer in der Euphorie aufgetreten:

PosEx wird nicht erkannt! Er gibt mir die Fehlermeldung:

Undefinierter Bezeichner: 'PosEx'

Woran kanns liegen?

[DeddyH]

Du musst die Unit StrUtils oben in der uses-Klausel hinzufügen.

[tAxel]

Alles klar!
Das wars dann auch schon!

Nochmals vielen Dank an alle!

Gruß
Axel