Gracias Omar por contestar ya tengo mi codigo pero no entiendo la parte de las API'S Para que sea instalable y para que cambie mi formulario si esto se hace en un modulo estoy desorientado
mira el codigo que llevo y me genera el archivo
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
el archivo se genera tomando lo insertado en las cajas texto
xxxxxx xxxxxx xxxxxxx xxxxxxx xxxxxxx
Private Sub Btngenerar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btngenerar.Click
Dim objbanco As New Clscolpatria()
Try
objbanco.num_SecReg = TxtNsecuReg.Text
objbanco.tiporeg = TxtTpReg.Text
objbanco.fecharecibo = TxtF_recibo.Text
objbanco.nitcliente = TxtNitcli.Text
objbanco.clav = Txtclave.Text
objbanco.num_reg = TxtNregEnv.Text
objbanco.ofi_pag = TxtOfiPago.Text
objbanco.numcuenta = TxtNumCuenta.Text
objbanco.espaci = Txtespacios.Text
If Not objbanco.guardararchivo() Then
lblerror.Text = objbanco.lberror
Else
lblerror.Text = "se ha generado el archivo correctamente"
End If
Catch ex As Exception
lblerror.Text = ex.Message
End Try
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
