Visual Basic para Aplicaciones - crear archivos planos

Life is soft - evento anual de software empresarial
   
Vista:

crear archivos planos

Publicado por pedro (1 intervención) el 04/12/2013 14:35:40
Buenos dias

estoy realizando un aplicativo en visual basic 2010 que genere archivos planos (txt)para bancos
estos bancos tiene un formato especifico para que pueda funcionar un ejemplo

NOMBRE DEL CAMPO long/bytes posicion Inicial posicion final inicial formato
Número de Cuenta Destino 25 1 25 alfanumerico



No Factura|Concepto |Vlr Bruto |Base Iva|Retenciones|IVA |ICA |Retención|Otros Descuentos|Vlr Neto
XXXXXX XXXXXX $XXXX $XXXX $XXX $XX $XX $XXXX $XXXXXXX $XXXX
XXXXXX XXXXXX $XXXX $XXXX $XXX $XX $XX $XXXX $XXXXXXX $XXXX
XXXXXX XXXXXX $XXXX $XXXX $XXX $XX $XX $XXXX $XXXXXXX $XXXX
XXXXXX XXXXXX $XXXX $XXXX $XXX $XX $XX $XXXX $XXXXXXX $XXXX
XXXXXX XXXXXX $XXXX $XXXX $XXX $XX $XX $XXXX $XXXXXXX $XXXX

como le asigno las longitudes a los campos para que acepten el formato q especifique??
tengo una base de datos en sql server 2008 ya con las tablas y un procedimiento guardar
o esto se puede hacer desde sql y llamarlo como un procedimiento en un formulario visual basic
el codigo que tengo en vb me genera el archivo pero no le he asignando las longitudes no se como espero que me puedan ayudar


Imports System.IO
Public Class FormColpatria

Private Sub FormColpatria_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub



Private Sub Btngenerar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btngenerar.Click

Try
Dim objarchivo As New System.IO.StreamWriter("./archivotexto.txt")
objarchivo.Write(TxtNsecuReg.Text + " ")
objarchivo.Write(TxtTpReg.Text + " ")
objarchivo.Write(TxtF_recibo.Text + " ")
objarchivo.Write(TxtNitcli.Text + " ")
objarchivo.Write(Txtclave.Text + " ")
objarchivo.Write(TxtNregEnv.Text + " ")
objarchivo.Write(TxtOfiPago.Text + " ")
objarchivo.Write(TxtNumCuenta.Text + " ")
objarchivo.Write(Txtespacios.Text + " ")
objarchivo.Close()
TxtNsecuReg.Text = ""
TxtTpReg.Text = ""
TxtF_recibo.Text = ""
TxtNitcli.Text = ""
Txtclave.Text = ""
TxtNregEnv.Text = ""
TxtOfiPago.Text = ""
TxtNumCuenta.Text = ""
Txtespacios.Text = ""


Catch ex As Exception
MsgBox("no se pudo guardar el archivo", MsgBoxStyle.Critical)
End Try

End Sub

Private Sub Btnleer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnleer.Click
Try
Dim miruta As String = ("./archivotexto.txt")
Dim archivo As New System.IO.StreamReader(miruta)


'Devuelve la matriz de cadenas resultante de la separación de una cadena en subcadenas.'
Dim S() As String = Split(archivo.ReadToEnd, " ")

TxtNsecuReg.Text = S(0)
TxtTpReg.Text = S(1)
TxtF_recibo.Text = S(2)
TxtNitcli.Text = S(3)
Txtclave.Text = S(4)
TxtNregEnv.Text = S(5)
TxtOfiPago.Text = S(6)
TxtNumCuenta.Text = S(7)
Txtespacios.Text = S(8)
archivo.Close()

Catch ex As Exception
MsgBox("No se pudo guardar el archivo", MsgBoxStyle.Critical)

End Try
End Sub
End Class
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
Imágen de perfil de JuanC

crear archivos planos

Publicado por JuanC juanc2942@gmail.com (431 intervenciones) el 04/12/2013 15:38:32
sólo decirte que le erraste de foro... éste es de VBA, no de VB...

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