prueba con :
Saludos
Código
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
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
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.