Suche Hilfe für Stringverarbeitung mit Copy und Pos ...

[grenzgaenger]

wie wär's mit 'n kleinen schleifchen?

Delphi-Quellcode:

program Project2;
{$APPTYPE CONSOLE}
uses sysutils;

function getEMailAddy(s: string): string;
var
 i: integer;
 KommaCount: integer;
 quoted: boolean;
begin
 quoted     := false;
 result     := '';
 KommaCount := 0;
 for i := 1 to length(s) do
 begin
  if s[i] = '''' then quoted := not quoted;
  if not quoted and (s[i] = ',') then
  begin
   inc(KommaCount);
   if KommaCount > 4 then break;
   continue;
  end;
  if (KommaCount = 4) and (s[i] <> '''') then
   result := result + s[i];
 end;
end;

var
 s: string = 'INSERT INTO bb1_users VALUES (''01'', ''MoYo'',''pw'',''pw'',''[e-mail]'','' ';
begin
 writeln(GetEMailAddy(s)); //teststring
 readln;
end.

damit umgehste das problem,dass in einem PW auch mal ein oder mehrere kommas sein können... ausserdem brauchste den string nur einmal durchlaufen. sollte daher recht flott gehen...
grüsse
gg

[marabu]

Guten Morgen,

hier noch eine Funktion, welche auch mit maskierten Apostrophen fertig wird:

Delphi-Quellcode:

function ExtractValue(const s: string; index: Integer): string;
const
  PREFIX = '(';
  SUFFIX = ')';
  QUOTE  = '''';
var
  iStart, iLength: Integer;
begin
  with {Classes.}TStringList.Create do
  begin
    iStart := Succ(Pos(PREFIX, s));
    iLength := Pos(SUFFIX, s) - iStart;
    CommaText := Copy(s, iStart, iLength);
    if index < Count
      then Result := {SysUtils.}AnsiDequotedStr(Strings[index], QUOTE)
      else Result := '';
    Free;
  end;
end;

Grüße vom marabu

[SurfDuDe]

Das würde ich unbedinngt mit Regular Expressions und TRegExpr lösen:

http://www.regexpstudio.com/DE/TRegExpr/Help/About.html

Delphi-Quellcode:

// Diese einfache Funktion extrahiert alle E-Mail-Adressen aus dem InputString
// und legt eine Liste dieser Adressen in den Rückgabewert
function ExtractEmails (const AInputString : string) : string;
const
   EmailRE = '[_a-zA-Z\d\-\.]+@[_a-zA-Z\d\-]+(\.[_a-zA-Z\d\-]+)+'
var
   r : TRegExpr;
begin
   Result := '';
   r := TRegExpr.Create; // Erzeuge Objekt
   try // garantiere Speicherfreigabe
      r.Expression := EmailRE;
      // der R.A. wird automatisch in die interne Struktur übersetzt
      // innerhalb der Zuweisung an diese Eigenschaft
      if r.Exec (AInputString) then
         REPEAT
            Result := Result + r.Match [0] + ', ';
         UNTIL not r.ExecNext;
      finally r.Free;
   end;
end;

begin
   ExctractEmails ('My e-mails is [email][e-mail][/email] and [email][e-mail][/email]');
   // gibt zurück: '[e-mail], [email][e-mail][/email], '
end.

[MoYo]

Zitat:

Zitat von SurfDuDe

Das würde ich unbedinngt mit Regular Expressions und TRegExpr lösen:

http://www.regexpstudio.com/DE/TRegExpr/Help/About.html

Delphi-Quellcode:

// Diese einfache Funktion extrahiert alle E-Mail-Adressen aus dem InputString
// und legt eine Liste dieser Adressen in den Rückgabewert
function ExtractEmails (const AInputString : string) : string;
const
   EmailRE = '[_a-zA-Z\d\-\.]+@[_a-zA-Z\d\-]+(\.[_a-zA-Z\d\-]+)+'
var
   r : TRegExpr;
begin
   Result := '';
   r := TRegExpr.Create; // Erzeuge Objekt
   try // garantiere Speicherfreigabe
      r.Expression := EmailRE;
      // der R.A. wird automatisch in die interne Struktur übersetzt
      // innerhalb der Zuweisung an diese Eigenschaft
      if r.Exec (AInputString) then
         REPEAT
            Result := Result + r.Match [0] + ', ';
         UNTIL not r.ExecNext;
      finally r.Free;
   end;
end;

begin
   ExctractEmails ('My e-mails is [email][e-mail][/email] and [email][e-mail][/email]');
   // gibt zurück: '[e-mail], [email][e-mail][/email], '
end.

Diese Arbeitsweise kenne ich von PHP. Wundervoll, dass jemand auch so etwas für Delphi gemacht hab.
Ich werde es damit testen. Ich danke euch allen :) Sollte ich Probleme haben sag ich bescheid.

[Luckie]

Und was spricht gegen Explode aus der Code-Lib?