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