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

Previous  Top  Next

    
 

 

Code:

{ **** UBPFD *********** by delphibase.endimus.com ****

>> Расщепление строки с разделителями на массив строк

 

Зависимости: System

Автор:       ALL.exe, Alexe@054.pfr.ru, ICQ:161857370, Kostroma

Copyright:   ALL.exe

Дата:        13 марта 2003 г.

***************************************************** }

 

type

TSepArr = array of string; // массив "записей"

 

TSepRec = record

   Rec: TSepArr; // сами "записи"

   Max: integer; // количество полученных "записей"

end;

 

function GetSeparatorRec(const sRows: string;

cSeparator: char = ','): TSepRec;

var

cCol: array of integer;

i, j: integer;

bSTRING: boolean;

begin

Result.Max := -1;

 

j := 1;

bSTRING := False;

SetLength(cCol, j);

cCol[0] := 0;

for i := 1 to Length(sRows) do

begin

   if sRows[i] = '"' then

     bSTRING := not bSTRING;

   if (sRows[i] = cSeparator) and (not bSTRING) then

   begin

     j := j + 1;

     SetLength(cCol, j);

     cCol[j - 1] := i;

   end;

end;

j := j + 1;

SetLength(cCol, j);

cCol[j - 1] := Length(sRows) + 1;

 

Result.Max := High(cCol);

if Result.Max > 0 then

begin

   SetLength(Result.Rec, Result.Max + 1);

   Result.Rec[0] := IntToStr(Result.Max);

   for i := 1 to Result.Max do

     Result.Rec[i] := Copy(sRows, cCol[i - 1] + 1, cCol[i] - cCol[i - 1] - 1);

end;

 

end;

//Пример использования:

 

var

R: TSepRec;

begin

R := GetSeparatorRec('123.45-ABCDEF-"A-B-C"-"0"-', '-');

 

// результат:

R.Max = 5;

R.Rec = ('5', '123.45', 'ABCDEF', '"A;B;C"', '"0"', '');

 

©Drkb::00880