|
70楼
发表于 2023-1-24 12:15:05
|
只看该作者
陕西省西安市
看到楼主的帖子受到启发,把代码改进了下,发出来给需要的人,内存读写一定要初始化........这几天做个所有常用通达信版本通用的联动软件,有兴趣的加我群835195742,一起玩这个山头被我们拿下了
.版本 2
.支持库 ncdx98
.子程序 __启动窗口_创建完毕
TDX_句柄 = 进程_名取句柄 (“TdxW.exe”)
TDX_ID = 取进程ID (“TdxW.exe”)
内存读写_初始化 (, )
时钟1.时钟周期 = 10
.子程序 _时钟1_周期事件
' /***
' * 这里是注释,这里敲回车,自动将下方增加一个注释行
' ***/
_读字节集内存 ()
.子程序 _读字节集内存, 文本型
.局部变量 股票代码_字节集, 字节集
.局部变量 股票代码_文本, 文本型
.循环判断首 ()
股票代码_字节集 = 内存读写_读字节集 (TDX_ID, 进制_十六到十 (“*********”), 4, )
股票代码_文本 = 到文本 (取字节集数据 (股票代码_字节集, 4, ))
.如果真 (文本_取长度 (股票代码_文本) > 0 且 文本_取长度 (股票代码_文本) < 6)
.如果 (文本_取长度 (股票代码_文本) = 5)
股票代码_文本 = “0” + 股票代码_文本
.否则
.如果 (文本_取长度 (股票代码_文本) = 4)
股票代码_文本 = “00” + 股票代码_文本
.否则
.如果 (文本_取长度 (股票代码_文本) = 3)
股票代码_文本 = “000” + 股票代码_文本
.否则
.如果 (文本_取长度 (股票代码_文本) = 2)
股票代码_文本 = “0000” + 股票代码_文本
.否则
.如果 (文本_取长度 (股票代码_文本) = 1)
股票代码_文本 = “00000” + 股票代码_文本
.否则
.如果结束
.如果结束
.如果结束
.如果结束
.如果结束
.如果真结束
.循环判断尾 (文本_取长度 (股票代码_文本) ≠ 6)
标签2.标题 = 股票代码_文本
返回 (到文本 (取字节集数据 (股票代码_字节集, 4, )))
|
|