Ejercicio
Cambiador de texto
Objetivo
Cree un programa para reemplazar palabras en un archivo de texto, guardando el resultado en un nuevo archivo.
El archivo, la palabra a buscar y la palabra para reemplazarlo deben darse como parámetros:
reemplazar archivo.txt hola adiós
El nuevo archivo se llamaría "file.txt.out" y contendría todas las apariencias de "hello" reemplazadas por "goodbye".
Código
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