读配置 循环

kkt123

[群名]
1=132
2=123
3=123
4=123
[接收群ID]
1=25711116308@chatroom
2=24090117663@chatroom
3=2251118360@chatroom
4=1744111980@chatroom


VL.发送文字消息 (robot_wxid, 接收群ID, “测试”)  发送给每个群 这个配置怎么读啊

---------------------------------------------------------------------------------------------------------------------------------
这个是超级列表读入的例子

  

子程序名	返回值类型	公开	备 注
超列读取配置项

变量名	类 型	静态	数组	备 注
数组	文本型		0
a	整数型
sy	整数型
b	整数型
配置名数组	文本型		0

数组 ＝ 取配置节名 (取运行目录 () ＋ “\配置.ini”)
如果真 (取数组成员数 (数组) ＝ 0)
返回 ()
计次循环首 (超级列表框2.取列数 (), b)
超级列表框2.置列标题 (b － 1, 数组 [b])
计次循环尾 ()
取配置项名称数量 (取运行目录 () ＋ “\配置.ini”, 数组 [1], 配置名数组)
计次循环首 (取数组成员数 (数组), a)
计次循环首 (取数组成员数 (配置名数组), b)
如果 (a ＝ 1)
sy ＝ 超级列表框2.插入表项 (, , , , , )
超级列表框2.置标题 (sy, a － 1, 读配置项 (取运行目录 () ＋ “\配置.ini”, 数组 [a], 配置名数组 [b], ))
超级列表框2.置标题 (b － 1, a － 1, 读配置项 (取运行目录 () ＋ “\配置.ini”, 数组 [a], 配置名数组 [b], ))

计次循环尾 ()
计次循环尾 ()

子程序名	返回值类型	公开	备 注
取配置项名称数量			。
参数名	类 型	参考	可空	数组	备 注
文件名	文本型
节点名	文本型
数组	文本型

变量名	类 型	静态	数组	备 注
a	整数型
b	整数型
c	整数型
d	整数型
e	整数型
f	整数型
g	整数型
txt1	文本型
txt2	文本型
数组	文本型		0

d ＝ 打开文件 (文件名, 1, )
移到文件首 (d)
g ＝ 1
数组 ＝ 分割文本 (读入文本 (d, ), #换行符, )
c ＝ 取数组成员数 (数组)
移到文件首 (d)
g ＝ 1
计次循环首 (c, b)
txt1 ＝ 读入一行 (d)
g ＝ g ＋ 1
如果真 (寻找文本 (txt1, “[” ＋ 节点名 ＋ “]”, , 假) ≠ -1)
跳出循环 ()

计次循环尾 ()
计次循环首 (c － b, a)
txt1 ＝ 读入一行 (d)
g ＝ g ＋ 1
如果真 (寻找文本 (txt1, “[”, , 假) ＝ -1)
如果真 (g ＝ c ＋ 1)
a ＝ c ＋ 1
跳出循环 ()


如果真 (寻找文本 (txt1, “[”, , 假) ≠ -1)
如果真 (寻找文本 (txt1, “]”, , 假) ≠ -1)
a ＝ b ＋ a
跳出循环 ()


计次循环尾 ()
移到文件首 (d)
g ＝ 1
计次循环首 (b, )
读入一行 (d)
g ＝ g ＋ 1
计次循环尾 ()
计次循环首 (a － b, )
txt1 ＝ 读入一行 (d)
g ＝ g ＋ 1
如果真 (寻找文本 (txt1, “=”, , 假) ≠ -1)
f ＝ 寻找文本 (txt1, “=”, , 假)
e ＝ e ＋ 1
txt2 ＝ 取文本左边 (txt1, f － 1)
txt2 ＝ 删全部空 (txt2)
加入成员 (数组, txt2)
如果真 (寻找文本 (txt1, “;”, , 假) ≠ -1)
e ＝ e － 1
删除成员 (数组, 取数组成员数 (数组), )


计次循环尾 ()

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 超列读取配置项<br /> .局部变量 数组, 文本型, , "0"<br /> .局部变量 a, 整数型<br /> .局部变量 sy, 整数型<br /> .局部变量 b, 整数型<br /> .局部变量 配置名数组, 文本型, , "0"<br /> <br /> 数组 ＝ 取配置节名 (取运行目录 () ＋ “\配置.ini”)<br /> .如果真 (取数组成员数 (数组) ＝ 0)<br />     返回 ()<br /> .如果真结束<br /> .计次循环首 (超级列表框2.取列数 (), b)<br />     超级列表框2.置列标题 (b － 1, 数组 <strong>)<br /> .计次循环尾 ()<br /> 取配置项名称数量 (取运行目录 () ＋ “\配置.ini”, 数组 [1], 配置名数组)<br /> <br /> .计次循环首 (取数组成员数 (数组), a)<br />     .计次循环首 (取数组成员数 (配置名数组), b)<br />         .如果 (a ＝ 1)<br />             sy ＝ 超级列表框2.插入表项 (, , , , , )<br />             超级列表框2.置标题 (sy, a － 1, 读配置项 (取运行目录 () ＋ “\配置.ini”, 数组 [a], 配置名数组 <strong>, ))<br />         .否则<br />             超级列表框2.置标题 (b － 1, a － 1, 读配置项 (取运行目录 () ＋ “\配置.ini”, 数组 [a], 配置名数组 <strong>, ))<br />         .如果结束<br /> <br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 取配置项名称数量, , , 。<br /> .参数 文件名, 文本型<br /> .参数 节点名, 文本型<br /> .参数 数组, 文本型, 可空 数组<br /> .局部变量 a, 整数型<br /> .局部变量 b, 整数型<br /> .局部变量 c, 整数型<br /> .局部变量 d, 整数型<br /> .局部变量 e, 整数型<br /> .局部变量 f, 整数型<br /> .局部变量 g, 整数型<br /> .局部变量 txt1, 文本型<br /> .局部变量 txt2, 文本型<br /> .局部变量 数组, 文本型, , "0"<br /> <br /> d ＝ 打开文件 (文件名, 1, )<br /> 移到文件首 (d)<br /> g ＝ 1<br /> 数组 ＝ 分割文本 (读入文本 (d, ), #换行符, )<br /> c ＝ 取数组成员数 (数组)<br /> 移到文件首 (d)<br /> g ＝ 1<br /> .计次循环首 (c, b)<br />     txt1 ＝ 读入一行 (d)<br />     g ＝ g ＋ 1<br />     .如果真 (寻找文本 (txt1, “[” ＋ 节点名 ＋ “]”, , 假) ≠ -1)<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> .计次循环首 (c － b, a)<br />     txt1 ＝ 读入一行 (d)<br />     g ＝ g ＋ 1<br />     .如果真 (寻找文本 (txt1, “[”, , 假) ＝ -1)<br />         .如果真 (g ＝ c ＋ 1)<br />             a ＝ c ＋ 1<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .如果真结束<br /> <br />     .如果真 (寻找文本 (txt1, “[”, , 假) ≠ -1)<br />         .如果真 (寻找文本 (txt1, “]”, , 假) ≠ -1)<br />             a ＝ b ＋ a<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 移到文件首 (d)<br /> g ＝ 1<br /> .计次循环首 (b, )<br />     读入一行 (d)<br />     g ＝ g ＋ 1<br /> .计次循环尾 ()<br /> .计次循环首 (a － b, )<br />     txt1 ＝ 读入一行 (d)<br />     g ＝ g ＋ 1<br />     .如果真 (寻找文本 (txt1, “=”, , 假) ≠ -1)<br />         f ＝ 寻找文本 (txt1, “=”, , 假)<br />         e ＝ e ＋ 1<br />         txt2 ＝ 取文本左边 (txt1, f － 1)<br />         txt2 ＝ 删全部空 (txt2)<br />         加入成员 (数组, txt2)<br />         .如果真 (寻找文本 (txt1, “;”, , 假) ≠ -1)<br />             e ＝ e － 1<br />             删除成员 (数组, 取数组成员数 (数组), )<br />         .如果真结束<br /> <br />     .如果真结束<br /> <br /> .计次循环尾 ()

翼码

.版本 2

.计次循环首 (9999, 计次)
    接收群ID ＝ 读配置项 (取运行目录 () ＋ “\配置名称.ini”, “接收群ID”, 到文本 (计次), )
    .如果 (接收群ID ≠ “”)
        VL.发送文字消息 (robot_wxid, 接收群ID, “测试文本”)
    .否则
        跳出循环 ()
    .如果结束

.计次循环尾 ()

易容术

翼码 发表于 2021-10-20 11:27
.版本 2

.计次循环首 (9999, 计次)

兄弟，你这昵称牛X！乍一看，我还以为“舅妈”来了……

番茄吧

111.e (8.45 KB, 下载次数: 8)

2021-10-20 11:44 上传

点击文件名下载附件

应该是你要的效果