Analizador Lexico Visual Basic Net

Public Class Form1

Private Structure tErrores
Dim NoLinea As Long
Dim NOerror As Long
Dim Deerror As String
Dim Seerror As Long



Sub New(ByValP1 As Long, ByVal p2 As Long, ByVal p3 As String, ByVal p4 As Long)
Try
NoLinea = P1
NOerror = p2
Deerror = p3
Seerror= p4

Catch ex As Exception
NoLinea = 0
NOerror = 0
Deerror = 0
Seerror = 0
End Try
End SubEnd Structure

Dim LErrores As New List(Of tErrores)
Private Function A1(ByVal token As String, ByRef Lexema As String) As Boolean
Dim Estado As Char = "A"
Dim ipos AsLong = 0
Dim linea As Integer = 0
Try
Do While ipos < token.Length()
linea += 1

Dim Schar As String = token.Substring(ipos, 1)Select Case Estado
Case Is = "A"
If Schar = ";" Then
Estado = "L"
ElseIf Schar = "," ThenEstado = "K"
ElseIf Char.IsDigit(Schar) Then
Estado = "B"
ElseIf Schar = "+" Or Schar = "-"Then
Estado = "C"
ElseIf Schar = "." Then
Estado = "D"
ElseIf Char.IsLetter(Schar) ThenEstado = "I"
ElseIf Schar = "_" Then
Estado = "J"


ElseLErrores.Add(New tErrores(linea, -10005, "Not more symbols allowed, Found " & Schar, "S"))
End If

Case Is = "K", "L"
LErrores.Add(New...