查看Vbs扩展的源代码

=VBS示例4=
在逐行模式中，if语句是失效的（只判断最后一根的情况）。但有时确实希望在逐行中使用if，此时可以利用VBS来达到目的。
例如，我希望统计Macd指标的MACD每一段正负值的和，代码如下。
 DIFF : EMA(CLOSE,S) - EMA(CLOSE,P);
 DEA  : EMA(DIFF,M);
 MACD : 2*(DIFF-DEA), COLORSTICK;
 
 sumMacd:c,OwnerScale;
 <%
   dataCount = ffl.VarData("DataCount")
   macd = ffl.VarData("macd")
   nFirst = ffl.VarStartIndex("macd")
   sumMacd = ffl.VarData("sumMacd")
   idx = nFirst
   nLast = UBound( macd )
   tmp = macd(nFirst)
   for i = nFirst+1 to nLast
     if (macd(i)*tmp<0 or i=nLast) then 
          for j = idx to i-1 
            sumMacd(j) = tmp
          next
 	  tmp = macd(i)
          idx = i
      Else
      tmp = tmp + macd(i)
      end if
   next
   sumMacd(nLast)=sumMacd(nLast-1)
   ffl.VarData("sumMacd") = sumMacd
 %>