> Subhankar,
> I am amazed with your understanding. Given the code needed to fill arrFieldInfo I thought you could apply to your case (though I prefer OpenText). Anyway here is the sample with TextToColumns:
>

> #Define xlDelimited	1
> #Define xlFixedWidth	2
> #Define xlDoubleQuote 1
> 
> #Define xlGeneralFormat	1
> #Define xlTextFormat	2
> #Define xlMDYFormat	3
> #Define xlDMYFormat	4
> #Define xlYMDFormat	5
> #Define xlMYDFormat	6
> #Define xlDYMFormat	7
> #Define xlYDMFormat	8
> #Define xlSkipColumn	9
> #Define xlEMDFormat	10
> 
> TEXT TO myText noshow
> "0001","VFP7",01/01/2002,"skipme",30/01/2003,001
> "0002","VFP8",01/31/2003,"skipme",29/02/2000,002
> "0002","C#",01/31/2003,"skipme",29/02/2000,002
> ENDTEXT
> 
> Dimension arrFldInfo[6,2]
> For ix=1 To 6
>   arrFldInfo[m.ix,1]=m.ix
> Endfor
> arrFldInfo[1,2]=xlTextFormat
> arrFldInfo[2,2]=xlTextFormat
> arrFldInfo[3,2]=xlMDYFormat
> arrFldInfo[4,2]=xlSkipColumn
> arrFldInfo[5,2]=xlDMYFormat
> arrFldInfo[6,2]=xlTextFormat
> 
> ox = Createobject('Excel.Application')
> ox.Workbooks.Add()
> ox.Visible = .T.
> With ox.ActiveWorkbook.ActiveSheet
>   _Cliptext = m.myText
>   .PasteSpecial(.Range('A1'))
>   .Application.Selection.TextToColumns(.Range('A1'), xlDelimited, ;
>     xlDoubleQuote, ,,,.T.,,,, @arrFldInfo)
> Endwith

>
> Cetin Basoz

Cetin,
First,

TEXT TO myText noshow 

is not supported in VFP6
second, it is something like this

lcFname = Sys(2023)+'\'+Sys(2015)+'.txt'
SET Textmerge To (m.lcFname) Noshow
SET Textmerge On
TEXT 
"0001","VFP7",01/01/2002,"skipme",30/01/2003,001
"0002","VFP8",01/31/2003,"skipme",29/02/2000,002
"0002","C#",01/31/2003,"skipme",29/02/2000,002
EndText

Third is, without specify column range it will be an eror i.e.

.Application.Selection.TextToColumns(.Range('A1'), xlDelimited, ;

instead of
i.e.

    .Columns("A:A").Select	
   .Application.Selection.TextToColumns(.Range('A1'), xlDelimited, ;

regards
Subhankar