以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://www.weistock.com/bbs/index.asp)
--  高级功能研发区  (http://www.weistock.com/bbs/list.asp?boardid=5)
----  [求助]VBA怎么把成交价写进注册表?  (http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=80167)

--  作者:ch3coohqb
--  发布时间:2015/6/26 13:40:23
--  [求助]VBA怎么把成交价写进注册表?
 
Sub ORDER_OrderStatusEx2(OrderID, Status, Filled, Remaining, Price, Code, Market, OrderType, Aspect, Kaiping, Account, AccountType)

if Status="Tradeing" and filled>0 and Account="123456" and  StrComp(left(Code,2),"IF")=0 then\'只跟IF

我要把那个price赋值到一个注册表键值上~怎么赋值?
VBA赋值注册表

--  作者:yukizzc
--  发布时间:2015/6/26 13:54:34
--  

可以参考这个帖子

http://www.weistock.com/bbs/dispbbs.asp?BoardID=5&ID=52674&skin=0


--  作者:ch3coohqb
--  发布时间:2015/6/26 17:01:41
--  
 Sub TestRegistry()
 Set registry = CreateObject("stock.registry")
 Call registry.Open("software\\weisoft\\金字塔\\settings")
 Call registry.WriteInt("id",123)
 result=registry.ReadInt("id")
 application.msgout result
End Sub


你好~这句看不懂~
这个id
在注册表哪个目录下?
比如我要把id写到semi这个目录下方便我后台调用~
GETREGVAL(\'semi\',\'id\',0)
上面的代码应该如何改?

--  作者:ch3coohqb
--  发布时间:2015/6/26 17:03:55
--  
我是要把上面的price成交价写到注册表里面方便调用~
能否动手帮我写一下?

--  作者:yukizzc
--  发布时间:2015/6/26 20:11:38
--  

HKEY_CURRENT_USER\\software\\weisoft\\金字塔\\settings

下面会出现id这个项里面的值就是123

你如果要写文件记录直接用写ini的方式不就好了何必硬要写注册表呢,看下给你链接里写ini的代码,运行一下直接打开那个文件就看得到效果