delphi - Split en string op i flere dele - Udvikleren.dk

Tags: delphi

Bruger #1330 @ 22.02.06 20:41

Hej allesammen,

jeg er under udviklingen af scripting support til min hjemmekodede IRC klient stødt på et problem..

Brugerne skal ha mulighed for at kunne eksekvere deres egne scripts med parametre. men!

man skal kunne angive parametre med mellemrum, så fremt teksten er indrammet i "". ex:

/foo foo bar skal deles til
funktion: foo
param[0] = 'foo'
param[1] = 'bar'

men
/foo "foo bar" m00 skal deles til
funktion: foo
param[0] = 'foo bar'
param[1] = 'm00'

kan ikke lige finde på en smart måde at gøre det på, så håber der sidder nogle kloge hoveder herinde der kan fremtrylle noget kode

Med venlig hilsen
Ken Christensen

4 svar postet i denne tråd vises herunder
1 indlæg har modtaget i alt 5 karma

Sorter efter stemmer Sorter efter dato

Bruger #5620 @ 22.02.06 21:23

1.500

var
t:TStrings;
begin
t:=TStringList.Create;
t.Delimiter:=' ';
t.DelimitedText:='foo foo bar';
showmessage(t.text);
end;
-----------------------------------------------------------------------------

Min side ->www.the-hive.dk/~donp/

Bruger #1330 @ 22.02.06 21:33

659

Hey "Nørden",
ahh 1000 tak, kendte ikk lige til den funktion, men der kan man bare se

Med venlig hilsen
Ken Christensen

Bruger #782 @ 23.02.06 00:25

291

hvis du bruger den funktion får du en parameter ved hvert mellemrum også når det er indkapslet i ""

Jeppe Johansen
Jeppesoftware@hotmail.com

Bruger #5620 @ 23.02.06 11:32

1.500

det har han jo ret i desvære så her er en lille videre udvikling.

Kode

var
  t,p:tstrings;
  i:integer;
begin
  t:=TStringList.Create;
  p:=TStringList.Create;
  t.Delimiter:=' ';
  t.QuoteChar:=char(0);
  t.DelimitedText:='"foo bar" foo "" bar "foo"';
  i:=0;
  while i<t.Count do
  begin
    p.Add(t.Strings[i]);
    if(t.Strings[i][1]='"')and(t.Strings[i][length(t.Strings[i])]<>'"')then
    begin
      inc(i);
      while(t.Strings[i][length(t.Strings[i])]<>'"')and(i<t.Count)do
      begin
        p.Strings[p.Count-1]:=p.Strings[p.Count-1]+' '+t.Strings[i];
        inc(i);
      end;
        p.Strings[p.Count-1]:=p.Strings[p.Count-1]+' '+t.Strings[i];
    end;
    inc(i);
  end;
  showmessage(p.text);

t.QuoteChar:=char(0);

skal være en eller anden usandsynlig char i inputet
-----------------------------------------------------------------------------

Min side ->www.the-hive.dk/~donp/

Split en string op i flere dele

Karma barometer (30 dage)

Modtaget

Givet

Favorit hos
Forum tråde
Artikler