Quitar Vocales repetidas de una Cadena

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

Empezado por Deiv

¿Cuál sería la Función para quitar vocales repetidas (unidas) de una cadena de manera que se convierta en una sola?

¿Quieres una orientación? o ¿Quieres que te la demos escrita?

Como orientación yo te diría que realices un recorrido utilizando un FOR, que uses dos variables para almacenar la vocal actual (a) y la vocal anterior (n) y una cadena destino (res); Con un IF dentro para comprobar si (a) es = a (n) y en ese caso la vocal actual no se debe guardar en la cadena destino, en caso contario sí.

[[seoane]]

No es el algoritmo mas eficiente, pero es eficaz

Código Delphi [-]
function Reducir(Str: string; C: Char): String;
begin
  while Pos(C+C, Str) > 0 do
    Str:= StringReplace(Str,C+C,C,[rfReplaceAll]);
  Result:= Str;
end;

var
  Vocales: String;
  i: integer;
  Str: String;
begin
  Vocales:= 'aeiouAEIOU';
  Str:= 'Arribaa en la mooontaña se divisabaa una llama que reecorría su traayectoo';
  for i:= 1 to length(Vocales) do
    Str:= Reducir(Str,Vocales[i]);
  ShowMessage(Str);
end;

[Deiv]

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

[Ñ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

[roman]

Empezado por Neftali

¿Quieres una orientación? o ¿Quieres que te la demos escrita?

Creo que ha quedado claro