"pos" je funkcija, mislim da se u visual basicu zove InStr. Uglavnom, malo preradi za visual basic i to je to.
Code:
function UzmiDelimiter(s: string; c: char; n: integer): string;
var
i: integer;
temps: string;
begin
if n = 0 then
begin Result := '';
Exit;
end;
if pos(c, s) = 0 then
begin
if n > 1 then
UzmiClan := ''
else
UzmiClan := Trim(s);
Exit
end
else
begin
for i := 1 to n do
begin
temps := Trim(copy(s, 1, pos(c, s) - 1));
delete(s, 1, pos(c, s));
s := Trim(s);
if c = ' ' then s := s + ' ';
end;
temps := Trim(temps);
UzmiClan := temps;
end;
end;
Koristi se ovako:
Code:
strTest := 12|34|56;
strDio := uzmiClan(strTest, "|", 2);
strDio bi imao vrijednost 34.
F