Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Eliminar Caracteres (https://www.clubdelphi.com/foros/showthread.php?t=41866)

ZayDun 28-03-2007 01:06:27

Eliminar Caracteres
 
wenas!!

me gustaria saber alguna forma de como poder borrar el contenido de una string..


ejemplo: NICK!datosaleatorios@masdatos :mensaje

me gustaria que se kedara "NICK mensaje" y eliminar la direccion del centro ya que depende del usuario varian los caracteres y no puedo eliminar sin saber los caracteres exactos, lo que si quiero comentar es que si hubiese alguna forma de decir que elimine desde "!" hasta ":" que esos datos siempre llegan y es justo lo que no me vale.GRACIAS!

egostar 28-03-2007 01:15:01

A reserva de que los que saben digan algo mas coherente.

Porque no mejor concatenas las cadenas, algo así

Código Delphi [-]
Cadena := 'NICK!' + Variable + ':mensaje';

y así solo reinicias la Variable

Salud OS.

Edito: Estoy suponiendo que lo haces con Delphi.

Albano 28-03-2007 01:52:13

Código Delphi [-]
  s := edit1.Text;
  Delete(s,pos('!',s),pos(':',s)-5);
  label1.Caption := s;
En Edit1 puse el texto que decías y con este código funciona bien.
"s" es una variable de tipo string;

egostar 28-03-2007 02:04:08

Muy bien, solo hay que modificar algo en tu función

Delete()

Código Delphi [-]
Delete(s,pos('!',s)+1,pos(':',s)-6);

De otra forma quedaria NICK:mensaje y se requiere NICK!:mensaje

Ahora la parte inversa, agregar el correo entre NICK! y :mensaje

Código Delphi [-]
correo := 'datosaleatorios@masdatos';   
s := Label1.Caption;   
insert(correo,s,6);   
Label1.Caption := s;

PD: Sigo pensando que es mas fácil tener 'NICK!' y ':mensaje' como constantes.

Salud OS.


La franja horaria es GMT +2. Ahora son las 07:50:11.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi