115 lines
2.5 KiB
Plaintext
115 lines
2.5 KiB
Plaintext
unit stringutil;
|
|
|
|
{$mode objfpc}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils,mufasatypes;
|
|
|
|
type
|
|
StrExtr =(Numbers, Letters, Others);
|
|
function ExtractFromStr( Str : string; Extract : StrExtr) : string;
|
|
function Capitalize(str : string) : string;
|
|
function Implode(Glue : string; Pieces: TStringArray): string;
|
|
function Explode(del, str: string): TStringArray;
|
|
|
|
implementation
|
|
|
|
function Implode(Glue: string;Pieces: TStringArray): string;
|
|
var
|
|
I, Len : integer;
|
|
begin
|
|
Len := high(Pieces);
|
|
if (Len < 0) then
|
|
exit;
|
|
Result := Pieces[0];
|
|
for i := 1 to len do
|
|
result := result + Glue + Pieces[i];
|
|
end;
|
|
|
|
function Explode(del, str: string): TStringArray;
|
|
var
|
|
i,ii : integer;
|
|
lastpos : integer;
|
|
lenstr : integer;
|
|
lendel : integer;
|
|
lenres : integer;
|
|
matches : boolean;
|
|
begin;
|
|
lastpos := 1;
|
|
lenres := 0;
|
|
setlength(result,lenres);
|
|
lendel := length(del);
|
|
lenstr := length(str);
|
|
// for i := 1 to lenstr do
|
|
i := 1;
|
|
while i <= lenstr do
|
|
begin;
|
|
if not ((i + lendel - 1) > lenstr) then
|
|
begin
|
|
matches := true;
|
|
for ii := 1 to lendel do
|
|
if str[i + ii - 1] <> del[ii] then
|
|
begin
|
|
matches := false;
|
|
break;
|
|
end;
|
|
if matches then
|
|
begin;
|
|
inc(lenres);
|
|
setlength(result,lenres);
|
|
result[lenres-1] := Copy(str,lastpos,i-lastpos);
|
|
lastpos := i+lendel;
|
|
i := i + lendel-1;//Dirty
|
|
if i = lenstr then //This was the trailing delimiter
|
|
exit;
|
|
end;
|
|
end else //We cannot possibly find a delimiter anymore, thus copy the rest of the string and exit
|
|
Break;
|
|
inc(i);
|
|
end;
|
|
//Copy the rest of the string (if it's not a delimiter)
|
|
inc(lenres);
|
|
setlength(result,lenres);
|
|
result[lenres-1] := Copy(str,lastpos,lenstr - lastpos + 1);
|
|
end;
|
|
|
|
function Capitalize(str : string) : string;
|
|
var
|
|
i , l : integer;
|
|
cap : boolean;
|
|
Range : set of char;
|
|
begin;
|
|
result := str;
|
|
l := length(str);
|
|
cap := true;
|
|
Range := ['a'..'z','A'..'Z'];
|
|
for i := 1 to l do
|
|
if cap and (str[i] in Range) then
|
|
begin;
|
|
result[i] := UpperCase(str[i])[1];
|
|
cap := false;
|
|
end else if not (str[i] in Range) then
|
|
cap := true;
|
|
end;
|
|
|
|
function ExtractFromStr( Str : string; Extract : StrExtr) : string;
|
|
var
|
|
Range : set of char;
|
|
i : integer;
|
|
begin;
|
|
case Extract of
|
|
Numbers : Range := ['0'..'9'];
|
|
Letters : Range := ['A'..'Z','a'..'z'];
|
|
Others : Range := [#0..#255] - ['0'..'9','A'..'Z','a'..'z'];
|
|
end;
|
|
Result := '';
|
|
for i := length(str) downto 1 do
|
|
if str[i] in Range then
|
|
result := str[i] + result;
|
|
end;
|
|
|
|
end.
|
|
|