Einzelnen Beitrag anzeigen

Benutzerbild von dataspider
dataspider

Registriert seit: 9. Nov 2003
Ort: 04539 Groitzsch
1.350 Beiträge
 
Delphi 11 Alexandria
 
#5

AW: Buchstaben in Spalte löschen

  Alt 20. Apr 2017, 07:29
Als Ansatz:

SQL-Code:
create or alter procedure sp_converttext (
    text varchar(255))
returns (
    result varchar(255))
as
declare variable l smallint;
declare variable pos smallint;
declare variable c char(1);
begin
  result = null;
  l = char_length(:text);
  if (:l > 0) then
  begin
    pos = 1;
    while (:pos <= :l) do
    begin
      c = substring(:text from :pos for 1);
      if (:c in ('0','1','2','3','4','5','6','7','8','9', 'x', ' ')) then
        -- naechste Zeile kann weg, wenn doppelte Leerzeichen bleiben sollen
        if (not ((:pos > 1) and (:c = ' ') and (substring(:result from char_length(:result) for 1) = ' '))) then
          result = coalesce(:result, '')||:c;
      pos = :pos + 1;
    end
  end
  suspend;
end
dann die Werte prüfen

SQL-Code:
select
  t.dein_feldname
, (select result from sp_converttext(t.dein_feldname)) dein_feldname_NEU
  from deine_tabelle t
wenn es passt, dann das Update...

Frank
Frank Reim
  Mit Zitat antworten Zitat