[Akinak]

//returns true if needed char found in _str
boolean IsStrOk(str 100 _str)
{
  if (strfind(_str,'0123456789/',1,strlen(_str)))
    return(true);
  else
    return(false);
}
 
While (Cnt <= strlen(str_to_parse))
{
  if ( IsStrOk(SubStr(str_to_parse,Cnt,1)))
  {
    str_to_receive = str_to_receive + SubStr(str_to_parse,Cnt,1);
    // здесь надо ставить break; на знак Р или любой другой закачивающий разбор строки.
  }
  Cnt++;
}

подойдет такой вариант?
З.Ы. переделано на скорую руку из старого проекта, прошу сильно не бить)