[Fork] [Fork] [Fork] [Fork] VB to Pseudocode converter | C# Online Compiler

[Fork] [Fork] [Fork] [Fork] VB to Pseudocode converter by Melisa

Imports System

Public Module Module1

	Public Sub Main()
		Dim myString, myString1, Pseudocode as string
		Dim total as integer
		Pseudocode = ""
		myString = console.ReadLine()
		myString1 = myString.ToLower()
		total = myString1.Length
		if myString1.Contains("console.readline()")
			Pseudocode = "INPUT "
			for i = 0 to myString1.Length
				if myString.Chars(i) <> " " then
					Pseudocode = Pseudocode + myString.Chars(i)
				Else
					Exit for
				End if
			Next i
		else if myString1.Contains("console.writeline") then
			Pseudocode = "OUTPUT "
			for z = 18 to(total - 2)
				if myString(z) = "&" then
					Pseudocode = Pseudocode + ","
				Else
					if myString1(z) = "(" then
						Pseudocode = Pseudocode + "["
					Else if myString1(z) = ")" then
						Pseudocode = Pseudocode + "]"
					Else
						Pseudocode = Pseudocode + myString(z)
					End if
				End if
			Next z
' ' ' '  ''  ' ''  ' ' ' ' '' ' '  ' ' ' ' ' ' ' ' '' ' ' ' '' ' ' '' ' '
		else if myString1.Contains("dim") then
			if myString1.Contains("string") then
				Pseudocode = "STRING: "
			Else if myString1.Contains("integer")
				Pseudocode = "INTEGER: "
			Else if myString1.Contains("char")
				Pseudocode = "CHAR: "
			Else if myString1.Contains("decimal")
				Pseudocode = "REAL: "
			Else if myString1.Contains("Boolean")
				Pseudocode = "Boolean: "
			End if

			for y = 1 To total - 1
				if myString1(y + 3) = " " And myString1(y + 4) = "a" And myString1(y + 5) = "s" And myString1(y + 6) = " " then
					Exit for
				else
					if myString1(y) = "(" then
						Pseudocode = Pseudocode + "["
					Else if myString1(y) = ")" then
						Pseudocode = Pseudocode + "]"
					Else 
						Pseudocode = Pseudocode + myString(y + 3)
					End if
				End if
			Next
								' ' ' ' ' ' ' ' ' ' ' '' ' ' '' ' ' ' ELSEIF' '' ' ' '' ' '  ' '' ' ' '' ' ' ' ' '' ' ' ' '' '
		Else if mystring1.Contains("else if") then
			Pseudocode = "ELSEIF "
				for a = 8 To total - 5
					if myString(a) = "="
						Pseudocode = Pseudocode + "<-"
					else
						Pseudocode = Pseudocode + myString(a)
					end if
				Next a
				Pseudocode = Pseudocode + "THEN"
		Else if mystring1.Contains("do while") then
			Pseudocode = "WHILE "
			for a = 9 To total - 1
				if myString(a) = "="
					Pseudocode = Pseudocode + "<-"
				else
					Pseudocode = Pseudocode + myString(a)
				end if
			Next a
			Pseudocode = Pseudocode + " DO"
								'''' ' ''  ''  '  '  '' ' ''ENDIF + Else ''  ' '  ' ''  '' ' ' '' ' ' ' '' ' '' ' ' '' ' ' ' ' ' '' 
		Else if myString1.Contains("else") then
			Pseudocode = myString.ToUpper()
								' ' '' ' ' '' ' '' ' ' ' '' ' '' ' ' ' '' 'IF ' '' ' ' '' ' ' ' '' ' ' '' '  '' ' ' ' '  ' '
		Else if myString1.Contains("end if")
			Pseudocode = "ENDIF"
		Else if myString1.Contains("loop")							
			Pseudocode = "ENDWHILE"
		Else if myString1.Contains("do")
			Pseudocode = "REPEAT"
		Else if mystring1.Contains("if") then
			Pseudocode = "IF "
			for a = 3 To total - 5
				if myString(a) = "="
					Pseudocode = Pseudocode + "<-"
				else
					Pseudocode = Pseudocode + myString(a)
				end if
			Next a
				Pseudocode = Pseudocode + "THEN"
		Else if myString1.Contains("for") then
			Pseudocode = "FOR "
			for x = 4 To total - 1
				if myString(x) = "="
					Pseudocode = Pseudocode + "<-"
				else if (myString(x) = "t") OR (mystring(x) = "o")
					If myString(x-1) = " " OR myString(x+1) = " "
						if mystring(x + 1) = "o" OR myString(x - 1) = "t" then
							If myString(x + 2) = " " OR myString(x - 2) = " " then
								Pseudocode = Pseudocode + myString(x).ToString().ToUpper()
							End if
						End if
					End if
				else
					Pseudocode = Pseudocode + myString(x)
				End if
			Next x
		Else if myString1.Contains("next")
			Pseudocode = "NEXT "
			for b = 5 To total - 1
				Pseudocode = Pseudocode + myString(b)			
			Next b
		Else if mystring1.Contains("loop until") then
			Pseudocode = "UNTIL "
			for a = 3 To total - 1
				if myString(a) = "="
					Pseudocode = Pseudocode + "<-"
				else
					Pseudocode = Pseudocode + myString(a)
				end if
			Next a
		Else if myString.Contains("=") then
			for b = 0 To total - 1
				if myString(b) = "="
					Pseudocode = Pseudocode + "<-"
				else
					Pseudocode = Pseudocode + myString(b)
				end if
			Next b
		End If
		console.WriteLine(Pseudocode)
	End Sub
End Module

​x
 
Imports System
​
Public Module Module1
​
    Public Sub Main()
        Dim myString, myString1, Pseudocode as string
        Dim total as integer
        Pseudocode = ""
        myString = console.ReadLine()
        myString1 = myString.ToLower()
        total = myString1.Length
        if myString1.Contains("console.readline()")
            Pseudocode = "INPUT "
            for i = 0 to myString1.Length
                if myString.Chars(i) <> " " then
                    Pseudocode = Pseudocode + myString.Chars(i)
                Else
                    Exit for
                End if
            Next i
        else if myString1.Contains("console.writeline") then
            Pseudocode = "OUTPUT "
            for z = 18 to(total - 2)
                if myString(z) = "&" then
                    Pseudocode = Pseudocode + ","
                Else
                    if myString1(z) = "(" then
                        Pseudocode = Pseudocode + "["
                    Else if myString1(z) = ")" then
                        Pseudocode = Pseudocode + "]"
                    Else
                        Pseudocode = Pseudocode + myString(z)
                    End if
                End if
            Next z
' ' ' '  ''  ' ''  ' ' ' ' '' ' '  ' ' ' ' ' ' ' ' '' ' ' ' '' ' ' '' ' '
        else if myString1.Contains("dim") then
            if myString1.Contains("string") then
                Pseudocode = "STRING: "
            Else if myString1.Contains("integer")
                Pseudocode = "INTEGER: "
            Else if myString1.Contains("char")
                Pseudocode = "CHAR: "
            Else if myString1.Contains("decimal")
                Pseudocode = "REAL: "
            Else if myString1.Contains("Boolean")
                Pseudocode = "Boolean: "
            End if
​
            for y = 1 To total - 1
                if myString1(y + 3) = " " And myString1(y + 4) = "a" And myString1(y + 5) = "s" And myString1(y + 6) = " " then
                    Exit for
                else
                    if myString1(y) = "(" then
                        Pseudocode = Pseudocode + "["
                    Else if myString1(y) = ")" then
                        Pseudocode = Pseudocode + "]"
                    Else 
                        Pseudocode = Pseudocode + myString(y + 3)
                    End if
                End if
            Next
                                ' ' ' ' ' ' ' ' ' ' ' '' ' ' '' ' ' ' ELSEIF' '' ' ' '' ' '  ' '' ' ' '' ' ' ' ' '' ' ' ' '' '
        Else if mystring1.Contains("else if") then
            Pseudocode = "ELSEIF "
                for a = 8 To total - 5
                    if myString(a) = "="
                        Pseudocode = Pseudocode + "<-"
                    else
                        Pseudocode = Pseudocode + myString(a)
                    end if
                Next a
                Pseudocode = Pseudocode + "THEN"
        Else if mystring1.Contains("do while") then
            Pseudocode = "WHILE "
            for a = 9 To total - 1
                if myString(a) = "="
                    Pseudocode = Pseudocode + "<-"
                else
                    Pseudocode = Pseudocode + myString(a)
                end if
            Next a
            Pseudocode = Pseudocode + " DO"
                                '''' ' ''  ''  '  '  '' ' ''ENDIF + Else ''  ' '  ' ''  '' ' ' '' ' ' ' '' ' '' ' ' '' ' ' ' ' ' '' 
        Else if myString1.Contains("else") then
            Pseudocode = myString.ToUpper()
                                ' ' '' ' ' '' ' '' ' ' ' '' ' '' ' ' ' '' 'IF ' '' ' ' '' ' ' ' '' ' ' '' '  '' ' ' ' '  ' '
        Else if myString1.Contains("end if")
            Pseudocode = "ENDIF"
        Else if myString1.Contains("loop")                          
            Pseudocode = "ENDWHILE"
        Else if myString1.Contains("do")
            Pseudocode = "REPEAT"
        Else if mystring1.Contains("if") then
            Pseudocode = "IF "
            for a = 3 To total - 5
                if myString(a) = "="
                    Pseudocode = Pseudocode + "<-"
                else
                    Pseudocode = Pseudocode + myString(a)
                end if
            Next a
                Pseudocode = Pseudocode + "THEN"
        Else if myString1.Contains("for") then
            Pseudocode = "FOR "
            for x = 4 To total - 1
                if myString(x) = "="
                    Pseudocode = Pseudocode + "<-"
                else if (myString(x) = "t") OR (mystring(x) = "o")
                    If myString(x-1) = " " OR myString(x+1) = " "
                        if mystring(x + 1) = "o" OR myString(x - 1) = "t" then
                            If myString(x + 2) = " " OR myString(x - 2) = " " then
                                Pseudocode = Pseudocode + myString(x).ToString().ToUpper()
                            End if
                        End if
                    End if
                else
                    Pseudocode = Pseudocode + myString(x)
                End if
            Next x
        Else if myString1.Contains("next")
            Pseudocode = "NEXT "
            for b = 5 To total - 1
                Pseudocode = Pseudocode + myString(b)           
            Next b
        Else if mystring1.Contains("loop until") then
            Pseudocode = "UNTIL "
            for a = 3 To total - 1
                if myString(a) = "="
                    Pseudocode = Pseudocode + "<-"
                else
                    Pseudocode = Pseudocode + myString(a)
                end if
            Next a
        Else if myString.Contains("=") then
            for b = 0 To total - 1
                if myString(b) = "="
                    Pseudocode = Pseudocode + "<-"
                else
                    Pseudocode = Pseudocode + myString(b)
                end if
            Next b
        End If
        console.WriteLine(Pseudocode)
    End Sub
End Module
​

<Pilha>
Para add itens, selecione X

Para remover itens, selecione Z

Caso queira remover um dado especifico digite W

Last Run:	7:40:56 am
Compile:	0.095s
Execute:	0s
Memory:	32kb
CPU:	0.062s

View IL Code