FoxPro/Visual FoxPro - Fichero SCV

*Una de las formas es crear un nuevo fichero

lcActual="c:\carpeta\fichero.csv"

lcNuevo="c:\carpeta\fichero1.csv"

lnHand=fopen(lcACtual)

if lnHand= -1

	Messagebox("Fichero ocupado")

	return

endif

lnPut=fcreate(lcNuevo)

=fputs(lnPut,"")

do while !Feof(lnHand)

	=fputs(lnPut,fgets(lnHand,8192))

enddo

=fclose(lnHand)

=fclose(lnPut)

*Otra es creando un array y regenerando el mismo archivo

local array gaItems(1)

STORE "" TO gaItems

nItems=1

lnHand=fopen(lcACtual)

if lnHand= -1

	Messagebox("Fichero ocupado")

	return

endif

DO WHILE !FEOF(lnHand)

	lnitems=lnItems + 1

	DIMENSION gaitems[lnItems]

	gaitems[lnItems]=FGETS(lnHand,8192)

ENDDO

=FCLOSE(lnHand)

lnHand=FCREATE(lcACtual)

FOR i=1 TO lnItems

	=FPUTS(lnHand,gaItems[i])

NEXT

=FCLOSE(lnHand)