как считать через мой массив строк и использовать строку - PullRequest
Новая
       9

как считать через мой массив строк и использовать строку

0 голосов
/ 15 мая 2018

часами я пытался решить мою проблему с моим строковым массивом

мой код: 

Sub StartTool()
Call Standart_Evaluation.SetArray_TPLMat
Dim ielement As Integer

element = 0

For ielement = LBound(arr) To UBound(arr)
    For Each element In arr()
        If ielement < 2 Then
            Call Main_Script.SetKeyword
            Call Main_Script.StartFindColumn
            Call Main_Script.StartCreateTable
            Call Main_Script.StartCalculation
            Call Main_Script.BuildDiagram
            Call Main_Script.Delete

        ElseIf ielement = 2 Then
            For Each elRel In Relevances()
                Call Main_Script.SetKeyword
                Call Main_Script.StartFindColumn
                Call Main_Script.StartCreateTable
                'Call Main_Script.StartCalculation
                'Call Main_Script.BuildDiagram
                'Call Main_Script.Delete
            Next elRel
        Else: Exit For
        End If
    Next element
Next ielement
End Sub

мой массив: 

Sub SetArray_TPLMat()

   Call ArrRel
   Call Define_Variables.variables

   arr(0) = "KINDACC"
   arr(1) = "ATYP_1"
   arr(2) = Relevances(elRel)

End Sub

Sub ArrRel()

    Call Define_Variables.variables

    Relevances(0) = "PMA"
    Relevances(1) = "ESC"
    Relevances(2) = "AEB"
    Relevances(3) = "AHL"
    Relevances(4) = "ISA"
    Relevances(5) = "LDW_LKA"
    Relevances(6) = "LCA"
    Relevances(7) = "NIGHTVISION"
    Relevances(8) = "AEB_PEDCYC"

End Sub

и чтоон должен делать:

мой «элемент» (вариант типа) должен быть моей строкой, поэтому мой инструмент начинается с «KINDACC», после чего он продолжается с «ATYP_1».И теперь моя проблема начинается.Если я установлю точку останова на 

    ElseIf ielement = 2 Then

, она все равно будет продолжаться с arr (2).Но мое единственное условие теперь должно быть arr (ielement <2) </p>

Как я могу заставить его работать?

Большое спасибо !!

...