Metodo OPEN FOR INPUT Problema SE DETIENE EL CODIGO
Publicado por vianney (15 intervenciones) el 14/07/2020 19:07:58
Buenas tardes a todos necesito ayuda con un codigo, estoy programando en VISUAL BASIC de access 2010, el codigo abre un archivo TXT con una informacion que necesito separar, el problema que tengo es que el codigo funciona si la cantidad de caracteres del archivo TXT es menor a 30.000 caracteres, si el archivo TXT es mayor a 30.000 caracteres el codigo sencillamente se detiene y no ejecuta nada a partir de la lectura del archivo. No se si el Metido OPEN FOR INPUT tiene alguna limitante en cuanto a la cantidad de caracteres que puede procesar. Si alguien sabe de otro metodo que pueda utilizar en Visual Basic de access 2010, le agradeceria la ayuda. Dejo el codigo que estoy usando para leer el TXT. espero sus comentarios.
Vianney.
Vianney.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Dim n_File As Integer
Dim captura_original As String
Dim nom_archi As String
Dim captura As String
nom_archi = InputBox("Ingrese el nombre del archivo a migrar: ")
'Número de archivo libre
n_File = FreeFile
'Abre el archivo indicado
Open CurrentProject.Path & "\Express\" & nom_archi & ".txt" For Input As n_File
'Lee todo los datos del archivo y lo almacena en la variable
captura_original = Input$(LOF(n_File), #n_File)
'Cierra el archivo abierto
Close n_File
'Carga el contenido de la variable en el TextBox
MsgBox captura_original
Valora esta pregunta


0