String jeweils nach einem Punkt auslesen

[Grolle]

Hi!
ICh brauch mal wieder eure Hilfe! Ich möchte den String jeweils nach einem
Punkt auslesen. Die Zeile siht ungefähr so aus:

Zitat:

G1: 32948893948.1 G2: 4324324.0

Also müsste ich hier die 1 und die 0 erhalten.
Ich arbeite sonst (wegen D3) mit der jbstr.unit (String manipulation routines V 1.29)
Aber ich weiß nicht mit welcher Proc. ich das so filtern kann, wie ich es brauche.
Ich denke ich muss auch pos() irgendwie mit einbinden, aber wie?
Vielen Dank schonmal...

[Wuaegner]

Wenn hinter dem Punkt immer eine einstellige Ziffer kommt, dann holst du dir mit

Delphi-Quellcode:

pos('.',SubString)

die Stelle wo der Punkt erscheint und mit

Delphi-Quellcode:

copy()

kopierst du dann das Zeichen, das hinter dieser Punktposition kommt.

[barf00s]

Delphi-Quellcode:

sTextNachPunkt := Copy(sOriginal, Pos('.', sOriginal) + 1, Length(sOriginal));

[Matze]

Such mal nach Pos (erstes Vorkommen des Punktes), PosEx (weitere Vorkommen) oder evtl. auch nach explode.

[Grolle]

Danke für eure schnellen Antworten werd ich mal durchprobieren :mrgreen:

@Matze
Hat Delphi 3 PosEX? :gruebel:

[Matze]

Zitat:

Zitat von Grolle

@Matze
Hat Delphi 3 PosEX? :gruebel:

Delphi 3, achso, darauf habe ich nicht geachtet, soviel ich weiß, gibt es das dort noch nicht. Wenn es nicht zu viele Stringssind, kannst du es auch recht einfach mit Schleifen lösen, nur ist dies vergleichsweise langsam.

[Grolle]

Irgendwie haut das nicht hin. Ich bekomme nicht einmal
den ersten Wert. Was mache ich falsch?

Delphi-Quellcode:

da :=  StrToInt(copy(List.Strings[2],pos('.',s)));

[Ultimator]

Dein copy-Befehl ist falsch, das dürfte sich so gar nicht kompilieren lassen.
Er erwartet als Parameter

• Den String, von dem ein Teil kopiet werden soll
• die Position in diesem String, von dem ab kopiert werden soll
• die Anzahl der Zeichen, die kopiert werden soll

Und dir fehlt da der 3. Parameter

[arbu man]

Sonst such mal in der DP nach 'expolde' oder 'splitstring' damit sollte es auch gehen

[Grolle]

@ Ultimator

Und wie kann ich ihm da die Anzahl der Zeichen übergeben?

[Matze]

Delphi-Quellcode:

Copy('Haus', 2, 1);

Das ist ein Beispiel, genaueres dazu findest du in der OH.
Sobald du die erste Klammer eingibst, solltest du sehen, welche Parameter erwartet werden.

[barf00s]

Zitat:

Delphi-Quellcode:

sTextNachPunkt := Copy(sOriginal, Pos('.', sOriginal) + 1, Length(sOriginal));

und

Delphi-Quellcode:

sTextVorDemPunkt := Copy(sOriginal, 1, Pos('.', sOriginal) - 1);

SubString := Copy(QuellString, StartIndex, Längedeszukopierendenstrings);

[marabu]

Hier ein quick & dirty PosEx() auch für D3:

Delphi-Quellcode:

function PosEx(const SubStr, S: string; Offset: integer): integer;
begin
  Result := Pos(SubStr, Copy(S, OffSet, Succ(Length(S) - OffSet)));
  if Result > 0 then Result := Result + Pred(Offset);
end;

TStringList gab es doch schon unter D3 - oder?

Delphi-Quellcode:

var
  sl: TStringList;
  s: string;
  i: integer;
begin
  s := 'G1: 32948893948.1 G2: 4324324.0';
  sl := TStringList.Create;
  i := ExtractBetween(s, '.', ' ', sl);
  ShowMessage(IntToStr(i) + #13#10 + sl.CommaText);
  sl.Free;
end;

Grüße vom marabu