String Problem

[p80286]

Zitat von blaky:

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 von p80286:

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 von blaky:

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 von blaky:

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 von p80286:

Zitat von blaky:

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.. das klappt super! Danke DeddyH

[himitsu]

Es gibt auch nocht den IN-Parameter:
if readline[i] in ['0'..'9'] then

[blaky]

Zitat von himitsu:

Es gibt auch nocht den IN-Parameter:
if readline[i] in ['0'..'9'] then

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