FoxPro/Visual FoxPro - Fichero SCV

   
Vista:

Fichero SCV

Publicado por Irene (32 intervenciones) el 23/09/2014 11:07:32
Hola, ya tengo el fichero scv con títulos.
Ahora necesito que la primera linea del fichero este en blanco, antes de los titulos.
Alguien sabe como hacerlo ???
Gracias
Irene
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Fichero SCV

Publicado por Fidel José (558 intervenciones) el 23/09/2014 13:44:02
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
*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)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Fichero SCV

Publicado por Irene (32 intervenciones) el 24/09/2014 12:12:25
Muchísimas gracias por vuestra ayuda. Me ha sido de gran utilidad
Un saludo
Irene
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar