Visual Basic - Enviar "Del" o "Supr" a archivo de texto

Life is soft - evento anual de software empresarial
   
Vista:

Enviar "Del" o "Supr" a archivo de texto

Publicado por David (2 intervenciones) el 01/10/2008 19:23:36
Hola tengo un archivo de texto como este:

THYURFDEPLI
ABDCEFGHIGJ

ABDERTYHUJI

Me gustaría enviar un "Del" o "Supr" desde Visual Basic para borrar la línea en blanco(la tercera). ¿Como podría hacerlo?

¿Alguna función que busque una línea en blanco en un .txt y la elimine manteniendo el resto del archivo?

Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Enviar

Publicado por igor (633 intervenciones) el 01/10/2008 21:26:30
Lo siento Davíd, tendrás que currarte una tú, no puede estar todo hecho.

Pero no te desanimes, es muy facil, Abres 2 archivos, uno de lectura y otro de escritura, y lo que vas leyendo en el primero lo escribes en el otro. Cuando encuentres la línea a eliminar no la escribes y sigues hasta el final. Por último borras el primer archivo y tendrás lo que buscabas.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Enviar

Publicado por A.H.H (28 intervenciones) el 01/10/2008 22:08:55
Hola el siguiente codiog hace lo que pides, imagina que tienes en C un archivo prueba.txt que contien lineas en blanco.

-coloca un archivo de texto llamado prueba en c: que contenga texto con lineas en blanco intercaladas.

-coloca un boton en un formulario (command1) y dentro el siguiente codigo:
(al ejecutarlo el texto en C:prueba.txt tendra las lineas como tu quieres)


Private Sub Command1_Click()
Dim tbtexto As String 'variable para guardar las lineas'
Dim VarTexto As String 'variable que lee linea por linea.'

Open "C:prueba.txt" For Input As #1 'abrimos el fichero para leer'
Do Until EOF(1)
Line Input #1, VarTexto 'leemos el fichero Línea a Línea'
If VarTexto = "" Then 'si la linea es en blanco que no valga nada'
VarTexto = notting
Else 'en caso contrario'
tbtexto = tbtexto & VarTexto & vbCrLf 'vamos añadiendo las líneas leídas a la variable TBTexto'

'(Hay que introducir un retorno + avance de línea con cada línea (vbCrLf)'
'en la variable tbtexto van quedando guardadas todas las lineas sin lineas en blanco.
End If
Loop
Close #1
'abrimos el archivo pero para reescribirlo sin lineas en blanco'

Open "C:prueba.txt" For Output As #2
Print #2, tbtexto 'escribimos la variable que contiene todas las lineas.'

Close #2
End Sub




salu2 espero te sirva!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Enviar

Publicado por A.H.H (28 intervenciones) el 01/10/2008 22:11:52
Hola el siguiente codigo hace lo que pides, imagina que tienes en C un archivo prueba.txt que contiene lineas en blanco.

-coloca un archivo de texto llamado prueba en C:\ que contenga texto con lineas en blanco intercaladas.

-coloca un boton en un formulario (command1) y dentro el siguiente codigo:
(al ejecutarlo el texto en C:\prueba.txt tendra las lineas como tu quieres)

Private Sub Command1_Click()
Dim tbtexto As String 'variable para guardar las lineas'
Dim VarTexto As String 'variable que lee linea por linea.'

Open "C:\prueba.txt" For Input As #1 'abrimos el fichero para leer'
Do Until EOF(1)
Line Input #1, VarTexto 'leemos el fichero Línea a Línea'
If VarTexto = "" Then 'si la linea es en blanco que no valga nada'
VarTexto = notting
Else 'en caso contrario'
tbtexto = tbtexto & VarTexto & vbCrLf 'vamos añadiendo las líneas leídas a la variable TBTexto'

'(Hay que introducir un retorno + avance de línea con cada línea (vbCrLf)'
'en la variable tbtexto van quedando guardadas todas las lineas sin lineas en blanco.
End If
Loop
Close #1
'abrimos el archivo pero para reescribirlo sin lineas en blanco'

Open "C:\prueba.txt" For Output As #2
Print #2, tbtexto 'escribimos la variable que contiene todas las lineas.'

Close #2
End Sub


salu2 espero te sirva!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar