Visual Basic - Ayuda con Archivo Plano (espacios)

Life is soft - evento anual de software empresarial
   
Vista:

Ayuda con Archivo Plano (espacios)

Publicado por Fran (78 intervenciones) el 19/10/2007 17:25:27
Quiero crear un archivo plano a partir de una tabla, mi código es este:

a.write (reg![PrimerNombre])
a.write (":")
a.write (reg![SegundoNombre])
a.write (":")
a.write (reg![PrimerApellido])
a.write (":")
a.write (reg![SegundoApellido])

pero el resultado es:

Pedro:Jose:Garcia:Perez
Carlos:Andres:Gomez:Sanchez
María:Luisa:López:Ramos

Quisiera que se tomaran en cuenta la longitud de los campos en la BD para que quedara algo asi:

Pedro :Jose :Garcia :Perez
Carlos :Andres :Gomez :Sanchez
María :Luisa :López :Ramos

Como debo hacer?... Por favor alguien que me ayude...
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

RE:Ayuda con Archivo Plano (espacios)

Publicado por AKI (18 intervenciones) el 19/10/2007 19:13:47
Vamos a ver si esto te puede ayudar un poquito
En primer lugar me imagino que en la BD a cada campo le has asignado una capacidad de entrada maxima de caracteres, bien pues a partir de hay es donde tienes que empezar y el resto rellenarlo con espacios.
Supongamos que a :
PrimerNombre = 30 caracteres
SegundoNombre = 30
PrimerApellido = 30
SegundoApellido = 30
la forma de encadenar un fichero plano puede ser asi

Linea as String
Texto_BD as String

Linea = "" 'Para que empiece siempre en vacio
Texto_BD = (reg![PrimerNombre])
Linea = Linea + Texto_BD & String(30 - Len(Texto_BD), " ")
Texto_BD = (reg![SegundoNombre])
Linea = Linea + Texto_BD & String(30 - Len(Texto_BD), " ")
Texto_BD = (reg![PrimerApellido])
Linea = Linea + Texto_BD & String(30 - Len(Texto_BD), " ")
Texto_BD = (reg![SegundoApellido])
Linea = Linea + Texto_BD & String(30 - Len(Texto_BD), " ")
Print #1, Linea

y esto de daria una resultado mas o menos asi
PEDRO<-- 25 espacios en blanco ->JOSE<-- 26 -->GARCIA<--24 -->PEREZ<-25->

Los dos puntos que pones no entiendo para que son pero bueno si te hacen falta para algo es cueston de añadirlos.

Espero que te sirva de algo
Saludos
Aki
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

RE:Ayuda con Archivo Plano (espacios)

Publicado por Fran (1 intervención) el 20/10/2007 00:16:46
Gracias man, si me sirvio
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