Archivo Plano
Publicado por Francisco O. (21 intervenciones) el 28/10/2003 16:31:38
Tengo el siguiente problema.
Necesito traspasar una tabla creada en access a un archivo de plano con formarto(ascii) de ancho fijo.
Estoy ocupanto la instricción type, put y get, de la siguente forma
Creo la estructura
type MiRegistro
id as string * 12
nombre string * 30
end type
Defino la variable de tipo record
dim ArchRegistro as MiRegistro.
Luego abro en archivo con la instrucción open
Open App.Path & "\ArchRegistro" For Random As #1 Len = len(miregistro)
Me posicioni en la primera fila
get #1,1,archregistro
Grabo los datos
for i=1 to 5
archregistro.id=i
archregistro.nombre="nombre" & i
put #1,i,archregistro
next i
Pero al abrir el archivo archregistro obtengo lo siguiente
1 nombre1 2 nombre2 3 nombre3 , etc..
y lo que yo necesito es los siguiente:
1 nombre1
2 nombre2
3 nombre3
etc..
que estoy realizando mal. si alguien me pudiera ayudar se lo agradeceria bastante.
Necesito traspasar una tabla creada en access a un archivo de plano con formarto(ascii) de ancho fijo.
Estoy ocupanto la instricción type, put y get, de la siguente forma
Creo la estructura
type MiRegistro
id as string * 12
nombre string * 30
end type
Defino la variable de tipo record
dim ArchRegistro as MiRegistro.
Luego abro en archivo con la instrucción open
Open App.Path & "\ArchRegistro" For Random As #1 Len = len(miregistro)
Me posicioni en la primera fila
get #1,1,archregistro
Grabo los datos
for i=1 to 5
archregistro.id=i
archregistro.nombre="nombre" & i
put #1,i,archregistro
next i
Pero al abrir el archivo archregistro obtengo lo siguiente
1 nombre1 2 nombre2 3 nombre3 , etc..
y lo que yo necesito es los siguiente:
1 nombre1
2 nombre2
3 nombre3
etc..
que estoy realizando mal. si alguien me pudiera ayudar se lo agradeceria bastante.
Valora esta pregunta


0