读写配置

kkt123

  

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

变量名	类 型	静态	数组	备 注
列表分割	文本型		0
i	整数型
索引	整数型
数据	文本型

数据 ＝ “456456545” ＋ #换行符 ＋ “556622226” ＋ #换行符 ＋ “404222256” ＋ #换行符 ＋ “77004560” ＋ #换行符 ＋ “55077700” ＋ #换行符 ＋ “8008990” ＋ #换行符 ＋ “120222” ＋ #换行符 ＋ “55002130” ＋ #换行符 ＋ “1000444” ＋ #换行符 ＋ “1121100”
列表分割 ＝ 分割文本 (数据, #换行符, )
超级列表框1.全部删除 ()
计次循环首 (取数组成员数 (列表分割), i)
索引 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (索引, 0, 列表分割 [i])
计次循环尾 ()

子程序名	返回值类型	公开	备 注
_按钮1_被单击

' 写配置 运行目录/123.txt(超级列表框.取标题 (超级列表框.现行选中项, 0))
如果真 (超级列表框1.现行选中项 ≠ -1)
写配置项 (取运行目录 () ＋ “\123.txt”, “login”, “QQ号码”, 超级列表框1.取标题 (超级列表框1.现行选中项, 0))

配置格式
[login]
QQ号码=8008990
QQ号码=5558855
QQ号码=2555555

子程序名	返回值类型	公开	备 注
_按钮2_被单击

变量名	类 型	静态	数组	备 注
文本	文本型
索引	整数型

' 读配置 运行目录/123.txt 超级列表框2.置标题
文本 ＝ 读配置项 (取运行目录 () ＋ “\123.txt”, “login”, “QQ号码”, )
超级列表框2.置标题 (文本, , )

子程序名	返回值类型	公开	备 注
_按钮4_被单击

删除 ( (超级列表框2.现行选中项, 0))
然后写配置项

子程序名	返回值类型	公开	备 注
_按钮3_被单击

变量名	类 型	静态	数组	备 注
n	整数型
发送文本	文本型

' 发送“123”到超级列表框2每一个qq号码
发送文本 ＝ “123”读配置项 (取运行目录 () ＋ “\123.txt”, “login”, “QQ号码”, )    每一个QQ

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 列表分割, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 索引, 整数型<br /> .局部变量 数据, 文本型<br /> <br /> 数据 ＝ “456456545” ＋ #换行符 ＋ “556622226” ＋ #换行符 ＋ “404222256” ＋ #换行符 ＋ “77004560” ＋ #换行符 ＋ “55077700” ＋ #换行符 ＋ “8008990” ＋ #换行符 ＋ “120222” ＋ #换行符 ＋ “55002130” ＋ #换行符 ＋ “1000444” ＋ #换行符 ＋ “1121100”<br /> 列表分割 ＝ 分割文本 (数据, #换行符, )<br /> 超级列表框1.全部删除 ()<br /> .计次循环首 (取数组成员数 (列表分割), i)<br />     索引 ＝ 超级列表框1.插入表项 (, , , , , )<br />     超级列表框1.置标题 (索引, 0, 列表分割 <i>)<br /> .计次循环尾 ()<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> ' 写配置 运行目录/123.txt(超级列表框.取标题 (超级列表框.现行选中项, 0))<br /> .如果真 (超级列表框1.现行选中项 ≠ -1)<br />     写配置项 (取运行目录 () ＋ “\123.txt”, “login”, “QQ号码”, 超级列表框1.取标题 (超级列表框1.现行选中项, 0))<br /> .如果真结束<br /> <br /> <br /> <br /> 配置格式<br /> [login]<br /> QQ号码=8008990<br /> QQ号码=5558855<br /> QQ号码=2555555<br /> <br /> <br /> .子程序 _按钮2_被单击<br /> .局部变量 文本, 文本型<br /> .局部变量 索引, 整数型<br /> <br /> ' 读配置 运行目录/123.txt 超级列表框2.置标题<br /> 文本 ＝ 读配置项 (取运行目录 () ＋ “\123.txt”, “login”, “QQ号码”, )<br /> 超级列表框2.置标题 (文本, , )<br /> <br /> <br /> <br /> <br /> .子程序 _按钮4_被单击<br /> <br /> 删除 ((超级列表框2.现行选中项, 0))<br /> 然后写配置项<br /> <br /> <br /> <br /> <br /> <br /> .子程序 _按钮3_被单击<br /> .局部变量 n, 整数型<br /> .局部变量 发送文本, 文本型<br /> <br /> ' 发送“123”到超级列表框2每一个qq号码<br /> 发送文本 ＝ “123”读配置项 (取运行目录 () ＋ “\123.txt”, “login”, “QQ号码”, )    每一个QQ

小羊要吃狼

xiaoxiaoxxx 发表于 2021-10-15 09:39
[e=0].版本 2
.支持库 spec

建议精易的 目录_取特定目录（）

CKang

别人有问题不带代码就算了，你这正好反过来，有代码不出问题

小羊要吃狼

  

写配置项 (“C:\Users\Administrator\Desktop\” ＋ “1.txt”, “root”, “user”, “123”)
调试输出 (读配置项 (“C:\Users\Administrator\Desktop\” ＋ “1.txt”, “root”, “user”, “”))

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

.版本 2<br /> .支持库 spec<br /> <br /> 写配置项 (“C:\Users\Administrator\Desktop\” ＋ “1.txt”, “root”, “user”, “123”)<br /> 调试输出 (读配置项 (“C:\Users\Administrator\Desktop\” ＋ “1.txt”, “root”, “user”, “”))

补充内容 (2021-10-15 09:39):
你试试，路径换成自己的

kkt123

CKang 发表于 2021-10-15 08:47
别人有问题不带代码就算了，你这正好反过来，有代码不出问题

现在写配置就写一行，在写就覆盖了

liantan

kkt123 发表于 2021-10-15 11:50
现在写配置就写一行，在写就覆盖了

.版本 2
.支持库 iext

.程序集 窗口程序集_启动窗口
.程序集变量 计次, 整数型

.子程序 _按钮1_被单击

.如果真 (超级列表框1.现行选中项 ≠ -1)
    .如果真 (计次 ＝ 0)
        计次 ＝ 计次 ＋ 1
        写配置项 (取运行目录 () ＋ “\123.txt”, “login”, “QQ号码” ＋ 到文本 (计次), 超级列表框1.取标题 (超级列表框1.现行选中项, 0))
        返回 ()
    .如果真结束
    写配置项 (取运行目录 () ＋ “\123.txt”, “login”, “QQ号码” ＋ 到文本 (计次), 超级列表框1.取标题 (超级列表框1.现行选中项, 0))
    计次 ＝ 计次 ＋ 1

不覆盖就写成QQ号码1，QQ号码2.......以此类推，上面例子仅参考