Archivos de Texto
Hola!
Tengo un problema con un archivo de texto, necesito insertar espacio en blanco en posición especifica de las lineas que existen en el archivo. Las lineas no tienen espacios ni comas todo corrido, probé con una linea de código que conseguí en el foro pero no funcionó. Si alguien me puede ayudar se lo agradecería. Les dejo un ejemplo de como esta el archivo de texto.
001020364310000004941000000633550770Rodríguez Salinas Luis Alberto
001020364310000004857000001983970770Cadenas Valecillos Wladimiro Alberto
001020364310000014630000000897970770Valecillos González César Augusto
001020364340000045382000001132140770Riera Bastidas Wilfredo Alberto
001020364310000008206000000555110770Alvarado Rivas Otilio Lisandro
101020364310100042358000001036391770López Palencia Aura Martina
001020364380000005199000001145250770Vargas Arquímedes Antonio
101020364320100047891000001018721770Lucena Moreno Yurumay del Carmen
101020364340100049784000001242871770Petit Pérez Pedro Alfonso
001020364300000008277000000817800770Delgado Aguirre María Mercedes
101020364300100042345000001384231770Chirivella Pacheco Armando José
001020364340000005416000001356820770Matute Díaz Eglee Susana
001020364340000005254000002570390770Arteaga Gómez Silvia Yennifer
001020364390000004996000001346050770Aguilar Matute Rosa Carolina
001020364310000006091000001403060770Pérez Vivas Juana Yamilet
001020364390000007980000000766350770Casadiego Jimenez Vialexy Josefina
101020364300100049649000000946251770López Güiter Angel Lisandro
Tengo un problema con un archivo de texto, necesito insertar espacio en blanco en posición especifica de las lineas que existen en el archivo. Las lineas no tienen espacios ni comas todo corrido, probé con una linea de código que conseguí en el foro pero no funcionó. Si alguien me puede ayudar se lo agradecería. Les dejo un ejemplo de como esta el archivo de texto.
001020364310000004941000000633550770Rodríguez Salinas Luis Alberto
001020364310000004857000001983970770Cadenas Valecillos Wladimiro Alberto
001020364310000014630000000897970770Valecillos González César Augusto
001020364340000045382000001132140770Riera Bastidas Wilfredo Alberto
001020364310000008206000000555110770Alvarado Rivas Otilio Lisandro
101020364310100042358000001036391770López Palencia Aura Martina
001020364380000005199000001145250770Vargas Arquímedes Antonio
101020364320100047891000001018721770Lucena Moreno Yurumay del Carmen
101020364340100049784000001242871770Petit Pérez Pedro Alfonso
001020364300000008277000000817800770Delgado Aguirre María Mercedes
101020364300100042345000001384231770Chirivella Pacheco Armando José
001020364340000005416000001356820770Matute Díaz Eglee Susana
001020364340000005254000002570390770Arteaga Gómez Silvia Yennifer
001020364390000004996000001346050770Aguilar Matute Rosa Carolina
001020364310000006091000001403060770Pérez Vivas Juana Yamilet
001020364390000007980000000766350770Casadiego Jimenez Vialexy Josefina
101020364300100049649000000946251770López Güiter Angel Lisandro
1 respuesta
Respuesta de ifrancoz
1
Esto se puede hacer pero leyendo este archivo y generando uno nuevo con los espacios deseados, me imagino que por ejemplo quiere separar con un espacio unos campos de otros, por ejemplo colocar un espacio antes del nombre, ¿verdad?
Si me explica un poco más, podré ayudar con mucho gusto, cual es la necesidad para esto, me imagino que es para acomodar el diseño del archivo a alguna entrada de datos de otro programa. ¿En qué posición desea insertar el espacio o espacios?
Si me explica un poco más, podré ayudar con mucho gusto, cual es la necesidad para esto, me imagino que es para acomodar el diseño del archivo a alguna entrada de datos de otro programa. ¿En qué posición desea insertar el espacio o espacios?
Disculpa por no haber contestado antes pero estaba bastante full y no me había dado tiempo de revisar el foro. Lo que dices es correcto necesito crear uno espacios en la posición 22 y 33 de cada linea, no importa si es en otro archivo. Esto es para tomar un monto que se genera al separarlo y poder importarlo como campo a otro programa. Muchas gracias de antemano
Se puede hacer algo como esto, voy a suponer que su archivo tiene 80 caracteres de longitud.
Dim Entrada As String
Dim Salida As String
Dim Todo As String
Dim Linea As String
Dim Campo(3) As String
Private Sub Command1_Click()
Entrada = "C:\Directorio\Entrada.txt"
Open Entrada For Input As #1
Salida = "C:\Directorio\Salida.txt"
Open Salida For Output As #2
Do While Not EOF(1)
Line Input #1, Todo
Campo(0) = Mid(Todo, 1, 21)
Campo(1) = Mid(Todo, 22, 11)
Campo(2) = Mid(Todo, 33, 48)
Linea = ""
Linea = Campo(0) & " " & Campo(1) & " " & Campo(2)
Print #2, Linea
Loop
Close #1
Close #2
End Sub
Suerte !
Dim Entrada As String
Dim Salida As String
Dim Todo As String
Dim Linea As String
Dim Campo(3) As String
Private Sub Command1_Click()
Entrada = "C:\Directorio\Entrada.txt"
Open Entrada For Input As #1
Salida = "C:\Directorio\Salida.txt"
Open Salida For Output As #2
Do While Not EOF(1)
Line Input #1, Todo
Campo(0) = Mid(Todo, 1, 21)
Campo(1) = Mid(Todo, 22, 11)
Campo(2) = Mid(Todo, 33, 48)
Linea = ""
Linea = Campo(0) & " " & Campo(1) & " " & Campo(2)
Print #2, Linea
Loop
Close #1
Close #2
End Sub
Suerte !
