Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 02-07-2007
Avatar de flystar
flystar flystar is offline
Miembro
 
Registrado: jul 2006
Posts: 184
Poder: 12
flystar Va por buen camino
Funcion para borrar la cadena que aparesca repetida dentro de otra cadena

Buenos Días:

Existe alguna función en Delphi que borre las cadenas que aparescan repetidas dentro de otra cadena?

POr ejemplo:

En la cadena "El aguila vuela, aguila es veloz y aguila ataca cuando se enoja"
La cadena "aguila" aparece 3 veces y es necesario borrar las 2 que se repiten para que quede asi:

"El aguila vuela, es veloz y ataca cuando se enoja"

Gracias.
__________________

"Los unicos que no se equivocan son aquellos que no intentan hacer algo."
Iván Caballero Cano...
ivanhalen77@gmail.com
Responder Con Cita
  #2  
Antiguo 02-07-2007
Avatar de seoane
[seoane] seoane is offline
Miembro Premium
 
Registrado: feb 2004
Ubicación: A Coruña, España
Posts: 3.717
Poder: 17
seoane Va por buen camino
Cita:
Empezado por flystar
Existe alguna función en Delphi que borre las cadenas que aparescan repetidas dentro de otra cadena?
Pues no, aunque parezca mentira alguna vez hay que teclear algo de código. No siempre hay objetos o funciones para todo. Pero todo se andará, quizá algún día delphi traerá la función "MataAFlander" en una de sus librerías

Código Delphi [-]
function nodup(Str: String): String;
var
  Parser: TParser;
  Stream: TStringStream;
begin
  Result:= EmptyStr;
  with TStringList.Create do
  try
    Stream:= TStringStream.Create(Str);
    try
      Parser:= TParser.Create(Stream);
      try
        if IndexOf(Parser.TokenString) = -1 then
          Add(Parser.TokenString);
        while not (Parser.NextToken = toEOF) do
          if IndexOf(Parser.TokenString) = -1 then
            Add(Parser.TokenString);
        Delimiter:= #32;
        Result:= DelimitedText;
      finally
        Parser.Free;
      end;
    finally
      Stream.Free;
    end;
  finally
    Free;
  end;
end;

// Ejemplo
ShowMessage(nodup('El aguila vuela, aguila es veloz y aguila ataca cuando se enoja'));
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Funcion para buscar cadena dentro de otra cadena y el numero de veces flystar Varios 3 02-07-2007 22:48:08
Funcion SUM me regresa una cadena paty_rlopez Firebird e Interbase 6 18-04-2006 15:13:10
Funcion de Que Retorna una Cadena Abel Garcia Firebird e Interbase 4 23-07-2005 10:30:02
Borrar caracteres de una cadena jymy788 Varios 2 29-10-2004 12:36:11
Buscar cadena dentro de otra cadena doverzhoff Varios 4 27-01-2004 05:27:15


La franja horaria es GMT +2. Ahora son las 20:36:14.


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