>>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

Sir the last Text is not coming properly, Also It seems that I did some Mistake in furnishing my Text Data earlier

My Text Data was this:-

*p290Y*p1400XAccount Number(8U(s1P(s17H(s8V(s0S(s0B(s16602T*p290Y*p1750X405651132(8U(s1P(s17H(s8V(s0S(s3B(s16602T*p333Y*p1400XInvoice Number(8U(s1P(s17H(s8V(s0S(s0B(s16602T*p333Y*p1750X359996996(8U(s1P(s17H(s8V(s0S(s3B(s16602T

and I need This in four records in cursor as :-

*p290Y*p1400XAccount Number(8U(s1P(s17H(s8V(s0S(s0B(s16602T
*p290Y*p1750X405651132(8U(s1P(s17H(s8V(s0S(s3B(s16602T
*p333Y*p1400XInvoice Number(8U(s1P(s17H(s8V(s0S(s0B(s16602T
*p333Y*p1750X359996996(8U(s1P(s17H(s8V(s0S(s3B(s16602T

i.e I need to break after every I need to *p...Y where .... may be a three or four numeric digit.


Please Guide.