Visual Basic - Eliminar la ultima linea de un txt

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil

Eliminar la ultima linea de un txt

Publicado por PETETE (20 intervenciones) el 14/12/2016 14:37:18
Hola buenas,

me gustaría saber si me podrían ayudar a eliminar la ultima linea de un txt.

Lo que me pasa es que cuando leo un excel y paso los datos a un txt, se me crea una linea en blanco a lo ultimo del txt.

¿Como puedo elimianr esa linea en blanco?

gracias por la ayuda y disculpen las molestias.

Un saludo,

PETETE;)
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
sin imagen de perfil

Eliminar la ultima linea de un txt

Publicado por PETETE (20 intervenciones) el 14/12/2016 21:12:46
Una ayudita por favoor.......
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
sin imagen de perfil
Val: 109
Ha aumentado 1 puesto en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Eliminar la ultima linea de un txt

Publicado por Yamil (226 intervenciones) el 14/12/2016 21:30:39
Puedes publicar el codigo que estas usando...
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
sin imagen de perfil

Eliminar la ultima linea de un txt

Publicado por PETETE (20 intervenciones) el 15/12/2016 14:44:48
Esto es parte del codigo, creo que es la parte donde hay que introducir la modificación para que me elimine la ultima linea en blanco.


1
2
3
4
5
6
7
8
System.IO.File.Delete(nombre_fichero_txt)
For Each fila As DataGridViewRow In DataGridView1.Rows
    Dim numreg As String = fila.Cells.Item("C101_Numero_Registro_Autonomico").Value
    Dim fecha_exp As String = fila.Cells.Item("C119_Fecha_Pago").Value
    Dim ncartulina As String = fila.Cells.Item("C33_NCARTUL").Value
    Dim linea_txt As String = numreg & fecha_exp & ncartulina
    My.Computer.FileSystem.WriteAllText(nombre_fichero_txt, linea_txt & vbCrLf, append:=True)
Next


Agradecería una ayudita, GRACIAS.

Un saludo,

PETETE;)
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