# DeleteBlock 方法
DeleteBlock(type_name,Block_name)
删除指定分类下的板块
参数
| 参数 | 说明 |
|---|---|
| type_name | 分类名称 |
| Block_name | 指定分类下待删除的板块名称 |
Sub del_Block()
Set Block = CreateObject("Stock.Block")
Dim my_Array
Set my_Array = CreateObject("Stock.ArrayString")
'获取指定分类下的板块集合
call Block.GetTypeBlock("自选",my_Array)
'筛选以指定指定字符串开始的板块名称
target_name="2022"
for i = 0 to my_Array.count-1
'得到指定板块名称的前4个字符部分
balock_name = Mid(my_Array.getat(i), 1, 4)
if StrComp(target_name, balock_name, 0)=0 then
application.MsgOut "删除板块:"&my_Array.getat(i)
call Block.DeleteBlock ("自选",my_Array.getat(i))
end if
next
set Block = nothing
set my_Array = nothing
end sub
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
应用于