读取配置项，怎么写才好，还有其他比这好一点的思路吗

zhangli9271

  

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

大罗打 (取任务 (读任务开关 (“瘟疫巨怪”), 读任务开关 (“半兽首领”), 读任务开关 (“雪域帝王”)))

子程序名	返回值类型	公开	备 注
读任务开关	逻辑型
参数名	类 型	参考	可空	数组	备 注
任务名称	文本型

变量名	类 型	静态	数组	备 注
n

n ＝ 到整数 (读配置项 (取运行目录 () ＋ “\任务开关.ini”, “任务开关”, 任务名称, “0”))
返回 (n ≠ 0)

子程序名	返回值类型	公开	备 注
取任务	整数型
参数名	类 型	参考	可空	数组	备 注
瘟疫巨怪	逻辑型
半兽首领	逻辑型
雪域帝王	逻辑型

变量名	类 型	静态	数组	备 注
n	整数型

如果真 (瘟疫巨怪)
n ＝ 位或 (n, 1)
调试输出 (n)
如果真 (半兽首领)
n ＝ 位或 (n, 2)
调试输出 (n)
如果真 (雪域帝王)
n ＝ 位或 (n, 3)
调试输出 (n)

返回 (n)

子程序名	返回值类型	公开	备 注
大罗打
参数名	类 型	参考	可空	数组	备 注
任务参数

如果真 (位与 (任务参数, 1) ＝ 1)
瘟疫巨怪打 ()
模拟器一 ()
如果真 (位与 (任务参数, 2) ＝ 2)
半兽首领打 ()
模拟器一 ()
如果真 (位与 (任务参数, 3) ＝ 3)
雪域帝王打 ()
模拟器一 ()

子程序名	返回值类型	公开	备 注
瘟疫巨怪打

调试输出 (“瘟疫巨怪打”)

子程序名	返回值类型	公开	备 注
半兽首领打

调试输出 (“半兽首领打”)

子程序名	返回值类型	公开	备 注
雪域帝王打

调试输出 (“雪域帝王打”)

子程序名	返回值类型	公开	备 注
集中巨怪打

调试输出 (“集中巨怪打”)

子程序名	返回值类型	公开	备 注
霸王教主打

调试输出 (“霸王教主打”)

子程序名	返回值类型	公开	备 注
模拟器一

调试输出 (“模拟器一”)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> 大罗打 (取任务 (读任务开关 (“瘟疫巨怪”), 读任务开关 (“半兽首领”), 读任务开关 (“雪域帝王”)))<br /> <br /> .子程序 读任务开关, 逻辑型<br /> .参数 任务名称, 文本型<br /> .局部变量 n<br /> <br /> n ＝ 到整数 (读配置项 (取运行目录 () ＋ “\任务开关.ini”, “任务开关”, 任务名称, “0”))<br /> 返回 (n ≠ 0)<br /> <br /> .子程序 取任务, 整数型<br /> .参数 瘟疫巨怪, 逻辑型, 可空<br /> .参数 半兽首领, 逻辑型, 可空<br /> .参数 雪域帝王, 逻辑型, 可空<br /> .局部变量 n, 整数型<br /> <br /> .如果真 (瘟疫巨怪)<br />     n ＝ 位或 (n, 1)<br />     调试输出 (n)<br /> .如果真结束<br /> .如果真 (半兽首领)<br />     n ＝ 位或 (n, 2)<br />     调试输出 (n)<br /> .如果真结束<br /> .如果真 (雪域帝王)<br />     n ＝ 位或 (n, 3)<br />     调试输出 (n)<br /> .如果真结束<br /> <br /> 返回 (n)<br /> <br /> .子程序 大罗打<br /> .参数 任务参数<br /> <br /> .如果真 (位与 (任务参数, 1) ＝ 1)<br />     瘟疫巨怪打 ()<br />     模拟器一 ()<br /> .如果真结束<br /> .如果真 (位与 (任务参数, 2) ＝ 2)<br />     半兽首领打 ()<br />     模拟器一 ()<br /> .如果真结束<br /> .如果真 (位与 (任务参数, 3) ＝ 3)<br />     雪域帝王打 ()<br />     模拟器一 ()<br /> .如果真结束<br /> <br /> <br /> .子程序 瘟疫巨怪打<br /> <br /> 调试输出 (“瘟疫巨怪打”)<br /> <br /> .子程序 半兽首领打<br /> <br /> 调试输出 (“半兽首领打”)<br /> <br /> .子程序 雪域帝王打<br /> <br /> 调试输出 (“雪域帝王打”)<br /> <br /> .子程序 集中巨怪打<br /> <br /> 调试输出 (“集中巨怪打”)<br /> <br /> .子程序 霸王教主打<br /> <br /> 调试输出 (“霸王教主打”)<br /> <br /> .子程序 模拟器一<br /> <br /> 调试输出 (“模拟器一”)

取任务的N 是随机的 雪域帝王改成3 就会重复，改成4才可以用，向这样个的BOSS子程序有两百多个，不能按照顺序排列，一个个测试太麻烦了，有改进的方法吗？

月下美孤

  

子程序名	返回值类型	公开	备 注
ini_取项名项值_2run	逻辑型		取配置文本中的项名、项值，如果取到的值存在空值则返回假，否则返回真，通过子程序传参。
参数名	类 型	参考	可空	数组	备 注
配置文件名	文本型
节名称	文本型
联动子程序	子程序指针				传参，参数1=项名称   参数2=项值

变量名	类 型	静态	数组	备 注
sbuffer	字节集
Array	字节集		0
Lenth
i
项_text	文本型
项_value	文本型
len

sbuffer ＝ 取空白字节集 (32767)
Lenth ＝ GetPrivateProfileSection (节名称, sbuffer, 32767, 配置文件名)
sbuffer ＝ 取字节集左边 (sbuffer, Lenth)
Array ＝ 分割字节集 (sbuffer, { 0 }, )
计次循环首 (取数组成员数 (Array), i)
项_text ＝ 到文本 (Array [i])
len ＝ 寻找文本 (项_text, “=”, , 假)
如果真 (len ≠ -1)
项_text ＝ 取文本左边 (项_text, len － 1)

项_value ＝ 读配置项 (配置文件名, 节名称, 项_text, )
如果真 (项_value ＝ “”)
返回 (假)

程序_Call (到整数 (联动子程序), lstrcpyn_文本型 (项_text, 项_text, 0), lstrcpyn_文本型 (项_value, 项_value, 0))
计次循环尾 ()
返回 (真)

.版本 2<br /> <br /> .子程序 ini_取项名项值_2run, 逻辑型, , 取配置文本中的项名、项值，如果取到的值存在空值则返回假，否则返回真，通过子程序传参。<br /> .参数 配置文件名, 文本型<br /> .参数 节名称, 文本型<br /> .参数 联动子程序, 子程序指针, 可空, 传参，参数1=项名称   参数2=项值<br /> .局部变量 sbuffer, 字节集<br /> .局部变量 Array, 字节集, , "0"<br /> .局部变量 Lenth<br /> .局部变量 i<br /> .局部变量 项_text, 文本型<br /> .局部变量 项_value, 文本型<br /> .局部变量 len<br /> <br /> <br /> sbuffer ＝ 取空白字节集 (32767)<br /> Lenth ＝ GetPrivateProfileSection (节名称, sbuffer, 32767, 配置文件名)<br /> sbuffer ＝ 取字节集左边 (sbuffer, Lenth)<br /> Array ＝ 分割字节集 (sbuffer, { 0 }, )<br /> .计次循环首 (取数组成员数 (Array), i)<br />     项_text ＝ 到文本 (Array <i>)<br />     len ＝ 寻找文本 (项_text, “=”, , 假)<br />     .如果真 (len ≠ -1)<br />         项_text ＝ 取文本左边 (项_text, len － 1)<br />     .如果真结束<br /> <br />     项_value ＝ 读配置项 (配置文件名, 节名称, 项_text, )<br />     .如果真 (项_value ＝ “”)<br />         返回 (假)<br />     .如果真结束<br /> <br />     程序_Call (到整数 (联动子程序), lstrcpyn_文本型 (项_text, 项_text, 0), lstrcpyn_文本型 (项_value, 项_value, 0))<br /> .计次循环尾 ()<br /> 返回 (真)

  

DLL命令名	返回值类型	公开	备 注
GetPrivateProfileSection	整数型		文件_取配置项名数组1  枚举节成员
DLL库文件名:
kernel32.dll
在DLL库中对应命令名:
GetPrivateProfileSectionA
参数名	类 型	传址	数组	备 注
小节名	文本型			lpAppName
返回文本	字节集			lpReturnedString
返回文本大小	整数型			nSize
配置项文件名	文本型			lpFileName

.版本 2<br /> <br /> .DLL命令 GetPrivateProfileSection, 整数型, "kernel32.dll", "GetPrivateProfileSectionA", , 文件_取配置项名数组1  枚举节成员<br />     .参数 小节名, 文本型, , lpAppName<br />     .参数 返回文本, 字节集, , lpReturnedString<br />     .参数 返回文本大小, 整数型, , nSize<br />     .参数 配置项文件名, 文本型, , lpFileName

其它的参考精易模块

zhangli9271

任务开关.ini
[任务开关]
瘟疫巨怪=1
半兽首领=0
雪域帝王=1

決不放棄

当然不能用3，3的二进制是11 你位与 1 时会返回1导致误判。
要用1 2 4 8 16 32 64 128这样2的次方倍

补充内容 (2024-3-4 18:17):
这样可以保证每个数在2进制下只有1位是1，其他位是0，不会和其他数重叠

houtian

  

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
局_配置	类_配置项
局_名称	文本型		0
局_值	文本型		0
i	整数型

局_配置.枚举项 (取运行目录 () ＋ “\任务开关.ini”, “任务开关”, 局_名称, 局_值)
数组_排序 (局_名称)
计次循环首 (取数组成员数 (局_名称), i)
如果真 (读配置项 (取运行目录 () ＋ “\任务开关.ini”, “任务开关”, 局_名称 [i], ) ＝ “1”)
大罗打 (文本_取左边 (局_名称 [i], “_”))

计次循环尾 ()

子程序名	返回值类型	公开	备 注
大罗打
参数名	类 型	参考	可空	数组	备 注
任务参数	整数型

如果真 (任务参数 ＝ 1)
瘟疫巨怪打 ()
模拟器一 ()
如果真 (任务参数 ＝ 2)
半兽首领打 ()
模拟器一 ()
如果真 (任务参数 ＝ 3)
雪域帝王打 ()
模拟器一 ()

.版本 2<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 局_配置, 类_配置项<br /> .局部变量 局_名称, 文本型, , "0"<br /> .局部变量 局_值, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> 局_配置.枚举项 (取运行目录 () ＋ “\任务开关.ini”, “任务开关”, 局_名称, 局_值)<br /> 数组_排序 (局_名称)<br /> .计次循环首 (取数组成员数 (局_名称), i)<br />     .如果真 (读配置项 (取运行目录 () ＋ “\任务开关.ini”, “任务开关”, 局_名称 <i>, ) ＝ “1”)<br />         大罗打 (文本_取左边 (局_名称 <i>, “_”))<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> .子程序 大罗打<br /> .参数 任务参数, 整数型<br /> <br /> .如果真 (任务参数 ＝ 1)<br />     瘟疫巨怪打 ()<br />     模拟器一 ()<br /> .如果真结束<br /> .如果真 (任务参数 ＝ 2)<br />     半兽首领打 ()<br />     模拟器一 ()<br /> .如果真结束<br /> .如果真 (任务参数 ＝ 3)<br />     雪域帝王打 ()<br />     模拟器一 ()

配置文件

任务开关.ini
[任务开关]
1_瘟疫巨怪=1
2_半兽首领=0
4_霸王教主打=1
3_雪域帝王=1

因为保存顺序不一样, 在配置中的顺序不同, 所以需要加个数字用来排序, 对应任务参数

Suky

你想要达成的目的是  读配置  然后按优先级选择目标？
没必要搞这么复杂啊
这样的东西搞位与位或没必要  如果目标数量多了  出错概率就会更大

zhangli9271

houtian 发表于 2024-3-4 20:14
[e=1].版本 2

.子程序 __启动窗口_创建完毕

局_配置（类_配置项）这个不对运行不起来

houtian

zhangli9271 发表于 2024-3-5 00:13
局_配置（类_配置项）这个不对运行不起来

加个精易模块

zhangli9271

houtian 发表于 2024-3-5 07:23
加个精易模块

读取配置项的字符还是不对