Buchstaben Kette in Klammern erkennen

[Moombas]

sry, dachte das dies über die normale Programmierung ging also Daten aus Datenbank holen, verarbeiten und wieder rein schieben und nicht direkt über den DB Zugriff.

Sonst hätte man es ja recht simpel so lösen können:

Delphi-Quellcode:

procedure XYZ();
var
 i, j    : integer;
 IString : string;
 inhalt  : string;
begin
  IString := '0361-333333 (Martin) [phone] (Stefan)'; 
  for i := 1 to length(IString) do //für die länge des ganzen Strings nach der Klammer suchen
  begin
    if (IString[i] = '(') and (IString[i-1] <> '^') then //Wenn die Klammer gefunden wurde und diese nicht schon ersetzt wurde weiter machen
    begin
      inhalt := ''; //Inhalt zurücksetzen
      j := i + 1;   //Nach der ( Inhalt auslesen
      while IString[j] <> ')' do // ) wurde gefunden
      begin
        inhalt := inhalt + IString[j]; //Inhalt der Klammer auslesen
        inc(j);
      end;  // Inhalt der gefundenen Klammern steht fest
      try
        strtoint(inhalt); //Kann der Inhalt in eine Zahl umgewandelt werden?
      except  //Nein? Dann ist es ein String und ersetze ( durch ^(
        IString := stringreplace(IString, '('+inhalt+')', '^('+inhalt+')', []);
      end; 
    end;
  end;
  Showmessage(IString); // Ergebnis: 0361-333333 ^(Martin) [phone] ^(Stefan)
end;

[Trafel21]

Danke für deine Hilfe und deinen Aufwand Moombas, leider bin ich im SQL unterwegs und schreibe eine Procedur. In SQL gibt es keine for schleifen, was ich ziemlich behämmert finde.

Eine ähnlcihe logik hatte ich zusammengebaut.

Code:

I=0;
NUMBER_C = '';
NUMBERS = '';
    while (:I<CHAR_LENGTH(:IN_NUMBERS)) do // String durchgehen
    begin
      I=:I+1;
      NUMBER_C = SUBSTRING(:IN_NUMBERS FROM :I FOR 1);
      
      if (NUMBER_C SIMILAR TO '(') then // Wenn ( gefunden
      begin
        NUMBERS = :NUMBER_C; -- ( auslesen
        I=:I+1;

        while (:I<CHAR_LENGTH(:IN_NUMBERS)) do // weitere while schleife für Buchstaben
        begin
          IF (:NUMBER_C SIMILAR TO '[[:ALPHA:]äöüÄÖÜß]') THEN // Wenn Zeichen ein Buchstabe ist...
          begin
            NUMBERS = NUMBERS || :NUMBER_C; // Nach der ( Buchstabeninhalt auslesen 

            IF (:NUMBER_C SIMILAR TO '`') THEN // Wenn ) gefunden 
            begin
              NUMBERS = NUMBERS || :NUMBER_C;  -- ) auslesen

              IN_NUMBERS = REPLACE(:IN_NUMBERS,NUMBERS,NUMBERS||'^'); // zur Trennung ^ setzen
            end
          end
          else
          begin
          break; /* break aus der while, keine Buchstabe */
          end
        I=:I+1;
        end
      end
    end

Hier funktioniert nur das if (NUMBER_C SIMILAR TO '(') nicht. Es kommt ein Fehler "Invalid SIMILAR TO pattern".

Ziemlich verzweifelnd.

[mkinzler]

Zitat:

In SQL gibt es keine for schleifen, was ich ziemlich behämmert finde.

In PSQL schon (SP, Trigger, execution block)

[Delphi.Narium]

Zitat von Trafel21:

Hier funktioniert nur das if (NUMBER_C SIMILAR TO '(') nicht. Es kommt ein Fehler "Invalid SIMILAR TO pattern".

Ziemlich verzweifelnd.

bei den anderen Ifs schreibst Du if (:NUMBER_C SIMILAR TO Fehlt da nur ein Doppelpunkt?

[Trafel21]

Zitat von Delphi.Narium:

Zitat von Trafel21:

Hier funktioniert nur das if (NUMBER_C SIMILAR TO '(') nicht. Es kommt ein Fehler "Invalid SIMILAR TO pattern".

Ziemlich verzweifelnd.

bei den anderen Ifs schreibst Du if (:NUMBER_C SIMILAR TO Fehlt da nur ein Doppelpunkt?

Ob oder ohne spielt in diesem Fall leider keine Rolle.

Code:

    IN_NUMBERS = REPLACE(:IN_NUMBERS,'(','°');
    IN_NUMBERS = REPLACE(:IN_NUMBERS,')','`');

    I=0;
    NUMBER_C = NULL;
    NUMBERS = NULL;
    while (:I<CHAR_LENGTH(:IN_NUMBERS)) do
    begin
      I= :I+1;
      NUMBER_C = SUBSTRING(:IN_NUMBERS FROM :I FOR 1);

      --EXCEPTION EXCEPT_LEER NUMBER_C;
      if (:NUMBER_C SIMILAR TO '°') then
      begin
        NUMBERS = :NUMBER_C; -- ( auslesen
        I=:I+1;
        --EXCEPTION EXCEPT_LEER NUMBERS;
        while (:I<CHAR_LENGTH(:IN_NUMBERS)) do
        begin
          NUMBER_C = SUBSTRING(:IN_NUMBERS FROM :I FOR 1);

          IF (:NUMBER_C SIMILAR TO '[[:ALPHA:]]') THEN
          begin
            NUMBERS = NUMBERS || :NUMBER_C; -- Nach der ( Buchstabeninhalt auslesen
          end
          else IF (:NUMBER_C SIMILAR TO '`') THEN
          begin
              NUMBERS = NUMBERS || :NUMBER_C;  -- ) auslesen
              IN_NUMBERS = REPLACE(:IN_NUMBERS,NUMBERS,NUMBERS||'^'); -- zur Trennung ^ setzen
              break;
          end

        I=:I+1;
        end
      end
    end

Ich hab die Klammern einfach mit anderen Zeichen replaced. Jetzt funktioniert es zumindestens schon einmal zur Hälfte, die 1. Buchstabenfolge wird ein ^ angehangen. Die 2. Wird leider nicht gefunden. Wie verhält sich den ein Break in 2 While's mit einer If ab frage?

Code:

while (x)
begin
   while (y)
   begin
    if (z) then break;
   end
end

Spring ich aus beiden heraus? oder nur aus der while y ?

[Moombas]

Zitat:

Google sagt für "SQL Break": BREAK beendet die aktuelle WHILE-Schleife. Wenn die aktuelle WHILE-Schleife mit einer anderen verschachtelt ist, beendet BREAK nur die aktuelle Schleife, und die Steuerung wird für die nächste Anweisung in der äußeren Schleife erteilt.

Und aus dem reinen Verständnis hätte ich dies auch so verstanden.