StringReplace - fjerne mellemrum

Tja. Hvis du erstatter to mellemrum med et mellemrum og bliver ved med at kalde
den indtil der ikke findes nogen, saa vil du opnaa det oenskede. Det er dog ikke
specielt effektivt.

nu er det lidt svært at se hvor du vil have fjernet det
men går ud fra at du '2 mellemrum' mellem 1 3 og 4 5?

s1 := '1111  3 4  5'
s2 := StringReplace(s1, '  ', ' ',[rfReplaceAll]);

hov mangler et ; i første linie

vallemanden> hvis du ser på min tekst så vil du se at det jeg vil opnå er at fjerne alle mellemrum ud over 1 mellem hver parameter
1111...3.4..5  til  1111.3.4.5  (prikker for at vise mellemrum)

Det er parametre til et fjernestyringssystem og det sker at brugerne taster ekstra mellemrum ind i deres SMS besked og så har jeg balladen.

s1 := '1111        3    4  5'

while pos(#32#32,s1)>0 do
  s1:=StringReplace(s1, #32#32, #32,[rfReplaceAll]);

repeat
  p := pos(#32#32,aString);
  if p > 0 then
    System.Delete(aString,p,1);
until p = 0;

Der findes også en variant af pos der har et offset så man ikke starter forfra hver gang - men til små strenge kan det ikke betale sig.

Hvis det er hastighed du har brug for så er denne metode hurtigere end pos og StringReplace metoden:

var
  i : integer;
begin
  i:=length(s);
  while i>1 do
  begin
    if (s[i]=#32) and (s[i-1]=#32) then
      Delete(s,i,1);
    dec(i);
  end;
end;

Hvis hastighed er vigtig så skal man undgå både StringReplace og Delete.

Noget a la:

function strip5(s : string) : string;

var
  tmp : string;
  i, ix : integer;

begin
  tmp := s;
  ix := 1;
  for i := 1 to length(s) do begin
    if (s[i] <> ' ') or ((i > 1) and (s[i-1] <> ' ')) then begin
      tmp[ix] := s[i];
      inc(ix);
    end;
  end;
  result := copy(tmp, 1, ix);
end;

Nu mangler vi bare et BASM-eksempel.

Bare for sjov skyld i python.
s1 = '1111  3 4  5'
print " ".join(str.split())
1111 3 4 5

Der er et eller andet galt her - jeg har sendt en kommentar og bedt arne_v om et svar da jeg endte med at bruge hans eksempel som udgangspunkt for min løsning, men den er da forsvundet igen.

Så arne_v du må gerne lægge et svar.

svar