modloparser.bas

来自「一个把VB原代码转换为VC原代码的软件代码。」· BAS 代码 · 共 1,619 行 · 第 1/5 页

                                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