Ayuda ejercicios unidad 38: Archivos en VB

1.- Crear un archivo de texto con una frase cualquiera.

Module Tema_38

Private Sub AbreArchivo(ByVal Nombre As String, ByRef Canal As Integer)

Canal = FreeFile()

Dim Archivo As String = My.Application.Info.DirectoryPath & "\" & Nombre

FileOpen(Canal, Archivo, OpenMode.Output)

End Sub

Private Sub GrabarFrase(ByVal Canal As Integer, ByVal Frase As String)

WriteLine(Canal, Frase)

End Sub

Sub Main()

Dim Canal As Integer

Dim Texto As String

AbreArchivo("Texto.txt", Canal)

Texto = Console.ReadLine

GrabarFrase(Canal, Texto)

FileClose(Canal)

End Sub

End Module

2.- Acceder al archivo anterior y visualizar la frase que se ha grabado.

Module Tema_38

Private Sub AbreArchivo(ByVal Nombre As String, ByRef Canal As Integer)

Canal = FreeFile()

Dim Archivo As String = My.Application.Info.DirectoryPath & "\" & Nombre

FileOpen(Canal, Archivo, OpenMode.Input)

End Sub

Private Function LeerFrase(ByVal Canal As Integer) As String

Dim Frase As String

Input(Canal, Frase)

Return Frase

End Function

Sub Main()

Dim Canal As Integer

Dim Texto As String

AbreArchivo("Texto.txt", Canal)

Console.WriteLine(LeerFrase(Canal))

FileClose(Canal)

Console.ReadLine()

End Sub

End Module

3.- Crear un archivo y copiar el contenido del archivo anterior.

Module Tema_38

Private Sub AbreArchivoNuevo(ByVal Nombre As String, ByRef Canal As Integer)

Canal = FreeFile()

Dim Archivo As String = My.Application.Info.DirectoryPath & "\" & Nombre

FileOpen(Canal, Archivo, OpenMode.Output)

End Sub

Private Sub AbreArchivo(ByVal Nombre As String, ByRef Canal As Integer)

Canal = FreeFile()

Dim Archivo As String = My.Application.Info.DirectoryPath & "\" & Nombre

FileOpen(Canal, Archivo, OpenMode.Input)

End Sub

Private Sub GrabarFrase(ByVal Canal As Integer, ByVal Frase As String)

WriteLine(Canal, Frase)

End Sub

Private Function LeerFrase(ByVal Canal As Integer) As String

Dim Frase As String

Input(Canal, Frase)

Return Frase

End Function

Sub Main()

Dim Canal As Integer

Dim CanalNuevo As Integer

Dim Texto As String

AbreArchivo("Texto.txt", Canal)

AbreArchivoNuevo("Nuevo.txt", CanalNuevo)

GrabarFrase(CanalNuevo, LeerFrase(Canal))

FileClose(Canal)

FileClose(CanalNuevo)

Console.ReadLine()

End Sub

End Module

4.- Acceder al nuevo archivo y visualizar su contenido.

Module Tema_38

Private Sub AbreArchivo(ByVal Nombre As String, ByRef Canal As Integer)

Canal = FreeFile()

Dim Archivo As String = My.Application.Info.DirectoryPath & "\" & Nombre

FileOpen(Canal, Archivo, OpenMode.Input)

End Sub

Private Function LeerFrase(ByVal Canal As Integer) As String

Dim Frase As String

Input(Canal, Frase)

Return Frase

End Function

Sub Main()

Dim Canal As Integer

AbreArchivo("Nuevo.txt", Canal)

Console.WriteLine(LeerFrase(Canal))

FileClose(Canal)

Console.ReadLine()

End Sub

End Module