clsline.cls

来自「编译原理课程设计用vb编写」· CLS 代码 · 共 78 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsLine"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public strText As String

Public strType As String
' print,input and so on

'-------if相关的附加信息----------
Public if_else_id As Integer
Public if_endif_id As Integer
Public else_if_id As Integer

Public for_next_id As Integer
Public for_min As Integer
Public for_max As Integer
Public for_step As Integer
Public for_var_name As String
Public exitfor_for_id As Integer
Public next_for_id As Integer

Public dowhile_loop As String
Public loop_dowhile As String
Public do_loopuntil_id As String
Public loopuntile_do_id As String

Public exitdo_dowhile As String
Public exitdo_do As String

Public vLine As Integer     '逻辑行号，goto用
Public phLine As Integer    '物理行号，提示出错用

Public Property Get Head() As Variant
    Dim h As String
    If strText = "" Then
        Head = ""
        Exit Property
    End If
    h = Split(LCase(strText), " ")(0)
    Dim keys() As String
    keys = Split(KEYWORDS, ",")
    For Each i In keys
        If Left(strText & " ", Len(i)) = i Then
            If i = Trim(i) Then
                If Trim(strText) <> Trim(i) Then
                    Head = ""
                    Exit Property
                End If
            End If
            Head = Trim(i)
            Exit Property
        End If
    Next
    Head = ""
End Property

Public Property Let Head(ByVal vNewValue As Variant)
    'do nothing
End Property

Public Property Get Body() As Variant
    Body = Trim(Right(strText, Len(strText) - Len(Head)))
End Property

Public Property Let Body(ByVal vNewValue As Variant)

End Property