Visual Basic - Como genero archivo de texto

Life is soft - evento anual de software empresarial
 
Vista:

Como genero archivo de texto

Publicado por Sandra (1 intervención) el 26/09/2006 14:52:42
Cordial Saludo:

Necesito generar una aplicación en el cual el usuario digite ciertos datos como por ejemplo el numero de la referencia, este numero va de la columna 1 hasta la 15, si el numero ocupa menos el resto de las posiciones se llena de ceros., despues en la columna 16 va el numero de la factura, y asi sucesivamente como puedo hacer esto?

Atentamente,

Sandra c. Rodriguez
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:Como genero archivo de texto

Publicado por Jasall (60 intervenciones) el 26/09/2006 16:54:59
Buenas, para gravar un dato en un fichero de texto utiliza:

'
Open Archivo For Append As Numero de fichero ' lo abres

Print #Numero de fichero Dato1, Dato2, ect..

Close #Numero de fichero ' lo cierras
'
para llenar de ceros hay que formatear el texto te paso una funcion para ello

'
Function LLenaVacios(UnText As TextBox, _
Cuantos As Integer, _
caracter As String) As String

Dim Ceros As String

For i = 1 To Cuantos - Len(UnText.Text)
Ceros = Ceros & caracter
Next
LLenaVacios = Ceros & UnText.Text

End Function
'
para llamarla:

Text1 = LLenaVacios(Text1, 15, "0")

o

Print #1 LLenaVacios(Text1, 15, "0") ,LLenaVacios(Text2, 10, "0")

'
Saludos
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