String1=LEFT(ctext,AT(' ',ctext,5)) String2=SUBSTR(ctext,AT(' ',ctext,5)+1)>Dear Sir,
> >ctext=alltrim("Two million five hundred forty seven thousand eight hundred ninety six only") >NFIELDNO=5 > >cAnswer = '' >If nFieldNo > occu(' ',cText)+1 > Return '' >Endif > >If nFieldNo = 1 > nAnswer = subs(cText,1,at(' ',cText)-1) >Else > cText = subs(cText,at(' ',cText,nFieldNo-1)+1) > If ' '$cText > nAnswer = subs(cText,1,at(' ',cText)-1) > Else > nAnswer = cText > Endif >Endif > >?nAnswer > >