Quitar dos espacios en cadena dejar uno

[Nasca]

Yo tengo esto:

Código Delphi [-]
function BorrarMultiEspacios(valor: string): string;
 begin
   repeat
       valor := StringReplace(valor,'  ',' ',[rfReplaceAll]);
   until
       pos('  ',valor) = 0 ;
   Result := valor;    
 end;

Ni idea de si es lo más optimo. De hecho ni recuerdo si es mio o lo copié de algún lado.
Otra opción en:
http://texthandler.com/?module=remov..._spaces_delphi
Aunque no creo que sea mucho mas eficiente.

O adaptar este código de c#, bastante similar al mío:

    while (text.IndexOf("  ") != -1)
    {
        text = text.Replace("  ", " ");
    }
    return text;

Aunque hace básicamente lo mismo y no creo que sea mucho más eficiente que el primero.

[roman]

A ver si ésta (recorre una sóla vez la cadena):

Código Delphi [-]
function ComprimeEspacios(S: String): String;
var
  I: Integer;

begin
  I := 1;

  while I <= Length(S) do
  begin
    while (I <= Length(S)) and (S[i] <> ' ') do
      Inc(I);

    Inc(I);

    while (I <= Length(S)) and (S[i] = ' ') do
      Delete(S, I, 1);

    Inc(I);
  end;

  Result := S;
end;

// Saludos

[ecfisa]

Hola.

Otra opción:

Código Delphi [-]
function DeleteExtraSpaces(str: string): string;
var
  i: integer;
begin
  for i := 1 to Length(str)-1 do
    while (str[i] = ' ') and (str[i+1] = ' ') do
      Delete(str, i+1, 1);
  Result := str;
end;

Saludos

[sonjeux]

Muchas gracias a todos, me sirvio un moton

[mamcx]

Esa es una forma destructiva (borrando). Otra manera es construir una nueva cadena, y cuando hay un espacio agregar el primero e ignorar los que vengan.

[ecfisa]

Empezado por mamcx

Esa es una forma destructiva (borrando). Otra manera es construir una nueva cadena, y cuando hay un espacio agregar el primero e ignorar los que vengan.

Si, tenes razón... y con seguridad es mas eficiente al omitir la llamada a la función Delete:

Código Delphi [-]
function IgnoreExtraSpaces(str: string): string;
var
  i: integer;
begin
  SetLength(str, Length(str)+1);
  for i := 1 to Length(str)-1 do
    if (str[i] <> ' ') or (str[i+1] <> ' ') then
      Result := Result + str[i];
end;

Saludos

[roman]

Hola ecfisa,

Esta última versión se ve mucho mejor pero me queda la duda de si no falla cuando la cadena termina en espacios. Por otro lado, no entiendo el uso de SetLength.

pd: buena observación de mamcx, ya que borrar un caracter implica el reacomodo del resto de la cadena.

// Saludos

[[escafandra]]

Otra opcion, esta vez en asm:

Código Delphi [-]
function BorraMultiespacios(S: String): String;
var
  Cadena: PCHAR;
begin
  Cadena:= @S[1];
  asm
  mov       edi, Cadena
  mov       esi, edi
@loop1:
  cmp       word ptr [esi], 2020h
  jne       @sigue
  inc       esi
  jmp       @loop1
@sigue:
  movsb
  cmp       byte ptr [esi], 0
  jne       @loop1
  mov       word ptr [edi], 0h
  end;
  Result:= Cadena;
end;

Saludos.

[roman]

Empezado por escafandra

Otra opcion, esta vez en asm:

Código Delphi [-]
function BorraMultiespacios(S: String): String;
var
  Cadena: PCHAR;
begin
  Cadena:= @S[1];
  asm
  mov       edi, Cadena
  mov       esi, edi
@loop1:
  cmp       word ptr [esi], 2020h
  jne       @sigue
  inc       esi
  jmp       @loop1
@sigue:
  movsb
  cmp       byte ptr [esi], 0
  jne       @loop1
  mov       word ptr [edi], 0h
  end;
  Result:= Cadena;
end;

Saludos.

¡Joder! Sí que rizamos el rizo Seguro que así es lo más eficiente.

// Saludos

[Casimiro Noteví]

Empezado por roman

¡Joder! Sí que rizamos el rizo Seguro que así es lo más eficiente.
// Saludos

Habría que comprobarlo, lo mismo el compilador de delphi crea un código similar con alguna de las propuestas anteriores
¿Alguien se anima a probar y calcular el tiempo con cada opción?

[roman]

Empezado por Casimiro Notevi

Habría que comprobarlo, lo mismo el compilador de delphi crea un código similar con alguna de las propuestas anteriores

Quién sabe. La misma RTL implementa algunas cosas en ensamblador. Sobre todo las que tienen que ver con el recorrido de cadenas.

Por otra parte, si usa una versión de Delphi que tenga expresiones regulares yo las usaría sin pestañear Por ejemplo, en php:

Código PHP:

function comprimeEspacios($s) {
  return preg_replace('/ +/', ' ', $s);
} 


// Saludos