Invert binary file V2 Learn programming Visual Basic (VB.net)



Lesson:

File Management


Exercise:

Invert binary file V2


Objetive:

Create a program to "invert" a file using a "FileStream". The program should create a file with the same name ending in ".inv" and containing the same bytes as the original file but in reverse order. The first byte of the resulting file should be the last byte of the original file, the second byte should be the penultimate, and so on, until the last byte of the original file, which should appear in the first position of the resulting file.

Please deliver only the ".cs" file, which should contain a comment with your name.


Code:

Imports System
Imports System.IO
Class InverterFileStream
    Private Shared Sub Main(ByVal args As String())
        Dim fileName As String
        Console.Write("Enter the name of file to convert: ")
        fileName = Console.ReadLine()
        Dim myFileReader As FileStream = File.OpenRead(fileName)
        Dim size As Long = myFileReader.Length
        Dim data As Byte() = New Byte(size - 1) {}
        myFileReader.Read(data, 0, CInt(size))
        myFileReader.Close()
        Dim myFileWriter As FileStream = File.Create(fileName & ".inv")

        For i As Long = size - 1 To 0
            myFileWriter.WriteByte(data(i))
        Next

        myFileWriter.Close()
    End Sub
End Class



Juan A. Ripoll - Systems Tutorials and Programming Courses ©  All rights reserved.  Legal Conditions.