Splitte kommasepareret streng

man kan omgå den lidt med Copy() og Delete() functionerne, men en egenlig split funktion kender jeg ikke til...

prøv at kikke på http://www.eksperten.dk/spm/87786

eller http://www.eksperten.dk/spm/109788

Der var en bug i eksperten den gang .. Derfor poster jeg lige koden igen :

Function ResolveNextToken(var s : String; const Token : String) : String;
var
  j : Integer;
begin
  Result := '';
  if s='' then
    Exit;

  j:= Pos(Token,s);
  if j <> 0 then
  begin
    dec(j);
    Result:=copy (s,1,j);
    Delete(s,1,j+ Length(Token));
  end
  else
  begin
    Result:=s;
    s:= '';
  end
end;


Bruges så dan her :

var
  s : String;
  Token : String;
begin
  S:= 'Jakob,Thomsen,Jens,Borrisholt' ;
  repeat
    Token := ResolveNextToken(s);
    ShowMessage(Token);
  until s := '';
end;


Jens B

borrisholt -> Det er måske bare mig der ikke forstår koden, men den lægger da ikke værdierne ind i en array?

Nej ...  Arrays er ikke passende til formålet .. Prøv med en TStringList:


vat
  s : String;
  Token : String;
  StringList : TStringList;
begin
  S:= 'Jakob,Thomsen,Jens,Borrisholt' ;
  StringList := TStringList.Create;

  repeat
    StringList.Add(ResolveNextToken(s));
  until s := '';
end;

Jens B

Du kan også gøre sådan her:

  L := TStringList.Create;
  L.CommaText := 'din,string,skal,være,her';
  Memo1.Lines.Add(inttostr(L.Count));

Så har du elementerne i et array. Du skal dog være opmærksom på at hvis din string slutter med et komma, ex.

'din,string,skal,være,her,'

Så kommer der stadig kun 5 elementer i arrayet, ikke 6 som jeg synes der skulle være.

zimp >> det er selvfølgelig MÅDEN at gøre det på !!! ( Ville selv ha' foreslået en TStringList )

Selvfølgelig havde jeg ikke tænkt på ....

Så skal hvis du skal loade det fra en fil af så gør sådan her :

var
  aFile : TStringList;
  EleMents : TstringList;
i : INteger;
begin
  aFile := TStringList.Create;
  EleMents : TstringList.Create;
  aFile.LoadFromFile('C:\hest.txt');
  for i := 0 to AFile.Count -1 do
    EleMents.CommaText := EleMents.CommaText + aFile[i]
end;

Jens B

Hva' Jens skal du snart ind og sove ????

var
  aFile : TStringList;
//  EleMents : TstringList;
//  i : INteger;
begin
  aFile := TStringList.Create;
  // EleMents : TstringList.Create;
  aFile.LoadFromFile('C:\hest.txt');
  // Kan evt. sættes hvis der ikke bruges komma
  // aFile.Delimiter

// følgende er IKKE nødvendigt !!!!
  for i := 0 to AFile.Count -1 do 
    EleMents.CommaText := EleMents.CommaText + aFile[i]

end;

Oki ... Du har ret .. Men BRUG ALDRIG commaText ..... Det kan jeg gøre 550 gange hurtigere ....

Jeg vender tilbage senere ....

Jens B

Endnu engang så synes jeg at sådan noget pjat skal man altså lave i assembly.. Er i klar over hvor hurtigt det kan gøres med gode gamle loops? :P

just my 2 cents...

www.borrisholt.com/eksperten/CommaText.zip

500 gange hurtigere end Borlands kode ! UDEN brug af Assembler !

Jens B

Hej alle, undskyld det forsinkede svar, har lige været væk :). Jeg prøver lige løsningerne igennem og vender tilbage snart :)

.....

Jeg undskylder igen, de få gange i løbet af de sidste par dage jeg har været på, har Eksperten været nede. Det bliver borrisholt der løber af med pointene (hæver lige til 25). Jeg bukker og siger mange tak.