Cambiar palabras de un archivo TXT

[elqueteconte]

prueba con :

Código (vbnet) [Seleccionar] Expandir

sw.WriteLine(content & Environment.NewLine)

Saludos

No sirvió con eso pues me colocaba una linea con el registro y una linea vacia.

Investigando logré encontrar un código con el que sí funcionó; entonces cambié esto:

Código (vbnet) [Seleccionar] Expandir


Dim content As String = sr.ReadToEnd.Replace(Environment.NewLine, "")
If Not String.IsNullOrEmpty(content) Then
    sw.WriteLine(content & Environment.NewLine)
End If


Por esto:

Código (vbnet) [Seleccionar] Expandir


While Not sr.EndOfStream
  Dim content As String = sr.ReadLine
  If content.Length > 0 Then
     sw.WriteLine(content)
End While


Que te parece?


Con esto está haciendo lo que inicialmente se me pidio, ahora tengo que ir con la segunda fase del esto que se está convirtiendo en un proyecto muy interesante.

Te agradezco la ayud que me haz brindado hasta este momento y espero poder seguir contando con ella.

Gracias mil de nuevo.