>Respected all.
>
>I have a Text File say abc.Txt which I have taken it in FILETOSTR using FILETOSTR("ABC.TXT").
>
>The contents of the file are like
>
>*p290Y*p1400XMobile Number :*p290Y*p1750X9425816183*p333Y*p1400XBill No. & Date :*p333Y*p1750X360108912 28/06/2017*p376Y*p1400XPayment Due Date :*p376Y*p1750X15/07/2017
>
>I need to create cursor with each record as
>
>*p290Y*p1400XMobile Number :
>*p290Y*p1750X9425816183
>*p333Y*p1400XBill No. & Date :
>*p333Y*p1750X360108912 28/06/2017
>
>Please suggest some method to do this
>
>Regards

lcText='*p290Y*p1400XMobile Number :*p290Y*p1750X9425816183*p333Y*p1400XBill No. & Date :*p333Y*p1750X360108912 28/06/2017*p376Y*p1400XPayment Due Date :*p376Y*p1750X15/07/2017 '
lnX = 1
do while .t.
   if empty(strextract(lcText,'','',lnX,4)) 
      exit
   Endif
   lcResult= strextract(lcText,'','',lnX,4) + strextract(lcText,'','',lnX+1,4)
   ? strtran(left(lcResult,len(lcResult)-1),'','')
   lnX = lnX + 2
Enddo