Extraer texto de un archivo binario Curso de Programación Visual Basic

Lección:

Administración de Archivos


Ejercicio:

Extraer texto de un archivo binario 7


Objetivo:

Cree un programa para extraer (sólo) los caracteres alfabéticos contenidos en un archivo binario y volcarlos a un archivo diferente. Los caracteres extraídos deben ser aquellos cuyo código ASCII sea 32 a 127, o 10, o 13.


Código:

Imports System
Imports System.IO
Class FileBinay
    Private Shared Sub Main()
        Dim file As FileStream
        Dim name As String
        Console.WriteLine("Enter the file name: ")
        name = Console.ReadLine()

        If Not File.Exists(name) Then
            Console.WriteLine("File {0} not found!", name)
        Else

            Try
                file = File.OpenRead(name)
                Dim bytesFile As Byte() = New Byte(file.Length - 1) {}
                file.Read(bytesFile, 0, CInt(file.Length))
                file.Close()
                Dim newFile As StreamWriter = New StreamWriter(name & "01.txt")

                For i As Integer = 0 To bytesFile.Length - 1

                    If (Convert.ToInt32(bytesFile(i)) >= 32) AndAlso (Convert.ToInt32(bytesFile(i)) <= 127) OrElse (Convert.ToInt32(bytesFile(i)) = 10) OrElse (Convert.ToInt32(bytesFile(i)) = 13) Then
                        newFile.Write(Convert.ToChar(bytesFile(i)))
                    End If
                Next

                newFile.Close()
            Catch e As Exception
                Console.WriteLine("Error, " & e.Message)
            End Try
        End If
    End Sub
End Class