@卡那玻璃 仅坐范例参考
.版本 2
.子程序 XZXG, 整数型, 公开, 自选热点序号：如参数1为：”2“则保存到”自选热点2“板块中，参数2：当此参数为”1“时，删除参数1自选板块中的全部个股，当股票为板块时，自动存入”自选热点+参数1的值，如：”自选板块2“
.参数 pCalcInfo, 整数型
.局部变量 CALCINFO, CALCINFO
.局部变量 DM, 文本型
.局部变量 N, 整数型
.局部变量 ZS, 整数型
.局部变量 wjh, 整数型
.局部变量 ZJJ, 字节集
.局部变量 x, 整数型
.局部变量 i, 整数型
CALCINFO.初始化CALCINFO (pCalcInfo)
N ＝ CALCINFO.取数据个数 ()
DM ＝ CALCINFO.取股票代码 ()
ZS ＝ 到整数 (DM)
.判断开始 (ZS ≥ 600000 且 ZS ＜ 688000)
DM ＝ “SH” ＋ DM
.判断 (ZS ≥ 0 且 ZS ＜ 100000)
DM ＝ “SZ” ＋ DM
.默认
.如果真 (ZS ＞ 300000 且 ZS ＜ 400000)
DM ＝ “SZ” ＋ DM
.如果真结束
.判断结束
.判断开始 (取文本长度 (DM) ＝ 8)
.判断开始 (CALCINFO.取参数值 (2, N) ＝ 1)
写到文件 (取运行目录 () ＋ “\USERDATA\block\自选热点” ＋ 到文本 (到整数 (CALCINFO.取参数值 (1, N))) ＋ “.BLK”, { 166, 0, 81, 255, 1 })
.判断 (文件是否存在 (取运行目录 () ＋ “\USERDATA\block\自选热点” ＋ 到文本 (到整数 (CALCINFO.取参数值 (1, N))) ＋ “.BLK”) ＝ 假)
wjh ＝ 打开文件 (取运行目录 () ＋ “\USERDATA\block\自选热点” ＋ 到文本 (到整数 (CALCINFO.取参数值 (1, N))) ＋ “.BLK”, #改读, )
关闭文件 (wjh)
写到文件 (取运行目录 () ＋ “\USERDATA\block\自选热点” ＋ 到文本 (到整数 (CALCINFO.取参数值 (1, N))) ＋ “.BLK”, { 166, 0, 81, 255, 1 } ＋ 到字节集 (DM) ＋ 取空白字节集 (8))
.默认
ZJJ ＝ 读入文件 (取运行目录 () ＋ “\USERDATA\block\自选热点” ＋ 到文本 (到整数 (CALCINFO.取参数值 (1, N))) ＋ “.BLK”)
.如果真 (字节集_寻找 (ZJJ, 到字节集 (DM), 6) ＝ -1)
写到文件 (取运行目录 () ＋ “\USERDATA\block\自选热点” ＋ 到文本 (到整数 (CALCINFO.取参数值 (1, N))) ＋ “.BLK”, ZJJ ＋ 到字节集 (DM) ＋ 取空白字节集 (8))
.如果真结束
.判断结束
.默认
.如果真 (ZS ＞ 990000 且 ZS ＜ 998000)
DM ＝ “B$” ＋ CALCINFO.取股票代码 ()
.判断开始 (CALCINFO.取参数值 (2, N) ＝ 1)
写到文件 (取运行目录 () ＋ “\USERDATA\block\自选板块” ＋ 到文本 (到整数 (CALCINFO.取参数值 (1, N))) ＋ “.BLK”, { 166, 0, 81, 255, 1 })
.判断 (文件是否存在 (取运行目录 () ＋ “\USERDATA\block\自选板块” ＋ 到文本 (到整数 (CALCINFO.取参数值 (1, N))) ＋ “.BLK”) ＝ 假)
wjh ＝ 打开文件 (取运行目录 () ＋ “\USERDATA\block\自选板块” ＋ 到文本 (到整数 (CALCINFO.取参数值 (1, N))) ＋ “.BLK”, #改读, )
关闭文件 (wjh)
写到文件 (取运行目录 () ＋ “\USERDATA\block\自选板块” ＋ 到文本 (到整数 (CALCINFO.取参数值 (1, N))) ＋ “.BLK”, { 166, 0, 81, 255, 1 } ＋ 到字节集 (DM) ＋ 取空白字节集 (8))
.默认
ZJJ ＝ 读入文件 (取运行目录 () ＋ “\USERDATA\block\自选板块” ＋ 到文本 (到整数 (CALCINFO.取参数值 (1, N))) ＋ “.BLK”)
.如果真 (字节集_寻找 (ZJJ, 到字节集 (DM), 6) ＝ -1)
写到文件 (取运行目录 () ＋ “\USERDATA\block\自选板块” ＋ 到文本 (到整数 (CALCINFO.取参数值 (1, N))) ＋ “.BLK”, ZJJ ＋ 到字节集 (DM) ＋ 取空白字节集 (8))
.如果真结束
.判断结束
.如果真结束
.判断结束
CALCINFO.写结果缓冲区 (N － 1, 1)
返回 (N － 1)
+
