Vbscript 有没有办法跟踪有多少语句转到Else子句，然后为显示的每个语句分配一个运行值以运行另一个提示符？ ”选项显式双重检查我的变量和拼写 选项显式 '在开始时定义整个脚本所需的变量 尺寸fso，BC1，STRETR1，STRETR1长度，BC2 尺寸STRETR2，STRETR2长度 Dim测试组件 模糊总数 设置总数=零 '设置fso 设置fso=CreateObject（“Scripting.FileSystemObject”） '声明并打开BC1 设置BC1=fso.OpenTextFile（“C:\Users\GDoe\Desktop\BC1.txt”，1） strestr1=BC1.ReadAll BC1.结束 '声明并打开BC2 设置BC2=fso.OpenTextFile（“C:\Users\GDoe\Desktop\BC2.txt”，1） strestr2=BC2.ReadAll BC2.结束 '确定A是否在字符串中 如果（仪表（STRETR1，“A”）），则 msgbox（strestr1） 其他的 msgbox（“这不是一个A盘。”） 总数=+1 如果结束 '确定E是否在字符串中 如果（仪表（STRETR2，“E”）），则 msgbox（strestr2） 其他的 msgbox（“这不是E板。”） 总数=+1 如果结束 “剪切字符串”-##############，文件位置3，12个字符长 strestr1长度=中间（strestr1,3,12） strestr2长度=中间（strestr2,3,12） “比较我的字符串 TestComp=StrComp（strestr1length，strestr2length） '如果比较显示与数字不匹配，则显示消息框 如果TestComp为0，则 msgbox（“不匹配”） 如果结束 如果总数>0，则 msgbox（总计）

要激活条件为false的运行计数吗 另一个计划在最后的基础上总。如果总计>0且有错误，

---

如果正确，则遵循一条路径继续脚本。

VBScript中没有速记/赋值+数学运算符；所以改变

'Option Explicit double checks my variables and spelling    
Option Explicit    

'Define variables needed throughout script in beginning   
Dim fso, BC1, strTestStr1,strTestStr1Length,BC2    
Dim strTestStr2,strTestStr2Length    
Dim TestComp    
Dim Total    
Set Total = Nothing 

'Set fso     
Set fso = CreateObject("Scripting.FileSystemObject")    
'Declare and Open BC1    
Set BC1 = fso.OpenTextFile("C:\Users\GDoe\Desktop\BC1.txt",1)    
strTestStr1 = BC1.ReadAll    
BC1.Close

'Declare and Open BC2    
Set BC2 = fso.OpenTextFile("C:\Users\GDoe\Desktop\BC2.txt",1)    
strTestStr2=BC2.ReadAll    
BC2.Close

'Determines if the A is within the String    
If(InStr(strTestStr1,"A")) Then    
    msgbox(strTestStr1)   
Else   
    msgbox("This is not an A Plate.")    
    Total = +1    
End If

'Determines if the E is within the String    
If (InStr(strTestStr2,"E")) Then    
    msgbox(strTestStr2)    
Else    
    msgbox("This is not an E Plate.")    
    Total = +1    
End If

'Cut the string "-####-######", File position 3, 12 characters long    
strTestStr1Length = mid(strTestStr1,3,12)    
strTestStr2Length = mid(strTestStr2,3,12)    

'Comparing my Strings    
TestComp = StrComp(strTestStr1Length,strTestStr2Length)    

 'If Comparison reveals mismatch with numbers, Message box displayed    
If TestComp <> 0 Then    
    msgbox("Mismatch")   
End If

If Total > 0 Then    
msgbox(Total)

到

---

看起来你的代码不完整，因为它在if语句的中间完成。我忘了把最后的if添加到语句中。我添加了它并做了您建议的更改，现在效果很好。谢谢：）

Total = +1  ' seen as assign +1 to Total

Total = Total + 1