modloparser.bas

把VB 源码转化为VC源码的程序

            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