самое простое, что приходит на ум это - загнать текс в string и скакать по словам))) копируя нужные. Например можно передвигаться по запятым (используя функцию PosEx) и проверять окончания (соответственно позиции р-1 и р-2)
{PosEx('что ищем',s,p+1);} s-строка (твой текст) р - позиция указателя.
|