найти числа в строке

string Text[4];

int ch[100];
int k;

Text[0]="17 8";
Text[1]="100 5";
Text[2]="76 56 98";
Text[3]="856123";

ffn(#Text[0], 4, #ch[0], #k);

for (int f=0; f<k; f++)
{
messagebox (ch[f]);
}

function ffn(string #tx, int p, int #tc[0], int #tk)
{
string t;
char c[1000];
int sz;
tk=0;
for (int n=0; n<p; n++)
{
sz=size(tx[n]);
strcpy(#c[0], Text[n]);
t="";
for (int x=0; x<sz; x++)
{
if (c[x]==' ')
{
tc[tk]=formatsn(t);
tk++;
t="";
}
else t=t+c[x];
}
tc[tk]=formatsn(t);
tk++;
t="";
}
}

// http://kibor-bot.com/forum/topic.php?forum=6&topic=65
// dll должна быть в папке с кибор
external(INT, "regex_iterator", "regex_iterator", pathfolder()+"\regex.dll" );

string Text="17 8 100 5 76 56 93 856123"; // строка с числами
char result[20][10];
int ch[20];

int x=regex_iterator(Text, "\d+", address(#result[0][0]), sizearray(result), sizearray(result[]));
messagebox("Найдено чисел: "+format(x));
if(x>0)
{
for(int i=0; i<x; i++)ch[i]=formatsn(format(#result[i][0])); // пишем числа в массив int

messagebox(ch[0]);
messagebox(ch[1]);
messagebox(ch[2]);
}