Pascal to Visual Basic (VB.Net) translator VB.Net Exercise - Visual Basic Programming Course


 Lesson

File Management

 Exercise

Pascal to Visual Basic (VB.Net) translator

Objetive

Create a basic Pascal to Visual Basic (VB.Net) translator. It will accept program such as:

example program;

var
i: integer;
max: integer;

begin
writeLn("How many times?");
readLn(max);
for i := 1 to max do
writeLn("Hola");
end.

The steps you must follow are:
Read from beginning to end a text file, whose name will be entered by the user in command line or in an interactive way: up to 2 points.

Dump the contents to another text file, whose name will be the same, but with ".cs" extension instead of ".pas": up to 4 points.

Replace "WriteLn" with "Console.WriteLine", " = "with "==", " := " with "=", simple quotes with double quotes, "begin" with "{" and "end;", "end.", "end" (in that order) with "}", : up to 6 points.

Replace "program x;" with "class x {" followed with "Main", Replace "readln(x)" with "x=Convert.ToInt32(Console.RadLine())" ("x" must be any other identifier): up to 8 points.

Eliminate "var" and replace "x: integer" with "int x" (but "x" must be any other identifier): up to 9 points. Give a proper format to "for": up to 10 points.

Create a compilable Visual Basic (VB.Net) source from the previous Pascal source and similar ones: up to 11 points.

Code

Imports System
Imports System.IO
Namespace PascalToCSharp
    Class Program
        Private Shared Sub Main()
            Console.Write("Enter name file: ")
            Dim fileName As String = Console.ReadLine()

            If File.Exists(fileName) Then
                Dim filePascal As StreamReader = File.OpenText(fileName)
                Dim fileCSharp As StreamWriter = File.CreateText(fileName.Substring(0, fileName.Length - 3) & "cs")
                Dim line As String

                Do
                    line = filePascal.ReadLine()

                    If line IsNot Nothing Then
                        line = line.Replace("writeLn", "Console.WriteLine")
                        line = line.Replace(" = ", "==")
                        line = line.Replace(" :=", "=")
                        line = line.Replace("'", """")
                        line = line.Replace("begin", "{")
                        line = line.Replace("end;", "}")
                        line = line.Replace("end.", "}")
                        line = line.Replace("end", "}")

                        If (line.Contains("program ")) AndAlso (line.Substring(line.Length - 1) = ";") Then
                            line = line.Replace("program ", "class ")
                            line = line.Replace(";", vbLf & "{" & vbLf & " static void Main()" & vbLf & "{")
                        End If

                        If line.Contains("readLn(") Then
                            line = line.Replace("readLn(", "")
                            line = line.Replace(");", "")
                            line += " = Convert.ToInt32(Console.RadLine());"
                        End If

                        line = line.Replace("var", "")

                        If line.Contains(": integer;") Then
                            line = line.Replace(": integer;", "")
                            line = "int " & line.Trim() & ";"
                        End If

                        fileCSharp.WriteLine(line)
                    End If
                Loop While line IsNot Nothing

                filePascal.Close()
                fileCSharp.Close()
            End If
        End Sub
    End Class
End Namespace

More VB.Net Exercises of File Management

 Writing to a text file
Create a program to ask the user for several sentences (until they just press Enter) and store them in a text file named "sentences.txt"...
 Appending to a text file
Create a program to ask the user for several sentences (until they just press Enter) and store them in a text file named "sentences.txt". If the file ...
 Display file contents
Create a program to display all the contents of a text file on screen (note: you must use a StreamReader). The name of the file will be entered in the...
 Extended TextToHTML (files)
Expand the TextToHtml class, so that ir can dump it result to a text file. Create a method ToFile, which will receive the name of the file as a parame...
 Logger
Create a class Logger, with a static method Write, which will append a certain text to a file: Logger.Write("myLog.txt", "This text is being logged");...
 More
Create a program which behaves like the Unix command "more": it must display the contents of a text file, and ask the user to press Enter each time th...
 Text replacer
Create a program to replace words in a text file, saving the result into a new file. The file, the word to search and word to replace it with must ...
 Count letters in a file
Create a program to count the amount of times that a certain character is inside a file (of any kind). The file and the letter can be asked to the ...
 Reading a binary file (1: BMP)
Create a Visual Basic (VB.Net) program to check if a BMP image file seems to be correct. It must see if the first two bytes are B and M (ASCII code...
 Writing to a binary file
Create a program which asks the user for his name, his age (byte) and the year in which he was born (int) and stores them in a binary file. Create ...
 Visual Basic (VB.Net) to Java
Create a basic Visual Basic (VB.Net) to Java translator. It must accept a Visual Basic (VB.Net) source files, and create an equivalent Java source ...
 Invert a text file
Create a program to "invert" the contents of a text file: create a file with the same name ending in ".tnv" and containing the same lines as the origi...
 Reading a binay file (2 - GIF)
Create a Visual Basic (VB.Net) program to check if a GIF image file seems to be correct. It must see if the first four bytes are G, I, F, 8. In ...
 Friends database, using files
Expand the "friends database", so that it loads data from file at the beginning of each session (if the file exists) and saves the data to file when t...
 Convert a text file to uppercase
Write a program to read a text file and dump its content to another file, changing the lowercase letters to uppercase. You must deliver only the "....
 Convert any file to uppercase
Write a program to read a file (of any kind) and dump its content to another file, changing the lowercase letters to uppercase. You must deliver on...
 File inverter
Create a program to "invert" a file: create a file with the same name ending in ".inv" and containing the same bytes as the original file but in rever...
 File encrypter
Create a program to encrypt a text file into another text file. It must include the encrypter class you have created previously (in January 17th)...
 Count words
Create a Visual Basic (VB.Net) program to count the amount of words stored in a text file...
 BMP width and height, BinaryReader
Create a Visual Basic (VB.Net) program to display the width and height of a BMP file using a BinaryReader. The structure of the header of a BMP fil...
 TXT to HTML translator
Create a "Text to HTML converter", which will read a source text file and create a HTML file from its contents. For example, if the file contains: Ho...
 Invert binary file V2
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...
 BMP width & height, FileStream
Create a Visual Basic (VB.Net) program to display the width and height of a BMP file using a FileStream. Remember the structure of the BMP header: ...
 File copier
Create a program to copy a source file to a destination file. You must use FileStream and a block size of 512 KB. An example usage might be: mycopy...
 MP3 reader
ID3 specifications apply to any file or audiovisual container, but they are primarily used with audio containers. There are three compatible versions ...
 C to Visual Basic (VB.Net) converter
Create a program to convert simple C programs, such as the following one, to Visual Basic (VB.Net): Note: the resulting program must compile correctl...
 File splitter
Create a program to split a file (of any kind) into pieces of a certain size. It must receive the name of the file and the size as parameters. For exa...
 Encrypt a BMP file
Create a program to encrypt/decrypt a BMP image file by changing the "BM" mark in the first two bytes to "MB" and vice versa. Use the advanced File...
 CSV converter
The CSV ("Comma Separated Values") is an exchange format used by many spreadsheet and database management systems. It consists of a series of comma-se...
 File comparer
Create a Visual Basic (VB.Net) program to tell if two files (of any kind) are identical (have the same content)....
 Display BPM on console
The Netpbm format is a family of image file formats designed with simplicity in mind, rather than small size. They can represent color, grayscale, or ...
 PCX width and height
Create a program that checks if a file is a PCX image and, if so, displays its width and height using the following specification: What is the PCX ...
 Extract text from a binary file
Create a program that extracts only the alphabetic characters contained in a binary file and dumps them to a separate file. The extracted characters s...
 Visual Basic (VB.Net) to Pascal converter
Create a program that converts simple Visual Basic (VB.Net) programs, such as the following one, to the Pascal language....
 Dump
Create a "dump" utility: a hex viewer that displays the contents of a file, with 16 bytes in each row and 24 rows in each screen. The program should p...
 DBF extractor
Create a program that displays the list of fields stored in a DBF file. The DBF format is used by the old dBase database manager and is still suppo...
 Text censorer
Create a program to censor text files. It should read a text file and dump its results to a new text file, replacing certain words with "[CENSORED]". ...
 SQL to text
You must create a Visual Basic (VB.Net) program that is capable of parsing SQL INSERT commands and extracting their data into separate lines of text, ...
 PGM viewer
The PGM format is one of the versions of NetPBM image formats. Specifically, it is the variant capable of handling images in shades of gray. Its he...
 Display BMP on console V2
Create a program to display a 72x24 BMP file on the console. You must use the information in the BMP header (refer to the exercise of Feb. 7th). Pay a...


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