Borrar lineas en blanco de un fichero de texto |
Responder |
Autor | |
cpampasPT
Colaborador Unido: 20/Marzo/2010 Localización: Portugal Estado: Sin conexión Puntos: 537 |
Tema: Borrar lineas en blanco de un fichero de texto Enviado: 16/Junio/2019 a las 18:49 |
Jose , Gracias por tu sugerencia que segui leyendo cada una de las lineas, y reemplazando vbCrlf + vbLf Por mi podeis cerrar el hilo |
|
Chea1
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Moderador Unido: 20/Noviembre/2005 Localización: España Estado: Sin conexión Puntos: 4143 |
Enviado: 16/Junio/2019 a las 10:08 |
Prueba a hacer replace con dos vbCrlf seguidos por uno solo. También con dos vbLf o con vbCrlf + vbLf |
|
cpampasPT
Colaborador Unido: 20/Marzo/2010 Localización: Portugal Estado: Sin conexión Puntos: 537 |
Enviado: 16/Junio/2019 a las 00:54 |
Buenas amigos, Me pregunto si me podeis dar una idea de como puedo eliminar las lineas en blanco de un fichero de texto al que accedo asi, o sera que tengo que recorrer cada una de las lineas y no todas en conjunto : Dim MyData As String, fName as string fName = "C:\prueba.txt" '--> Leer el fichero de texto de una sola vez Open fName For Binary As #1 MyData = Space$(LOF(1)) ' asigna buffer to al tamano del fichero Get #1, , MyData Close #1 Do temp = MyData MyData = Replace(MyData, Space(3), Space(2)) ' cambia 3 espacios por 2 Loop Until temp = MyData MyData = Replace(MyData, Space(2), "#") ' asigna delimitador para separar futuros campos '--> crea un nuevo fichero con las alteraciones Open "C:\Users\Carlos\Desktop\NewFilename.Txt" For Output Access Write As #1 ' aqui me gustaria eliminar las lineas en blanco Print #1, MyData
Close #1 |
|
Responder | |
Tweet
|
Ir al foro | Permisos de foro Usted No puede publicar nuevos temas en este foro Usted No puede responder a temas en este foro Usted No puede borrar sus mensajes en este foro Usted No puede editar sus mensajes en este foro Usted No puede crear encuestas en este foro Usted No puede votar en encuestas en este foro |