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

I am not able to copy the text from the screen since it contains invisible characters. Please attach a zipped file containing the data instead. The more records it contains, the bigger chance I have for creating working code.