Quitar Vocales repetidas de una Cadena

[Ñuño Martínez]

Empezado por Deiv

Gracias Seoane,
Siempre tan gentil, no conocía esa función en Delphi 7.

No la conocías simplemente porque no existía, hasta que Seoane la escribió.

[[seoane]]

Volviendo a la idea de Neftali, que al contrario que la mía si que era eficiente además de eficaz , tendríamos esto otro:

Código Delphi [-]
function Reducir(Str: String): String;
var
  C: Char;
  i: integer;
begin
  C:= #0;
  Result:= EmptyStr;
  for i:= 1 to Length(Str) do
  begin
    if pos(Str[i],'aeiouAEIOU') > 0 then
    begin
      if Str[i] <> C then
        Result:= Result + Str[i];
    end else
      Result:= Result + Str[i];
    C:= Str[i];
  end;
end;

var
  Str: String;
begin
  Str:= 'Arribaa en la mooontaña se divisabaa una llama que reecorría su traayectoo';
  ShowMessage(Reducir(Str));
end;

[Deiv]

Gracias Seoane ambas funcionan bien

Empezado por Ñuño Martínez

No la conocías simplemente porque no existía, hasta que Seoane la escribió.

EDITO: no conocía la función: StringReplace
.

[Frankus]

Como hago lo mismo pero con sentencias SQL??
Eliminar datos con letras repetidas mas de 5 veces

[adfa]

Con conjuntos me gusto.

Código Delphi [-]
function TForm1.sacarVocalesRepetidas(texto: string): string;
var
  i: integer;
  vocales: set of char;
  ant: char;
begin
  ant     := #0;
  vocales := ['a', 'e', 'i' ,'o' ,'u','A','E','I','O','U'];
  result  := '';
  for i := 1 to length(texto) do
  begin
    if not (texto[i] in vocales) then
      result := result + texto[i]
      else
      if texto[i] <> ant then result := result + texto[i];
    ant := texto[i];
  end;
end;

Saludos

[Frankus]

Bueno creo q no saben bien sobre SQL... su especialidad es Delphi ya bueno, gracias por todo .. Nos vmos Foro
Cya

[adfa]

Empezado por Frankus

Bueno creo q no saben bien sobre SQL... su especialidad es Delphi ya bueno, gracias por todo .. Nos vmos Foro
Cya

En mi caso es probable que tengas razón y sepa poco de sql (bueno de Delphi tambien pero en fin...).
Despues que postee me di cuenta que el tema era muy viejo y que vos lo reviviste con lo del sql.

Hasta donde yo se solo con sql no se puede, tendrías que programar un triger en la base de datos o alguna stored procedure en el lenguaje que soporte la base para hacerlo.
Si no tendrías que recorrerte la tabla utilizar alguna función como las que aqui aparecen (o en el lenguaje que uses, porque por tu comentario quiza no sea Delphi) e ir remplazando los campos de texto.

Saludos

[Ñuño Martínez]

Empezado por Frankus

Como hago lo mismo pero con sentencias SQL??
Eliminar datos con letras repetidas mas de 5 veces

Hasta donde sé, me temo que sólo con SQL no se puede hacer. Tal vez con alguna extensión como PL o así. De cualquier forma siempre puedes comprobar los datos desde Delphi.