如何用For语句替换嵌套If语句优化AutoIt数组匹配脚本？

原脚本核心逻辑是在数组$a中查找数组$c元素组成的连续子序列的起始索引，嵌套If的写法可通过遍历$c元素的方式简化，同时解决你尝试脚本中逻辑错误的问题。

问题分析 #

原脚本的嵌套If本质是验证$a中从$b开始的连续元素是否依次匹配$c的对应元素；你尝试的脚本未检查元素连续性，只是零散匹配$c的元素，导致结果不符合预期。

修正后的简化代码 #

#include <Array.au3>
#include <MsgBoxConstants.au3>

Local $a[] = [33,5,3,4,4,'a4',2,22,66,234,'a4',234,31,34,55,'a4',22,44,55,66]
Local $c[] = ['a4',22,44,55,66]
Local $k = -1 ; 初始化为-1表示未找到匹配
Local $cLen = UBound($c)
Local $aLen = UBound($a)

; 遍历$a中所有合法的起始位置，避免数组越界
For $b = 0 To $aLen - $cLen
    Local $isMatch = True
    ; 循环检查$c的每个元素是否与$a的连续元素匹配
    For $i = 0 To $cLen - 1
        If $c[$i] <> $a[$b + $i] Then
            $isMatch = False
            ExitLoop ; 不匹配则直接终止内层检查
        EndIf
    Next
    ; 确认完全匹配后记录起始索引并退出外层循环
    If $isMatch Then
        $k = $b
        ExitLoop
    EndIf
Next

; 输出结果
If $k <> -1 Then
    MsgBox($MB_SYSTEMMODAL, "匹配结果", "找到连续子序列的起始位置：第" & $k & "位")
Else
    MsgBox($MB_SYSTEMMODAL, "匹配结果", "未找到符合条件的连续子序列")
EndIf

代码说明 #

• 用UBound()获取数组长度，替代原脚本的硬编码数字，提升代码灵活性和可维护性。
• 外层循环限制范围为0 To $aLen - $cLen，确保$a剩余元素足够容纳整个$c，避免数组越界。
• 内层循环遍历$c的每个元素，逐一验证连续性匹配，一旦发现不匹配立即终止检查，提升效率。
• 通过$isMatch标记匹配状态，完全匹配后直接记录起始索引并退出循环，无需继续遍历。

如果仅需要匹配原脚本中的前3个$c元素，只需将$cLen的值改为3即可：

Local $cLen = 3

内容的提问来源于stack exchange，提问作者주현태