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

 

   Inicio    






Página inicial  Cursos Informática Gratuitos

Síguenos en:   Facebook       Sobre aulaClic            Política de Cookies