Разбить текст на слова используя в виде разделителей пробелы и всевозможные знаки препинания.

string Text="мама мыла раму, рама-мыла маму!";
string P[10];
int r=regexsearch(10, #P[0], Text, "Регулярка?");

for (int n=0; n<r; n++)messagebox(P[n]);

string Text="мама мыла раму, рама-мыла маму!";
string P[10];
int r=regexsearch(10, #P[0], Text, "[а-я]+|[,\-\!]");

for (int n=0; n<r; n++)messagebox(P[n]);

"[à-ÿ]+|[*\d]+|[,\.\!\?\<\>\+\-\=]"

string Text="мама? мыла>25+2-ю раму, рама-мыла. <ма=му!";
string P[100];
//int r=regexsearch(100, #P[0], Text, "[а-я]+|[*\d]+|[,\.\!\?\<\>\+\-\=]");
int r=regexsearch(100, #P[0], Text, "[а-я]+|[:punct:]");
for (int n=0; n<r; n++)messagebox(P[n]);

string Text="мама? wWe Мыла>25+";
string P[100];
int r=regexsearch(100, #P[0], Text, "[a-z\A-Z\а-я\А-Я\d]+|[:punct:]");
for (int n=0; n<r; n++)messagebox(P[n]);

int r=regexsearch(100, #P[0], Text, "[0-9A-Za-zА-ЯЁа-яё]+|[:punct:]");

string Text="мама? wWe Мыла>25+";
string P[100];
int r=regexsearch(100, #P[0], Text, "[a-zA-Zа-яА-ЯёЁ\d]+|[:punct:]");
for (int n=0; n<r; n++)messagebox(P[n]);

string Text="мама? wWe Мыла>25+";
string P[100];
int r=regexsearch(100, #P[0], Text, "[\wа-яА-ЯёЁ]+|[:punct:]");
for (int n=0; n<r; n++)messagebox(P[n]);

string Text="Ёлки мама? wWR Мыла>25+2-ю раму, рама-мыла. <ма=му!";
string P[100];
int r=regexsearch(100, #P[0], Text, "[\wа-яА-ЯёЁ]+|[:punct:]");
for (int n=0; n<r; n++)messagebox(P[n]);

string slovar[5000];
int k=0;

if (fopen ("C:\словарь.txt", "r")!=0)
{
while(freadline(slovar[k])) k++;//чтение строки
fclose();
}

string Text="Кибарг 5.81, мосчний и удёбний инстрьюуменьть для саздания праграм атамамзации любим дейстий на кампютире.";

string slovo[100000];
int ks=regexsearch(100000, #slovo[0], Text, "[\wа-яА-ЯёЁ]+|[:punct:]");

string Res="";
for (int n=0; n<ks; n++)
{
Res=Res+comparestr(slovo[n], 0.4, #slovar[0], k)+" ";
}
messagebox(Text+"^r^n^r^n==========^r^n^r^n"+Res);