?? modloparser.bas
字號:
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 "N"
For Db = StartPos To UBound(VariablesN()) Step 1
Variableentry = VariablesN(Db)
If Variableentry <> "" Then
If Variableentry = Symb Then
VariableIdx = VariablesIndexN(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 "O"
For Db = StartPos To UBound(VariablesO()) Step 1
Variableentry = VariablesO(Db)
If Variableentry <> "" Then
If Variableentry = Symb Then
VariableIdx = VariablesIndexO(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 "P"
For Db = StartPos To UBound(VariablesP()) Step 1
Variableentry = VariablesP(Db)
If Variableentry <> "" Then
If Variableentry = Symb Then
VariableIdx = VariablesIndexP(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 "Q"
For Db = StartPos To UBound(VariablesQ()) Step 1
Variableentry = VariablesQ(Db)
If Variableentry <> "" Then
If Variableentry = Symb Then
VariableIdx = VariablesIndexQ(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 "R"
For Db = StartPos To UBound(VariablesR()) Step 1
Variableentry = VariablesR(Db)
If Variableentry <> "" Then
If Variableentry = Symb Then
VariableIdx = VariablesIndexR(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 "S"
For Db = StartPos To UBound(VariablesS()) Step 1
Variableentry = VariablesS(Db)
If Variableentry <> "" Then
If Variableentry = Symb Then
VariableIdx = VariablesIndexS(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 "T"
For Db = StartPos To UBound(VariablesT()) Step 1
Variableentry = VariablesT(Db)
If Variableentry <> "" Then
If Variableentry = Symb Then
VariableIdx = VariablesIndexT(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 "U"
For Db = StartPos To UBound(VariablesU()) Step 1
Variableentry = VariablesU(Db)
If Variableentry <> "" Then
If Variableentry = Symb Then
VariableIdx = VariablesIndexU(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 "V"
For Db = StartPos To UBound(VariablesV()) Step 1
Variableentry = VariablesV(Db)
If Variableentry <> "" Then
If Variableentry = Symb Then
VariableIdx = VariablesIndexV(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 "W"
For Db = StartPos To UBound(VariablesW()) Step 1
Variableentry = VariablesW(Db)
If Variableentry <> "" Then
If Variableentry = Symb Then
VariableIdx = VariablesIndexW(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 "X"
For Db = StartPos To UBound(VariablesX()) Step 1
Variableentry = VariablesX(Db)
If Variableentry <> "" Then
If Variableentry = Symb Then
VariableIdx = VariablesIndexX(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 "Y"
For Db = StartPos To UBound(VariablesY()) Step 1
Variableentry = VariablesY(Db)
If?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -