Registriert seit: 9. Nov 2003
Ort: 04539 Groitzsch
1.351 Beiträge
Delphi 11 Alexandria
|
AW: Buchstaben in Spalte löschen
20. Apr 2017, 08: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
|
|
Zitat
|