String Problem

[p80286]

Zitat:

Zitat von blaky (Beitrag 1124093)

jemand ne Idee wie ich alles außer Zahlen 0-9 rausfiltere?

Delphi-Quellcode:

for i:=a to b do
  if readln[i] in ['0'..'9'] then ATN:=ATN+readln[i]
else ATN:=ATN+' ';

oder so ähnlich

Gruß
K-H

p.s.
readln ist echt nicht so DER Name für eine Variable

[DeddyH]

Delphi-Quellcode:

for I := 11 to 34 do
  case readline[I] of
    ' ': break;
    '0'..'9': ATLN := ATLN+readline[I];
  end;

Ungetestet, sollte aber tun.

[edit]

Zitat:

Zitat von p80286 (Beitrag 1124097)

p.s.
readln ist echt nicht so DER Name für eine Variable

Hab ich auch erst gedacht, aber da die Prozedur ReadLn und die Variable ReadLine heißt, sollte sich da nichts beißen. [/edit]

[himitsu]

Zitat:

Zitat von blaky (Beitrag 1124093)

jemand ne Idee wie ich alles außer Zahlen 0-9 rausfiltere?

Da du ATLN selber befüllst,
indem du nur 0-9 dort anhängst?

[p80286]

Ich dachte mehr daran:

Delphi-Quellcode:

f:textfile;

assignfile(f:'myfile');
reset(f);
readln(f,mystring);

und richtig lesen kann ich auch nicht.
Gruß
K-H

[blaky]

die readline wird fremd über eine TCP Verbindung gefüllt
aber
ich glaub ich habs..

hab jetzt mit ner 2. Variable und ner 2. For Schleife gelöst

Code:

var
readline: string;
ATLN: string;
ATLNx: string;

if ((Pos('33', readline) = 1) and (readline[4] = '0')) then // Langrufnummer kommenden Tln.
    begin
      readline_identifiziert:= true;
      for I := 11 to 34 do
        begin
           ATLN:=ATLN+readline[I];
        end;

      for I := 0 to length(ATLN) do
         begin
          if ((ATLN[i] = '0') or (ATLN[i] = '1') or (ATLN[i] = '2') or (ATLN[i] = '3') or (ATLN[i] = '4') or (ATLN[i] = '5') or (ATLN[i] = '6') or (ATLN[i] = '7') or (ATLN[i] = '8') or (ATLN[i] = '9')) then
              begin
                ATLNx:=ATLNx+ATLN[i];
              end;
         end;
       ATLNx := Trim(ATLNx);
       showmessage(datetostr(date)+' '+timetostr(time)+'-> kommender Anruf von RufNr: '+ ATLNx +' auf Nst: ' + readline[6] + readline[7] + readline[8] + readline[9]);

    end;

wer etwas eleganteres hat bitte nicht zögern

[DeddyH]

#12 hast Du ausprobiert?

[p80286]

Zitat:

Zitat von blaky (Beitrag 1124101)

wer etwas eleganteres hat bitte nicht zögern

Wie wäre es mit DeddyH's Vorschlag?

Gruß
K-H

edith:
der rote kasten hat Feierabend

[blaky]

Zitat:

Zitat von p80286 (Beitrag 1124104)

Zitat:

Zitat von blaky (Beitrag 1124101)

wer etwas eleganteres hat bitte nicht zögern

Wie wäre es mit DeddyH's Vorschlag?

Gruß
K-H

edith:
der rote kasten hat Feierabend

hatte ich ganz überlesen.. :P das klappt super! Danke DeddyH

[himitsu]

Es gibt auch nocht den IN-Parameter:

Delphi-Quellcode:

if readline[i] in ['0'..'9'] then

[blaky]

Zitat:

Zitat von himitsu (Beitrag 1124107)

Es gibt auch nocht den IN-Parameter:

Delphi-Quellcode:

if readline[i] in ['0'..'9'] then

Das klingt auch nett. Danke für den Tip!