>

TEXT TO sampleData noshow
> A B C D
> 0025 FAD 25
> 0120 F20 32
> 0025 FAD 25
> 0125 FDC 48
> 0401 FDC 26
> 0401 FDC 26
> 0125 FDC 48
> 0120 F20 32
> 0025 FAD 25
> 0125 FDC 48
> 0125 QTT 10
> 0125 QTT 10
> ENDTEXT
> 
> 
> lcInput  = "c:\temp\test.csv"
> lcOutPut = "c:\temp\testOut.csv"
> 
> Strtofile(m.sampleData,"c:\temp\test.csv")
> 
> Create Cursor myData (f1 c(10),f2 c(10),f3 i)
> Append From (m.lcInput) Type Delimited With "" With Blank For !Isalpha(f1)
> 
> 
> Select f1, ;
>   CAST(Iif(f1 == '0125' And f2 =='FDC', 'IDC',f2) As c(10)) As 'f2', ;
>   f3 ;
>   FROM myData ;
>   INTO Cursor xx
>   
> BROWSE && as a cursor  
> 
> lcTemp = Forcepath(Sys(2015)+'.tmp', Sys(2023))
> Copy To (m.lcTemp) Type Delimited With "" With Blank
> Strtofile('A B C'+Chr(13)+Chr(10)+Filetostr(m.lcTemp), m.lcOutPut)
> Erase (m.lcTemp)

>
> PS: That is not a CSV file.
>
> Cetin Basoz

I should also add this excel(csv) file uses data all the way to columns BC
and contains 20k+ rows of data. This one code is all I need to change.
Mike