occurs is:
function Occurs(const str, separator: string): integer;
var
i, nSep: integer;
begin
nSep:= 0;
for i:= 1 to Length(str) do
if str[i] = separator then Inc(nSep);
Result:= nSep;
end;
Andrea Mauri ha scritto:
I used this, check it.
// Returns an array with the parts of "str" separated by "separator"
function Split(const str: string; const separator: string): array of
string;
var
i, n: integer;
strline, strfield: string;
begin
n:= Occurs(str, separator);
SetLength(Result, n + 1);
i := 0;
strline:= str;
repeat
if Pos(separator, strline) > 0 then
begin
strfield:= Copy(strline, 1, Pos(separator, strline) - 1);
strline:= Copy(strline, Pos(separator, strline) + 1,
Length(strline) - pos(separator,strline));
end
else
begin
strfield:= strline;
strline:= '';
end;
Result[i]:= strfield;
Inc(i);
until strline= '';
if Result[High(Result)] = '' then SetLength(Result, Length(Result) -1);
end;
andrea
Wolfram Kläger ha scritto:
Here is a Delphi implementation of the common PHP function 'explode'.
http://www.michael-puff.de/Developer/Delphi/Code-Snippets/Explode.html
Your example then becomes to
..
A := Explode('-', 'ab-cd-ef');
writeln(A[1]); // expect 'cd'
..
The inverse is accomplished by using PHP like 'implode', which glues
all splitted parts back to a single string.
Wolfram
-----Ursprüngliche Nachricht-----
Von: FPC-Pascal users discussions <fpc-pascal@lists.freepascal.org>
Gesendet: 10.07.07 13:04:31
An: FPC-Pascal users discussions <fpc-pascal@lists.freepascal.org>
Betreff: [fpc-pascal] splitting string into array
Hi,
is there any function in the libraries of fpc for splitting a string
into an array naming the separator?
In awk for eample if you do this:
split("ab-cd-ef", x, "-")
print x[2]
it would split up the first string using "-" as separator and print
cd
to the output. That's what I'm searching for.
In pascal. ;)
TIA,
Marc
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
