关于版块移动问题

105130

在A公式中设置全局变量（序列），用B公式读取（逐K，最后一根K线）
A公式：EXTGBDATASET(STKLABEL&'无底小0',无底小于0);
B公式：
x:=EXTGBDATA(STKLABEL&'无底小0');
if x=1 then BEGIN
        DeleteFromBlock(STKLABEL,'A版块');
        Addtoblock(STKLABEL,'B版块);
END

这样写公式，正确吗？
在实际运行过程中，发现并没有从A版块中删除交易品种，并增加到B版块，哪里写错了？

资深技术02

不加条件试试你，另外添加后右键在动态显示牌上刷新下

105130

资深技术02 发表于 2022-11-8 15:33
不加条件试试你，另外添加后右键在动态显示牌上刷新下

不加条件，就不知道要删哪个证券了啊

105130

105130 发表于 2022-11-8 15:39
不加条件，就不知道要删哪个证券了啊

是不是DeleteFromBlock(STKLABEL,'A版块');
这个stklabel一定要指定哪个证券代码？
是不是我直接指定这个STKLABEL有问题？

有劳帮我测试一下，怎么弄，这个影响到我跑量化程序了，比较关键的一个环节（把符合条件的品种进行转移，以便下一步程序去读取）

资深技术02

就直接固定几个证券呀，先a板块放好a,b,c三个股票
然后执行程序看这个三个有没有转到b板块中去

资深技术02

电话我吧
021-20339087

资深技术02

问题看到，是删除的函数有问题，add加到板块函数没问题
请等待后面版本修复

105130

经刚刚电话沟通，DeleteFromBlock(STKLABEL,'A版块')函数有问题，有劳尽快修正。

105130

我为什么会转成用预警去删版块股票，因为你们股票池的运行一直有问题，去年我就提出来了，但至今也没有解决。
1、股票池一旦复杂以后，比如多层次连接，公式基本上在40个以上，就会崩
2、股票池吃内存（在某次运行崩溃后，估计有残余数据，然后一直跑，内存就跑没了）
3、股票池崩溃后，没有选择监控股票池，也会启动。


补充内容 (2022-11-8 17:22):
电脑硬件没有问题，64G ddr5 内存 +i9-12900ks CPU

105130

股票池和pel都不能移动版块，能否写一个vbs的代码，从开盘启动，定时复制版块。
需求：1、9:30分定时开启。2、每隔5分钟定时复制指定名称的版块。

我只会写复制，怎么设置指定时间开启和定时复制？
Sub c1copyquanshichang()
        sDate=GetDateString()
        Set b1 = CreateObject("stock.block")
        Call b1.open("全市场股票",1)
       
        Set b2 = CreateObject("stock.block")
        Call b2.open("上海A股",1)
        For i = 0 To b2.Count()-1
        Call b1.AddStock(b2.GetStockMarket(i),b2.GetStockCode(i))       
        Next

        Set b3 = CreateObject("stock.block")
        Call b3.open("深圳A股",1)
        For i = 0 To b3.Count()-1
        Call b1.AddStock(b3.GetStockMarket(i),b3.GetStockCode(i))       
        Next
       
          Call b1.ToSave("自选","全市场股票")
          Call b1.ReFurbishView()

        Set b1 = Nothing       
        Set b2 = Nothing
        Set b3 = Nothing

End sub       


补充内容 (2022-11-9 07:56):
已经会了，不用解答，多谢。