Функции Split, Join, GetElement -> Форум на Исходниках.RU [Powered by Invision Power Board]

<{CODE_COLLAPSE_OFF}><{CODE_WRAP_OFF}>

uses StrUtils; // для PosEx

const

// Разделитель по умолчанию для Split, Join, GetElement

DefListDelim = ';';

...

type

// Алиас типа вместо нового объявления - в целях совместимости.

// Можно было бы юзать TArray<string>, но он глючит при использовании в параметрах

// (i := Low(arr) - пишет Incompatible types)

TStrArray = Types.TStringDynArray;

...

function Split(const Str: string; Delim: string = DefListDelim; AllowEmpty: Boolean = True): TStrArray;

function GetElement(const Str: string; ElemIdx: Integer; Delim: string = DefListDelim): string;

function Join(const Arr: array of string; Delim: string = DefListDelim; AllowEmpty: Boolean = True): string;

...

// Расщепление строки Str на массив элементов.

// Str - исходная строка

// Delim - разделитель элементов в строке (может насчитывать сколько угодно символов)

// AllowEmpty - добавлять ли в массив пустые элементы ('elem1;elem2;;elem3').

// Потребуется, если исходная строка представляет собой неоднородный список

// с фиксированными индексами элементов

// Пример:

// HTMLlines := Split(HTMLPageSource, #13#10, False)

// BananaProperties := Split('banana;yellow;;Africa', ';', True)

function Split(const Str: string; Delim: string; AllowEmpty: Boolean): TStrArray;

var CurrDelim, NextDelim, CurrIdx: Integer;

begin

if Str = '' then begin SetLength(Result, 0); Exit; end;

CurrDelim := 1; CurrIdx := 0; SetLength(Result, 16);

repeat

if CurrIdx = Length(Result) then

SetLength(Result, CurrIdx + 16); // проверяем наполненность массива и расширяем при необходимости

NextDelim := PosEx(Delim, Str, CurrDelim); // позиция следующего разделителя

if NextDelim = 0 then NextDelim := Length(Str)+1; // строка кончилась

Result[CurrIdx] := Copy(Str, CurrDelim, NextDelim - CurrDelim);

CurrDelim := NextDelim + Length(Delim);

// если элемент непуст или же пустые допустимы - увеличиваем индекс

if (Result[CurrIdx] <> '') or AllowEmpty

then Inc(CurrIdx)

else Continue;

until CurrDelim > Length(Str);

SetLength(Result, CurrIdx); // обрезаем массив

end;

// Получение 0-based элемента из строки с разделителями

// Str - исходная строка

// ElemIdx - индекс элемента, от 0 до ...

// Delim - разделитель элементов в строке (может насчитывать сколько угодно символов)

// Пример:

// value := GetElement('GeneralSettings.SomeIniOption = 123', 1, ' = ');

function GetElement(const Str: string; ElemIdx: Integer; Delim: string): string;

var CurrDelim, NextDelim, Idx: Integer;

begin

Result := ''; CurrDelim := 1;

// ElemIdx раз ищем символ разделителя в строке

for Idx := 1 to ElemIdx do

begin

CurrDelim := PosEx(Delim, Str, CurrDelim);

if CurrDelim = 0 then Exit;

Inc(CurrDelim, Length(Delim)); // теперь здесь индекс первого символа следующего элемента

end;

NextDelim := PosEx(Delim, Str, CurrDelim); // ищем конечный разделитель

if NextDelim = 0 then NextDelim := Length(Str) + 1;

Result := Copy(Str, CurrDelim, NextDelim-CurrDelim);

end;

// Объединение всех строк из массива в одну с разделителями (обратно Split)

// Arr - массив строк

// Delim - разделитель элементов в строке (может насчитывать сколько угодно символов,

// (!) в том числе и ни одного (!) )

// AllowEmpty - добавлять ли в строку пустые элементы

// Потребуется, если итоговая строка должна представлять собой неоднородный список

// с фиксированными индексами элементов

// Пример:

// FruitList := Join(['apples', 'bananas', 'grape'], '; ')

// BananaProperties := Join([Banana.Name, Banana.Color, '', Banana.Country], ';', True)

// ReJoin := Join(Split('one;two;three'), '|');

function Join(const Arr: array of string; Delim: string; AllowEmpty: Boolean): string;

var i: Integer;

begin

Result := '';

for i := Low(Arr) to High(Arr) do

begin

if (Arr[i] = '') and not AllowEmpty then Continue;

if Result = ''

then Result := Arr[i]

else Result := Result + Delim + Arr[i];

end;