AS400 PCOMM VBScript宏循环开发求助：指定步长变量替换

没问题，我帮你把这个AS400 PCOMM宏的循环逻辑修正好，让它能正常运行。你的核心需求是循环替换10位代码里的三位数字部分，步长为2对吧？先看看修正后的完整可运行代码，我再给你拆解关键调整点：

[PCOMM SCRIPT HEADER]
LANGUAGE=VBSCRIPT
DESCRIPTION=循环执行代码替换
[PCOMM SCRIPT SOURCE]
OPTION EXPLICIT

autECLSession.SetConnectionByName(ThisSessionName)

' 调用宏主子程序
Call Sub1_()

Sub Sub1_()
    Dim currentNum
    Dim targetCode
    
    ' 等待应用程序可用
    autECLSession.autECLOIA.WaitForAppAvailable
    
    ' 发送PF6（如果这是循环前的固定操作）
    autECLSession.autECLPS.SendKeys "[pf6]"
    
    ' 循环：从11到273，步长2（可自行调整起始/结束值）
    For currentNum = 11 To 273 Step 2
        ' 格式化三位数字（补前导零），拼接完整10位代码
        targetCode = "61106" & Right("000" & currentNum, 3) & "AA"
        
        ' 发送拼接好的代码
        autECLSession.autECLPS.SendKeys targetCode
        
        ' 发送回车键
        autECLSession.autECLPS.SendKeys "[ENTER]"
        
        ' 等待系统准备好下一次输入，避免操作过快出错
        autECLSession.autECLOIA.WaitForInputReady
    Next
End Sub

关键调整说明 #

• 修正循环语法：VBScript里For循环的步长必须用数字2，不能写英文Two；变量名用currentNum更直观，循环范围可按需修改（比如改成10 To 272 Step 2）。
• 三位数字格式化：用Right("000" & currentNum, 3)确保数字始终是三位（比如11会变成011），这样拼接出来的61106XXXAA格式完全符合要求。
• 修复SendKeys调用错误：原来的代码存在语法错误，现在将固定字符串和变量拼接成完整的目标代码后，再一次性传递给SendKeys。
• 添加输入等待逻辑：在发送ENTER后加入WaitForInputReady，保证系统处理完当前操作后再执行下一次循环，避免宏因系统响应慢而出错。

提示：如果[pf6]是每次循环里的固定操作，而不是只执行一次，你可以把它移动到For循环内部。

内容的提问来源于stack exchange，提问作者Chuck Bauman IV