Framework 000 - COMMON

// Renvoi le nombre de sous-chaine séparé par sep dans src
function CountField(src : string; sep : string) : integer;
Var
i : integer;
s : string;
begin
if (src = '') then
begin
result := 0;
exit;
end;

result := 1;
for i := 1 to length(src) do
begin
s := copy(src, i, length(sep));
if (s = sep) then
inc(result);
end;
end;

function GetField(src : string; sep : string; num_field : integer) : string;
Var
i,n : integer;
s : string;
begin
result := '';
if (CountField(src,sep) < num_field) then
exit;
s := src;
for i := 1 to num_field-1 do
begin
n := pos(sep, s);
if (n > -1) then
s := copy(s, n+length(sep), length(s) - n); // s := copy(s, n+1, length(s) - n);
end;

n := pos(sep, s);
if (n = 0) then
n := length(s)+1;

result := trim(copy(s, 0, n-1));
end;