时间戳

首页 > 解决方案 > 如何计算我的字符串数组并使用字符串

arrays - 如何计算我的字符串数组并使用字符串

问题描述

几个小时以来，我一直在尝试用我的字符串数组解决我的问题

我的代码：

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)

我怎样才能让它工作？

非常感谢！！

标签： arraysstringvbaloops

解决方案

推荐阅读