以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  [原创]清空板块的方法  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=4948)
--  作者：z7c9
--  发布时间：2011/1/22 17:55:12
--  [原创]清空板块的方法

以下内容为程序代码:

1 sub blockempty(blockname)
2     set b=createobject("stock.block")
3     b.open blockname,1
4     for i=0 to b.count-1
5         b.removeat(0)
6     next    
7     b.tosave "自选",blockname
8 end sub
9
10 sub test()
11     blockempty("自选股")
12     blockempty("自设股")
13 end sub
14

[此贴子已经被作者于2011-1-22 18:02:16编辑过]