'对脚本一维数组开始变量方面的分析 For i=0 To UBound(s) dim g() As String g = Split(s(i),"=")'这是把脚本字符串解释成DIY编程语言的方法之一 scr(n).varName=g(0) scr(n).varValue=g(1) n=n+1 Next i
现在若是希望把a与b相加,即需要对脚本进行再解释 Dim tmpa As Integer,tmpb As Integer For i=0 To UBound(scr) If scr(i).varName="A" Then tmpa=scr(i).varValue if scr(i).varName="B" Then tmpb=scr(i).varValue Next i tmpc = tmpa + tmpb