Buchstaben Kette in Klammern erkennen

[Trafel21]

Hallo zusammen,

ich würde gern eine Buchstabenfolge in Klammern per SQL erkennen.

In einem STRING steht folgendes: '0333 333333 (Stadt) 0444 44444 (Dorf) 3434343 ...'

Jetzt würde ich gern vor jeder Buchstabenfolge in einer Klammer ein ^ vorsetzen:

REPLACE(:ISTRING,' ([[:ALPHA:]]*) ','^([[:ALPHA:]]*)');

In der Firebird Dokumentation steht:

Zitat:

'Icaque' similar to '[[:ALPHA:]]*' -- true

Eigentlich sollte es funktionieren aber... tut es nicht.

[Trafel21]

Okay, hab mein Fehler erkannt,[[:ALPHA:]] funktioniert nur bei similar to.

[Trafel21]

Ich hab es jetzt so versucht...

Code:

    IF (:ISTRING SIMILAR TO '([[:ALPHA:]äöüÄÖÜß]*)' ) THEN
    begin
      IString = REPLACE(:IString,')',')^');
    end

Leider ist die Bedingung immernoch nicht Wahr, weiß jemand warum?

[Moombas]

Du könntest alternativ generell vor Jede Klammer ein ^ setzen, wenn ichs richtig verstehe ist das ja genau das was du willst.

Dafür gibt es Stringreplace:

Delphi-Quellcode:

  String := '(123)(456)';
  IString := stringreplace(IString, '(', '^(',[rfReplaceAll, rfIgnoreCase]);
  //Ergebnis: ^(123)^(456)

[DeddyH]

Es geht um Firebird, nicht um Delphi. Klar könnte man da auch ganz stumpf mit REPLACE vor jede öffnende Klammer das ^ setzen, allerdings wäre das dann ohne jede Prüfung.

[Trafel21]

Zitat von Moombas:

Du könntest alternativ generell vor Jede Klammer ein ^ setzen, wenn ichs richtig verstehe ist das ja genau das was du willst.

Dafür gibt es Stringreplace:

Delphi-Quellcode:

  String := '(123)(456)';
  IString := stringreplace(IString, '(', '^(',[rfReplaceAll, rfIgnoreCase]);
  //Ergebnis: ^(123)^(456)

In den Klammern dürfen nur Wörter stehen. (Martin) -> ^(Martin)
Bei Zahlenfolgen Bspw, (030) soll nicht passieren.

Meine Spaltenwert sehen meistens so aus.

0361-333333 (Martin) 030-432432 (Stefan)

Ich darf explizit nur Buchstaben innerhalb einer Klammer stehen, alles andere nicht. Bspw. Können die Vorwahlen auch in Klammern stehen, die sollen nicht bearbeitet werden.

[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?