Foros Club Delphi - Quitar caracter de una cadena

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Firebird e Interbase (https://www.clubdelphi.com/foros/forumdisplay.php?f=19)

- - Quitar caracter de una cadena (https://www.clubdelphi.com/foros/showthread.php?t=8452)

Triton

23-03-2004 13:48:29

Quitar caracter de una cadena

Hola amigos, tengo un contratiempo y es que tengo un campo (NIF) en una tabla de mi aplicación, la cual un cliente mío la a rellenado con el carácter "-". Por ejemplo: B-30458799.

Me gustaría saber si existe alguna función en Interbase 5.6 que me ayude a quitar el carácter "-" y dejarlo así: B30458799.

Desde ya, gracias ;)

marcoszorrilla

23-03-2004 15:21:53

La verdad ahora mismo no recuerdo si existen una UDF en interbase para hacer lo que pides, pero si es urgente con código Delphi recorres la tabla y lo arreglas:

Código:

procedure TForm1.Button1Click(Sender: TObject);

Var

s:String;

begin

s:=Edit1.text;

Delete(s, Pos('-',edit1.text),1);

edit1.Text:=s;

end;

Este ejemplo adaptándolo a tu base de datos lo arreglaría, haces un bucle que recorra la tabla y cambias edit1.text por el nombre del campo a modificar.

Un Saludo.

__cadetill

23-03-2004 15:33:04

otra opción es usar el SUBSTRING y la concatenación de strings

Código:

select substring(NIF from 1 for 1) || substring(NIF from 3 for 8)

from clientes

Triton

23-03-2004 17:59:07

Gracias

Al final opté por la siguiente opción:

Código:

with Clientes do

  begin

    First;

    while not Eof do

    begin

      Clientes.Edit;

      aux:=ClientesNIF.Value;

      aux1:=StringReplace(aux,'-','',[rfReplaceAll]);

      ClientesNIF.Value:=aux1;

      Post;

      Next;

    end;

  end;

De todos modos gracias, la opción de Substring no me sirve porque en InterBase 5.6 no existe. Además hay nifs que van así también "789542136-A".

Lo dicho, muchas gracias :cool:

La franja horaria es GMT +2. Ahora son las 08:49:54.