写配置项转读配置项

940505050 · 发表于 2022-11-12 08:04:42

刚弄一个软件，配置项太多了，一个个弄太烦，就弄了这个，有需要的拿走吧

子程序名	返回值类型	公开	备注
写配置转读配置

变量名	类型	静态	数组	备注
原内容	文本型
分割后	文本型		0
新内容	文本型
i	整数型
写配置	整数型
处理文本	文本型
文本前	文本型
文本后	文本型

原内容＝编辑框1.内容
分割后＝分割文本 (原内容, #换行符, )
新内容＝ “”

计次循环首 (取数组成员数 (分割后), i)
写配置＝文本_寻找文本 (分割后 [i], “写配置项”, , )

判断 (写配置＝ -1)
新内容＝新内容＋分割后 [i] ＋ #换行符

判断 (写配置 ≠ -1)
处理文本＝ “”
处理文本＝子文本替换 (分割后 [i], “写配置项”, “读配置项”, , , 真)
处理文本＝子文本替换 (处理文本, “到文本 (”, “”, , , 真)
处理文本＝子文本替换 (处理文本, “))”, “)”, , , 真)
文本前＝ “_启动窗口” ＋文本_取出中间文本 (处理文本, “_启动窗口”, “)”, , )
文本后＝子文本替换 (处理文本, 文本前, “”, , , 真)

判断 (文本_寻找文本 (文本前, “内容”, , ) ≠ -1) ' 已是文本型
处理文本＝文本前＋ “ = ” ＋文本后

判断 (文本_寻找文本 (文本前, “现行选中项”, , ) ≠ -1) ' 整数型
处理文本＝文本前＋ “ = 到整数 (” ＋文本后＋ “ )”

判断 (文本_寻找文本 (文本前, “选中”, , ) ≠ -1) ' 逻辑性
处理文本＝文本前＋ “ = 到逻辑型 (” ＋文本后＋ “ , , )”

信息框 (“处理失败” ＋ #换行符＋分割后 [i], 0, , )

新内容＝新内容＋处理文本＋ #换行符

计次循环尾 ()
编辑框2.内容＝新内容

.版本 2<br />
<br />
.子程序 写配置转读配置<br />
.局部变量 原内容, 文本型<br />
.局部变量 分割后, 文本型, , "0"<br />
.局部变量 新内容, 文本型<br />
.局部变量 i, 整数型<br />
.局部变量 写配置, 整数型<br />
.局部变量 处理文本, 文本型<br />
.局部变量 文本前, 文本型<br />
.局部变量 文本后, 文本型<br />
<br />
原内容 ＝ 编辑框1.内容<br />
分割后 ＝ 分割文本 (原内容, #换行符, )<br />
新内容 ＝ “”<br />
.计次循环首 (取数组成员数 (分割后), i)<br />
写配置 ＝ 文本_寻找文本 (分割后 <i>, “写配置项”, , )<br />
.判断开始 (写配置 ＝ -1)<br />
新内容 ＝ 新内容 ＋ 分割后 <i> ＋ #换行符<br />
.判断 (写配置 ≠ -1)<br />
处理文本 ＝ “”<br />
处理文本 ＝ 子文本替换 (分割后 <i>, “写配置项”, “读配置项”, , , 真)<br />
处理文本 ＝ 子文本替换 (处理文本, “到文本 (”, “”, , , 真)<br />
处理文本 ＝ 子文本替换 (处理文本, “))”, “)”, , , 真)<br />
<br />
文本前 ＝ “_启动窗口” ＋ 文本_取出中间文本 (处理文本, “_启动窗口”, “)”, , )<br />
文本后 ＝ 子文本替换 (处理文本, 文本前, “”, , , 真)<br />
.判断开始 (文本_寻找文本 (文本前, “内容”, , ) ≠ -1) ' 已是文本型<br />
处理文本 ＝ 文本前 ＋ “ = ” ＋ 文本后<br />
.判断 (文本_寻找文本 (文本前, “现行选中项”, , ) ≠ -1) ' 整数型<br />
处理文本 ＝ 文本前 ＋ “ = 到整数 (” ＋ 文本后 ＋ “ )”<br />
.判断 (文本_寻找文本 (文本前, “选中”, , ) ≠ -1) ' 逻辑性<br />
处理文本 ＝ 文本前 ＋ “ = 到逻辑型 (” ＋ 文本后 ＋ “ , , )”<br />
.默认<br />
信息框 (“处理失败” ＋ #换行符 ＋ 分割后 <i>, 0, , )<br />
.判断结束<br />
<br />
新内容 ＝ 新内容 ＋ 处理文本 ＋ #换行符<br />
.默认<br />
<br />
.判断结束<br />
<br />
.计次循环尾 ()<br />
编辑框2.内容 ＝ 新内容