?? modloparser.bas
字號:
For Db = StartPos To UBound(VariablesB()) Step 1
Variableentry = VariablesB(Db)
If Variableentry <> "" Then
If Variableentry = Symb Then
VariableIdx = VariablesIndexB(Db)
Select Case CheckCoherency
Case VARSEARCH_LOCALGLOBAL
If VariablesLocalFunction(VariableIdx) = "" Then
IsVariable = VariableIdx
Exit Function
End If
If VariablesLocalFunction(VariableIdx) = CurrentNested Then
IsVariable = VariableIdx
Exit Function
End If
Case VARSEARCH_LOCALONLY
If VariablesLocalFunction(VariableIdx) = CurrentNested Then
IsVariable = VariableIdx
Exit Function
End If
Case VARSEARCH_NOCOHERENCY
IsVariable = VariableIdx
Exit Function
End Select
End If
End If
Next
Case "C"
For Db = StartPos To UBound(VariablesC()) Step 1
Variableentry = VariablesC(Db)
If Variableentry <> "" Then
If Variableentry = Symb Then
VariableIdx = VariablesIndexC(Db)
Select Case CheckCoherency
Case VARSEARCH_LOCALGLOBAL
If VariablesLocalFunction(VariableIdx) = "" Then
IsVariable = VariableIdx
Exit Function
End If
If VariablesLocalFunction(VariableIdx) = CurrentNested Then
IsVariable = VariableIdx
Exit Function
End If
Case VARSEARCH_LOCALONLY
If VariablesLocalFunction(VariableIdx) = CurrentNested Then
IsVariable = VariableIdx
Exit Function
End If
Case VARSEARCH_NOCOHERENCY
IsVariable = VariableIdx
Exit Function
End Select
End If
End If
Next
Case "D"
For Db = StartPos To UBound(VariablesD()) Step 1
Variableentry = VariablesD(Db)
If Variableentry <> "" Then
If Variableentry = Symb Then
VariableIdx = VariablesIndexD(Db)
Select Case CheckCoherency
Case VARSEARCH_LOCALGLOBAL
If VariablesLocalFunction(VariableIdx) = "" Then
IsVariable = VariableIdx
Exit Function
End If
If VariablesLocalFunction(VariableIdx) = CurrentNested Then
IsVariable = VariableIdx
Exit Function
End If
Case VARSEARCH_LOCALONLY
If VariablesLocalFunction(VariableIdx) = CurrentNested Then
IsVariable = VariableIdx
Exit Function
End If
Case VARSEARCH_NOCOHERENCY
IsVariable = VariableIdx
Exit Function
End Select
End If
End If
Next
Case "E"
For Db = StartPos To UBound(VariablesE()) Step 1
Variableentry = VariablesE(Db)
If Variableentry <> "" Then
If Variableentry = Symb Then
VariableIdx = VariablesIndexE(Db)
Select Case CheckCoherency
Case VARSEARCH_LOCALGLOBAL
If VariablesLocalFunction(VariableIdx) = "" Then
IsVariable = VariableIdx
Exit Function
End If
If VariablesLocalFunction(VariableIdx) = CurrentNested Then
IsVariable = VariableIdx
Exit Function
End If
Case VARSEARCH_LOCALONLY
If VariablesLocalFunction(VariableIdx) = CurrentNested Then
IsVariable = VariableIdx
Exit Function
End If
Case VARSEARCH_NOCOHERENCY
IsVariable = VariableIdx
Exit Function
End Select
End If
End If
Next
Case "F"
For Db = StartPos To UBound(VariablesF()) Step 1
Variableentry = VariablesF(Db)
If Variableentry <> "" Then
If Variableentry = Symb Then
VariableIdx = VariablesIndexF(Db)
Select Case CheckCoherency
Case VARSEARCH_LOCALGLOBAL
If VariablesLocalFunction(VariableIdx) = "" Then
IsVariable = VariableIdx
Exit Function
End If
If VariablesLocalFunction(VariableIdx) = CurrentNested Then
IsVariable = VariableIdx
Exit Function
End If
Case VARSEARCH_LOCALONLY
If VariablesLocalFunction(VariableIdx) = CurrentNested Then
IsVariable = VariableIdx
Exit Function
End If
Case VARSEARCH_NOCOHERENCY
IsVariable = VariableIdx
Exit Function
End Select
End If
End If
Next
Case "G"
For Db = StartPos To UBound(VariablesG()) Step 1
Variableentry = VariablesG(Db)
If Variableentry <> "" Then
If Variableentry = Symb Then
VariableIdx = VariablesIndexG(Db)
Select Case CheckCoherency
Case VARSEARCH_LOCALGLOBAL
If VariablesLocalFunction(VariableIdx) = "" Then
IsVariable = VariableIdx
Exit Function
End If
If VariablesLocalFunction(VariableIdx) = CurrentNested Then
IsVariable = VariableIdx
Exit Function
End If
Case VARSEARCH_LOCALONLY
If VariablesLocalFunction(VariableIdx) = CurrentNested Then
IsVariable = VariableIdx
Exit Function
End If
Case VARSEARCH_NOCOHERENCY
IsVariable = VariableIdx
Exit Function
End Select
End If
End If
Next
Case "H"
For Db = StartPos To UBound(VariablesH()) Step 1
Variableentry = VariablesH(Db)
If Variableentry <> "" Then
If Variableentry = Symb Then
VariableIdx = VariablesIndexH(Db)
Select Case CheckCoherency
Case VARSEARCH_LOCALGLOBAL
If VariablesLocalFunction(VariableIdx) = "" Then
IsVariable = VariableIdx
Exit Function
End If
If VariablesLocalFunction(VariableIdx) = CurrentNested Then
IsVariable = VariableIdx
Exit Function
End If
Case VARSEARCH_LOCALONLY
If VariablesLocalFunction(VariableIdx) = CurrentNested Then
IsVariable = VariableIdx
Exit Function
End If
Case VARSEARCH_NOCOHERENCY
IsVariable = VariableIdx
Exit Function
End Select
End If
End If
Next
Case "I"
For Db = StartPos To UBound(VariablesI()) Step 1
Variableentry = VariablesI(Db)
If Variableentry <> "" Then
If Variableentry = Symb Then
VariableIdx = VariablesIndexI(Db)
Select Case CheckCoherency
Case VARSEARCH_LOCALGLOBAL
If VariablesLocalFunction(VariableIdx) = "" Then
IsVariable = VariableIdx
Exit Function
End If
If VariablesLocalFunction(VariableIdx) = CurrentNested Then
IsVariable = VariableIdx
Exit Function
End If
Case VARSEARCH_LOCALONLY
If VariablesLocalFunction(VariableIdx) = CurrentNested Then
IsVariable = VariableIdx
Exit Function
End If
Case VARSEARCH_NOCOHERENCY
IsVariable = VariableIdx
Exit Function
End Select
End If
End If
Next
Case "J"
For Db = StartPos To UBound(VariablesJ()) Step 1
Variableentry = VariablesJ(Db)
If Variableentry <> "" Then
If Variableentry = Symb Then
VariableIdx = VariablesIndexJ(Db)
Select Case CheckCoherency
Case VARSEARCH_LOCALGLOBAL
If VariablesLocalFunction(VariableIdx) = "" Then
IsVariable = VariableIdx
Exit Function
End If
If VariablesLocalFunction(VariableIdx) = CurrentNested Then
IsVariable = VariableIdx
Exit Function
End If
Case VARSEARCH_LOCALONLY
If VariablesLocalFunction(VariableIdx) = CurrentNested Then
IsVariable = VariableIdx
Exit Function
End If
Case VARSEARCH_NOCOHERENCY
IsVariable = VariableIdx
Exit Function
End Select
End If
End If
Next
Case "K"
For Db = StartPos To UBound(VariablesK()) Step 1
Variableentry = VariablesK(Db)
If Variableentry <> "" Then
If Variableentry = Symb Then
VariableIdx = VariablesIndexK(Db)
Select Case CheckCoherency
Case VARSEARCH_LOCALGLOBAL
If VariablesLocalFunction(VariableIdx) = "" Then
IsVariable = VariableIdx
Exit Function
End If
If VariablesLocalFunction(VariableIdx) = CurrentNested Then
IsVariable = VariableIdx
Exit Function
End If
Case VARSEARCH_LOCALONLY
If VariablesLocalFunction(VariableIdx) = CurrentNested Then
IsVariable = VariableIdx
Exit Function
End If
Case VARSEARCH_NOCOHERENCY
IsVariable = VariableIdx
Exit Function
End Select
End If
End If
Next
Case "L"
For Db = StartPos To UBound(VariablesL()) Step 1
Variableentry = VariablesL(Db)
If Variableentry <> "" Then
If Variableentry = Symb Then
VariableIdx = VariablesIndexL(Db)
Select Case CheckCoherency
Case VARSEARCH_LOCALGLOBAL
If VariablesLocalFunction(VariableIdx) = "" Then
IsVariable = VariableIdx
Exit Function
End If
If VariablesLocalFunction(VariableIdx) = CurrentNested Then
IsVariable = VariableIdx
Exit Function
End If
Case VARSEARCH_LOCALONLY
If VariablesLocalFunction(VariableIdx) = CurrentNested Then
IsVariable = VariableIdx
Exit Function
End If
Case VARSEARCH_NOCOHERENCY
IsVariable = VariableIdx
Exit Function
End Select
End If
End If
Next
Case "M"
For Db = StartPos To UBound(VariablesM()) Step 1
Variableentry = VariablesM(Db)
If Variableentry <> "" Then
If Variableentry = Symb Then
VariableIdx = VariablesIndexM(Db)
Select Case CheckCoherency
Case VARSEARCH_LOCALGLOBAL
If VariablesLocalFunction(VariableIdx) = "" Then
IsVariable = VariableIdx
Exit Function
End If
If VariablesLocalFunction(VariableIdx) = CurrentNested Then
IsVariable = VariableIdx
Exit Function
End If
Case VARSEARCH_LOCALONLY
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -