标题：[原创]清空板块的方法

以下内容为程序代码:

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