Cambiador de texto Curso de Programación Visual Basic

Lección:

Administración de Archivos


Ejercicio:

Cambiador de texto 29


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