Imports System
Imports System.IO
Namespace Replace
Class Program
Private Shared Sub Main(ByVal args As String())
ReplaceTextFile("file.txt", "Hola", "hola")
End Sub
Public Shared Sub ReplaceTextFile(ByVal urlFile As String, ByVal textReplace As String, ByVal newText As String)
Dim myfileRd As StreamReader = File.OpenText(urlFile)
Dim myfileWr As StreamWriter = File.CreateText("file.txt.out")
Dim line As String = " "
Do
line = myfileRd.ReadLine()
If line IsNot Nothing Then
line = line.Replace(textReplace, newText)
myfileWr.WriteLine(line)
End If
Loop While line IsNot Nothing
myfileWr.Close()
myfileRd.Close()
End Sub
End Class
End Namespace