查看Vbs扩展的源代码

=VBS应用例1=
实例：达到利润目标后的止赢点计算
该实例综合应用了循环语句、条件语句和数组操作，请注意变量数据是怎样被转入、转出的。

背景：假定买入信号发生的条件是创200天新高，第一次达到条件时发出买入信号，略去随后的买入信号，利润目标是10%，达到目标发出卖出信号，这样的交易系统在原公式系统中无法实现，而用脚本语言就解决了这样的问题，请看代码：

 { 买入信号临时变量：收盘创200天新高 }
 BUY:= CLOSE = HHV(CLOSE,200);
 
 { 初始化卖出信号临时数组变量给下面的脚本用,任意赋给一个有效数值起始位置为0的数组变量即可，注意，若SELL:=0则表示SELL为数值而非数组 }
 SELL:= BUY; 
 
 { 初始化收盘价临时数组变量给下面的脚本用 }
 CLOSEPRICE:= CLOSE;
 
 { 用 <% ......%> 嵌入脚本语言，类似编写ASP }
 <%
 ' 将公式系统变量转入VBScript
 close = FFL.VarData("CLOSEPRICE")
 buy = FFL.VarData( "BUY" )
 sell = FFL.VarData("SELL")
 
 ' 该变量保存买入价，也表示开仓、平仓状态。如为0则表示空仓（平仓）
 lastbuyprice = 0
 
 ' 遍历收盘价数组
 
 for i = 0 to UBound( close )
 sell( i ) = 0
 
 ' 若已买入而且未平仓略去随后的买入信号
 if( lastbuyprice > 0 ) then
   buy( i ) = 0
 end if
 
 '若满足买入条件取买入价，也用于设置开仓
 if ( lastbuyprice = 0 ) AND (buy( i ) = 1) then
   lastbuyprice = close( i )
 end if
 
 ' 若已买入且满足卖出条件，产生卖出信号并平仓
 if (lastbuyprice >0 ) AND ( close( i ) > ( 1.1 * lastbuyprice ) ) then
   sell( i ) = 1
   lastbuyprice = 0
 end if
 next
 
 ' 将VBScript变量转出为公式系统变量
 FFL.VarData("BUY") = buy
 FFL.VarData("SELL") = sell
 %>
 
 ENTERLONG: BUY;
 EXITLONG: SELL;

有兴趣的用户可以将这段代码扩充为同时考虑最大损失、回落、横盘平仓点的情况。

类似地，运用脚本语言强大的语法、函数，当然也可以在技术指标、条件选股、五彩K线中实现原来不可想象的计算和处理。