Eliminar subcadena de una cadena

[Neftali [Germán.Estévez]]

Yo uso el Replace (AnsiReplaceText, AnsiReplaceStr) utilizando la cadena vacía. La admite sin problemas.
Te funciona para todas las ocurrencias de la cadena que quieras eliminar.

[[seoane]]

Empezado por Neftali

Yo uso el Replace (AnsiReplaceText, AnsiReplaceStr) utilizando la cadena vacía. La admite sin problemas.
Te funciona para todas las ocurrencias de la cadena que quieras eliminar.

Pero según lo entiendo yo, no quiere eliminar todos los ceros, solo los que se encuentran entre la barra y la primera cifra significativa.

[[seoane]]

Y solo por fastidiar , te dejo este otro mas largo, pero creo que mas rápido:

Código Delphi [-]
function Quitar0(Source: PChar; Dest: PChar): Integer;
asm
        MOV     Result,0
        DEC     EAX
@@SIG1:
        INC     EAX
        CMP     BYTE PTR [EAX],0
        JE      @@SALIR
        MOV     CL,[EAX]
        CMP     CL,'/'
        JE      @@SIG2
        MOV     BYTE PTR [EDX],CL
        INC     EDX
        INC     Result
        JMP     @@SIG1
@@SIG2:
        MOV     BYTE PTR [EDX],CL
        INC     EDX
        INC     Result
@@SIG3:
        INC     EAX
        CMP     BYTE PTR [EAX],0
        JE      @@SALIR
        MOV     CL,[EAX]
        CMP     CL,'0'
        JE      @@SIG3

        MOV     BYTE PTR [EDX],CL
        INC     EDX
        INC     Result
@@SIG4:
        INC     EAX
        CMP     BYTE PTR [EAX],0
        JE      @@SALIR
        MOV     CL,[EAX]
        MOV     BYTE PTR [EDX],CL
        INC     EDX
        INC     Result
        JMP     @@SIG4
@@SALIR:
        MOV     BYTE PTR [EDX],0
end;

Por ejemplo:

Código Delphi [-]
var
  Str: String;
begin
  Str:= Copy('SLS_F/000105',1,MAXINT);
  Quitar0(PChar(Str),PChar(Str));
  ShowMessage(Str);
end;

que forma de perder el tiempo ...

[[Bicho]]

Empezado por seoane

Y solo por fastidiar , te dejo este otro mas largo, pero creo que mas rápido:

Código Delphi [-]
function Quitar0(Source: PChar; Dest: PChar): Integer;
asm
        MOV     Result,0
        DEC     EAX
@@SIG1:
        INC     EAX
        CMP     BYTE PTR [EAX],0
        JE      @@SALIR
        MOV     CL,[EAX]
        CMP     CL,'/'
        JE      @@SIG2
        MOV     BYTE PTR [EDX],CL
        INC     EDX
        INC     Result
        JMP     @@SIG1
@@SIG2:
        MOV     BYTE PTR [EDX],CL
        INC     EDX
        INC     Result
@@SIG3:
        INC     EAX
        CMP     BYTE PTR [EAX],0
        JE      @@SALIR
        MOV     CL,[EAX]
        CMP     CL,'0'
        JE      @@SIG3

        MOV     BYTE PTR [EDX],CL
        INC     EDX
        INC     Result
@@SIG4:
        INC     EAX
        CMP     BYTE PTR [EAX],0
        JE      @@SALIR
        MOV     CL,[EAX]
        MOV     BYTE PTR [EDX],CL
        INC     EDX
        INC     Result
        JMP     @@SIG4
@@SALIR:
        MOV     BYTE PTR [EDX],0
end;

Por ejemplo:

Código Delphi [-]
var
  Str: String;
begin
  Str:= Copy('SLS_F/000105',1,MAXINT);
  Quitar0(PChar(Str),PChar(Str));
  ShowMessage(Str);
end;

que forma de perder el tiempo ...

Es increible la de tiempo que tienen algunos!!

Saludos

[[seoane]]

Empezado por Bicho

Es increible la de tiempo que tienen algunos!!

Pues la verdad es que tengo un montón de trabajo que hacer, pero como digo debajo de mi nombre, me dedico a procrastinar

[marcoszorrilla]

Algo así igual también pueda valerte:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=StringReplace(Edit1.Text,'/000','/',[rfReplaceAll]);
end;

Un Saludo.

[Neftali [Germán.Estévez]]

Empezado por seoane

solo los que se encuentran entre la barra y la primera cifra significativa.

En este caso sería por si fuera útil buscar 000.
Si és sólo para discriminar algunos, como tú comentas, está claro que no es útil.

[[kuan-yiu]]

Gracias a todos por vuestras respuestas, jejeje, me habéis alegrado la tarde (pensé que nadie respondería porque estaba preguntando una trivialidad).

Aclaraciones:
* No me vale el "replace" porque eliminaría todos los ceros y algunos de ellos los necesito.
* Creo que pasaré de la versión larga del algoritmo... prefiero código que dentro de 6 meses pueda entender sin un manual (aunque tampoco puedo decir que lo entienda en este momento).
* Las facturas actualmente tienen 2 ó 3 dígitos, así que el número de ceros es de 4 ó 3, pero nada me garantiza que no lleguemos a la factura 1000, así que prefiero un método más elegante que el de ensayo-error (aunque me conozco y seguro que acabaré haciendo algo así, aunque me sentiré muy culpable por hacerlo).