共5 条记录, 每页显示 10 条, 页签: [1]

标题：[求助]VBA怎么把成交价写进注册表？

1楼

ch3coohqb 发表于：2015/6/26 13:40:23

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赋值注册表

2楼

yukizzc 发表于：2015/6/26 13:54:34

可以参考这个帖子

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

3楼

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)
上面的代码应该如何改？

4楼

ch3coohqb 发表于：2015/6/26 17:03:55

我是要把上面的price成交价写到注册表里面方便调用~
能否动手帮我写一下？

5楼

yukizzc 发表于：2015/6/26 20:11:38

HKEY_CURRENT_USER\software\weisoft\金字塔\settings

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

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

共5 条记录, 每页显示 10 条, 页签: [1]