Textstellen auslesen

[Q-Dog]

Hallo,

ich habe schon die Forensuche benutzt aber leider nichts gefunden.

Also mein Problem ist folgendes:
Ich möchte aus einem EditFeld, in dem z.B folgender Text steht:

Zitat:

Text (x 1)
anderer Text (x 7)
nochmal anderer (x 10)
Text (x 3)

nur die Zahlen auslesen und dann später mit ihnen weiterrechnen.

Gibt es da eine Möglichkeit das irgendwie zu bewältigen?
Und würdet ihr dazu ein Edit-Feld nehmen, weil der Text halt untereinander ist und nicht nur alles in einer Zeile.



Mfg Q-Dog

[fkerber]

Hi!

Es würde sich anbieten dafür eine Stringlist zu nutzen. Allerdings ist ein Edit doch einzeilig, also ein Edit wäre wohl nicht geeignet.

Wenn es immer die letzten Zeichen der Zeile sind und immer ein Leerzeichen davor ist, dann solltest du mal nach Pos bzw. PosEx schauen. Danach hilft dir Copy sicherlich weiter.


Ciao Frederic

[eddy]

Hallo Q-Dog,

nimm ein Memo:

Delphi-Quellcode:

var
  i, j : integer;
  r : real;

// ....  
for i := 0 to mem.Lines.count - 1 do begin
  s := mem.Lines.Strings[i];
  hs := '';
  for j := 1 to length(s) do 
    if Pos(s[j], '0123456789+-.') > 0 then hs := hs + s[j]; 
  if hs = '' then hs := '0';
  r := StringToFloat(hs);  
  speicherort_fuer_verarbeitung_der_zahlen := r;
end;

Nicht getestet, aber so in etwa sollte es gehen.

mfg
eddy

[Q-Dog]

schonmal vielen dank für die Antworten

also es ist nicht immer das letzte Zeichen, denn eine Klammer umgibt die Zahl z.B. (x 9) / (x 15).

ich werd das mit dem Memo gleich mal ausprobieren

/Edit
also memo eignet sich wohl besser als edit feld.
hab den code jetzt mal umgeändert:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i, j : integer;
  r : real;
  s, hs: string;
begin
// ....
for i := 0 to mem.Lines.count - 1 do begin
  s := mem.Lines.Strings[i];
  hs := '';
  for j := 1 to length(s) do
    if Pos(s[j], '0123456789+-.') > 0 then hs := hs + s[j];
  if hs = '' then hs := '0';
  listbox1.Items.add(hs);
end;

klappt wunderbar, vielen Dank



Mfg Q-Dog

[happyaura]

müll geschrieben und gedacht...

[Q-Dog]

Zitat von happyaura:

wenn Du nur ganze zahlen hast, kannst du StrToInt(s) benutzen, dann kannst Du das in einer Integervariable abspeichern

jo hab ich

und das mit dem Speichern hab ich nun auch verstanden *g

Nochmal vielen Dank an euch alle



Mfg Q-Dog

[Q-Dog]

eine Frage hätte ich dann doch noch, sry.

Wie kann ich einen Text vor einem bestimmten Zeichen auslesen.

sprich wenn wir das Beispiel von oben nehmen:

Zitat:

Text (x 1)
anderer Text (x 7)
nochmal anderer (x 10)
Text (x 3)

in jeder Zeile den Text vor dem Klammer auf "(" Zeichen: also "Text" / "anderer Text"...



Mfg Q-Dog

[SnuffMaster23]

Probiers mit copy:
TextVorKlammer := Copy(Memo1.Lines[i], 0, Pos('(', Memo1.Lines[i]) - 1) Das müsste hinhauen, hab ich jetz auswendig hingeschrieben

[Q-Dog]

hui, ihr seid die besten