Аналог string s.Split(..) в Delphi

[ppkp]

Понимаю, что это парсер, но именно такой, а не навороченный я ищу.
Подскажите, где взять исходники сего чуда.

 

[phpdelphi]

а какие функции выполняет?

 

[ppkp]

Разбивает строку на подстроки в соответствии с заданными разделителями

 

[brs]

list:=TStringList.Create;
list.Delimiter:=';';
list.Text:='1;2;3';

for I := 0 to List.Count - 1 do
result:=list.Strings;

 

[ppkp]

Спасибо, Совсем забыл про эти properties. Только подправил

List.Delimiter := ',';
List.QuoteChar := '"';
List.DelimitedText := '"asa. sds bb","aaa «Delphi» cc",4.6,5.00,3';

Но это работает только с одним типом Delimiter, а универсальности нет.
Спасибо большое.

 

[brs]

Вот еще

function StringSplit(Str,Delim:String):TStrings;
var
I,Start,Count: Integer;
begin
Result := TStringList.Create;
Start := 1;
I := 1;
Count := 0;
While I < Length(Str) do
begin
if Copy(Str,I,Length(Delim)) = Delim then
begin
Result.Add(Copy(Str,Start,I - Start));
I := I + Length(Delim);
Start := I;
end
else
I := I + 1;
end;
if Length(Str) > 0 then
Result.Add(Copy(Str,Start,Length(Str)));
end;

 

[ppkp]

Спасибо, большое спасибо. В принципе вариант с TStrings.DelimitedText подходит для всех нужных типов разделителей. А с TStringGrid Вы работали ? Мне необходимо перетащить Selected в другое место этой же таблицы (a-la Excel).

 

[dxsoft]

Here some Code I usually Use
I Hope this will be help you

type
TStringArray = array of String;

function BuffTextEqualAsm(const Str1, Str2: PChar; MaxLen: Cardinal): Boolean; assembler;
asm
PUSH EDI
PUSH ESI
PUSH EBX
MOV EDI,EDX
MOV ESI,EAX
MOV EBX,ECX
XOR EAX,EAX
OR ECX,ECX
JE @@T
REPNE SCASB
SUB EBX,ECX
MOV ECX,EBX
MOV EDI,EDX
XOR EDX,EDX
@@1:
REPE CMPSB
JE @@T
MOV AL,[ESI-1]
CMP AL,'a'
JB @@2
CMP AL,'z'
JA @@2
SUB AL,20H
@@2:
MOV DL,[EDI-1]
CMP DL,'a'
JB @@3
CMP DL,'z'
JA @@3
SUB DL,20H
@@3:
SUB EAX,EDX
JE @@1
@@F:
xor EAX,EAX
jmp @@E
@@T:
mov EAX,1
@@E:
POP EBX
POP ESI
POP EDI
end;

function IndexedWithToken(const Src: String;const Index: Integer;Token:String = ','): String;
var
P, Start : PChar;
tkLength : Integer;
LocalIndex : Integer;
begin
Result := '';
LocalIndex := 1;
tkLength := Length(Token);
P := Pointer(Src);
Start := P;
if Index <= 0 then Exit;

if P <> nil then begin
while P^ <> #0 do
begin
while Not ((P^ In [#0]) or BuffTextEqualAsm(P,Pointer(Token),tkLength)) do Inc(P);
if P <> Start then
begin
if LocalIndex = Index then
begin
SetString(Result, Start, Integer(P - Start));
Exit;
end;
end;
if P^ = #0 then break;
Inc(LocalIndex);
Inc(P,tkLength);
Start := P;
end;
end;
if P <> Start then
begin
if LocalIndex = Index then
begin
SetString(Result, Start, Integer(P - Start));
Exit;
end;
end;
end;

procedure StringSplit(SourceStr,SplitStr: string;var SplitStrs: TStringArray);
var
i: Integer;
str: string;
begin
i := 1;
while True do
begin
str := IndexedWithToken(SourceStr,i,SplitStr);
if str <> '' then
begin
SetLength(SplitStrs,i);
SplitStrs[i-1] := str;
end
else Break;
Inc(i);
end;
end;

 

[Alexonix]

list.Delimiter:=';'; - к сожалению еще пробелы всегда за разделитель считает и новую строку.

 

[cg_shura]

{ Заполняет список List словами, выделенных из строки S,
разделителями слов являются любое кол-во символов из множества Delimiters.

Возвращает List. Чтобы можно было писать примерно следующим образом

sl := FillWordsList(SomeStr, SomeDelim, TStringList.Create);
try
Do something
finally
sl.Free;
end;
}
function FillWordsList(const S: string; const Delimiters: TSysCharSet; List: TStrings): TStrings;
var
I, J, Len: Integer;
Word: string;
begin
Assert(List <> nil);

Len := Length(S);
I := 1;

List.BeginUpdate;
try

while I <= Len do
begin
{прогнать token}
J := I;

while (I <= Len) and not (S in Delimiters) do
Inc(I);

{ if I = J then
Break;}

Word := Trim(Copy(S, J, I - J));

if Word <> '' then
List.Add(Word);

{прогнать delimiters}
while (I <= Len) and (S in Delimiters) do
Inc(I);
end;

finally
List.EndUpdate;
end;

Result := List;
end;

 

[ADnh47adhn]

к сожалению еще пробелы всегда за разделитель считает и новую строку

следует выставить TStrings.StrictDelimiter в False (идиотская фича новых RTL)
а вообще я бы посоветовал функцию SysUtils.ExtractStrings как максимально гибкий способ это сделать

 

[NevermoreBY]

Тот пример asm, не хочет работать, у кого-нить были с ним проблемы?

 

[Gaugan]

"Hey, for Delphi, you can use the 'Split' function from the System.SysUtils unit, it's pretty similar to string s.Split(..). Or you can also use regular expressions from the RegExpr unit. Both should do the trick."