IntSplit

[CurryWurst]

Script Name: IntSplit
Script Description Splits a string into an array of integer
Author: Dual

Hosted by: http://soldatcentral.com/
Core Version: 2.6.3
Compile Test: Passed

The function IntSplit() splits a string representing integer values into an array of integers.
SOURCE determines the string to be splitted by the Delimiter.

Code: [Select]

function IntSplit(const SOURCE: string; Delimiter: string): array of integer;
var
  i, x, d: integer;
  s, b: string;
begin
  d:= length(Delimiter);
  i:= 1;
  SetArrayLength(Result, 1);
  while (i <= length(SOURCE)) do
  begin
    s:= Copy(SOURCE, i, d);
    if (s = Delimiter) then
    begin
      Inc(i, d)
      SetArrayLength(Result, x + 1);
      if (RegExpMatch('^-?\d+$', b)) then
      begin
        Result[x]:= StrToInt(b);
      end;
      b:= '';
      Inc(x, 1);
    end else
    begin
      b:= b + Copy(s, 1, 1);
      Inc(i, 1);
    end;
  end;
end;

Parameters:

SOURCE: string
String to be splitted into an array of integer.

Delimiter: string
Defines a string as split point.

Return Value:

Depending on the amount of delimiters the SOURCE string contains, the elements count of the integer array will increase.

Note:

IntSplit() will always return at least one array element. The function also ignores non-integer values by skipping them.
Integer values with a negative (-) algebraic sign count as legal integer values.

(Size 655 B)
- http://soldatcentral.com/index.php?page=script&f=95 -

** Script hosted by Soldat Central! Please visit the author's script page and Rate this script **

[Gizd]

xSplit

[chutem]

^ you think he doesn't know about that?

Look at his script name IXSplit. i.e Integer-XSplit, which is what it does, splits a string into an array of integer...

[CurryWurst]

Look at his script name IXSplit. i.e Integer-XSplit, which is what it does, splits a string into an array of integer...

Exactly

[Gizd]

Oh, nice func then

[frosty]

how would i use this? could someone give an example plz?

[iDante]

how would i use this? could someone give an example plz?

It's for scripters to use. Say, you loop through every player and add their score to a string with a space in between. Later you can use this script to split it into an array of integers.

Handy to have.

[CurryWurst]

Function renamed as IntSplit to avoid name confusion with XSplit.