Ayuda con la utilización de text box para guardar datos en un programa implementado en visual basic
Hola estoy haciendo un programa en Visual Basic 5. Necesito guardar una entra de datos mediante un textbox pero al realizarlo con el siguiente código, me arroja el error 59 "La longitud de registro es incorrecta"
Dim texto As String
texto = Text1.Text
Close: Open "c:\test.cfp" For Random As #1
Put #1, 1, texto
Probé con un Len la cantidad de caracteres máximos que puedo ingresar y el error lo marca después de 127 letras el problema es que necesito ingresar más que esa cantidad, unas 300 letras.
Desde ya muchas gracias.
Dim texto As String
texto = Text1.Text
Close: Open "c:\test.cfp" For Random As #1
Put #1, 1, texto
Probé con un Len la cantidad de caracteres máximos que puedo ingresar y el error lo marca después de 127 letras el problema es que necesito ingresar más que esa cantidad, unas 300 letras.
Desde ya muchas gracias.
1 respuesta
Respuesta de denciso
1
Usa algo como lo siguiente:
'*********************************************************************************************************
cmgDial.FileName = vbNullString
cmgDial.DialogTitle = "Exportación de Datos a CONSAR (BAJAS)"
cmgDial.DefaultExt = "*.txt"
cmgDial.FileName = "BAJAS.TXT"
cmgDial.Flags = cdlOFNFileMustExist
cmgDial.Filter = "Texto (*.txt)|*.txt|Todos los archivos(*.*)|*.*"
cmgDial.ShowSave
If cmgDial.FileName = vbNullString Then
Exit Sub
End If
cmgDial.CancelError = True 'Treat the Cancel button as an error
' primero se genera la información del cabecero...
Open cmgDial.FileName For Output As #1
' colocamos el encabezado
sDatos = vbNullString
sDatos = sDatos & "01"
sDatos = sDatos & "09"
sDatos = sDatos & "96"
sDatos = sDatos & "06"
sDatos = sDatos & "6091373"
sDatos = sDatos & "03"
sDatos = sDatos & "0000001"
sDatos = sDatos & Trim$(Me.txtFechaEnvio.Text)
sDatos = sDatos & "CNB950501PT6"
sDatos = sDatos & "COMISION NACIONAL BANCARIA Y DE VALORES" & Space(91)
sDatos = sDatos & "6091373"
sDatos = sDatos & "06365"
sDatos = sDatos & "07200"
sDatos = sDatos & "AV INSURGENTES SUR 1971 TORRE SUR P 5 "
sDatos = sDatos & "GUADALUPE INN "
sDatos = sDatos & "ALVARO OBREGON "
sDatos = sDatos & "01020"
sDatos = sDatos & "DISTRITO FEDERAL "
sDatos = sDatos & "5557246176"
sDatos = sDatos & Format$(dSumaAltas, "000000000")
sDatos = sDatos & Format$(dSumaMovimientos, "000000000")
sDatos = sDatos & Format$(Me.sprComparacionBajas.MaxRows, "000000000")
sDatos = sDatos & Format$(Me.sprComparacionBajas.MaxRows, "000000000")
Print #1, sDatos
DoEvents
Close #1
'*********************************************************************************************************
cmgDial.FileName = vbNullString
cmgDial.DialogTitle = "Exportación de Datos a CONSAR (BAJAS)"
cmgDial.DefaultExt = "*.txt"
cmgDial.FileName = "BAJAS.TXT"
cmgDial.Flags = cdlOFNFileMustExist
cmgDial.Filter = "Texto (*.txt)|*.txt|Todos los archivos(*.*)|*.*"
cmgDial.ShowSave
If cmgDial.FileName = vbNullString Then
Exit Sub
End If
cmgDial.CancelError = True 'Treat the Cancel button as an error
' primero se genera la información del cabecero...
Open cmgDial.FileName For Output As #1
' colocamos el encabezado
sDatos = vbNullString
sDatos = sDatos & "01"
sDatos = sDatos & "09"
sDatos = sDatos & "96"
sDatos = sDatos & "06"
sDatos = sDatos & "6091373"
sDatos = sDatos & "03"
sDatos = sDatos & "0000001"
sDatos = sDatos & Trim$(Me.txtFechaEnvio.Text)
sDatos = sDatos & "CNB950501PT6"
sDatos = sDatos & "COMISION NACIONAL BANCARIA Y DE VALORES" & Space(91)
sDatos = sDatos & "6091373"
sDatos = sDatos & "06365"
sDatos = sDatos & "07200"
sDatos = sDatos & "AV INSURGENTES SUR 1971 TORRE SUR P 5 "
sDatos = sDatos & "GUADALUPE INN "
sDatos = sDatos & "ALVARO OBREGON "
sDatos = sDatos & "01020"
sDatos = sDatos & "DISTRITO FEDERAL "
sDatos = sDatos & "5557246176"
sDatos = sDatos & Format$(dSumaAltas, "000000000")
sDatos = sDatos & Format$(dSumaMovimientos, "000000000")
sDatos = sDatos & Format$(Me.sprComparacionBajas.MaxRows, "000000000")
sDatos = sDatos & Format$(Me.sprComparacionBajas.MaxRows, "000000000")
Print #1, sDatos
DoEvents
Close #1
