键值对 - 精易论坛 - Powered by Discuz!

窗口程序集名	保留	保留	备注
键值对
变量名	类型	数组	备注
源	文本型
键名	文本型	0

子程序名	返回值类型	公开	备注
_初始化			当基于本类的对象被创建后，此方法会被自动调用

子程序名	返回值类型	公开	备注
存			存入数据
参数名	类型	参考	可空	数组	备注
name	文本型
value	文本型

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

w ＝寻找文本 (源, “【{” ＋ name ＋ “}】”, , 假)

判断 (w ≠ -1)

' 覆盖数据

源＝子文本替换 (源, “【【{” ＋读 (name) ＋ “}】】”, “【【{” ＋ value ＋ “}】】”, w, 1, 真)

源＝源＋ “【{” ＋ name ＋ “}】” ＋ “【【{” ＋ value ＋ “}】】|”

加入成员 (键名, name)

子程序名	返回值类型	公开	备注
删			删除某键名的值留空为清空所有源
参数名	类型	参考	可空	数组	备注
name	文本型

变量名	类型	静态	数组	备注
w	整数型
value	文本型
i	整数型

判断 (name ＝ “”)

源＝ “”

清除数组 (键名)

value ＝读 (name)

源＝子文本替换 (源, “【{” ＋ name ＋ “}】” ＋ “【【{” ＋ value ＋ “}】】|”, “”, , , 真)

计次循环首 (取数组成员数 (键名), i)

如果真 (键名 [i] ＝ name)

跳出循环 ()

计次循环尾 ()

删除成员 (键名, i, 1)

子程序名	返回值类型	公开	备注
读	文本型		读取某键名的值
参数名	类型	参考	可空	数组	备注
name	文本型

返回 (文本_取出中间文本 (源, “【{” ＋ name ＋ “}】【【{”, “}】】”))

子程序名	返回值类型	公开	备注
查看所有键名	整数型		返回键名的个数
参数名	类型	参考	可空	数组	备注
返回的键名	文本型

返回的键名＝键名
返回 (取数组成员数 (返回的键名))

子程序名	返回值类型	公开	备注
_销毁			当基于本类的对象被销毁前，此方法会被自动调用

源＝ “”
清除数组 (键名)

.版本 2<br />
<br />
.程序集 键值对<br />
.程序集变量 源, 文本型<br />
.程序集变量 键名, 文本型, , "0"<br />
<br />
.子程序 _初始化, , , 当基于本类的对象被创建后，此方法会被自动调用<br />
<br />
<br />
<br />
.子程序 存, , 公开, 存入数据<br />
.参数 name, 文本型<br />
.参数 value, 文本型, 可空<br />
.局部变量 w, 整数型<br />
<br />
w ＝ 寻找文本 (源, “【{” ＋ name ＋ “}】”, , 假)<br />
.判断开始 (w ≠ -1)<br />
    ' 覆盖数据<br />
    源 ＝ 子文本替换 (源, “【【{” ＋ 读 (name) ＋ “}】】”, “【【{” ＋ value ＋ “}】】”, w, 1, 真)<br />
<br />
.默认<br />
    源 ＝ 源 ＋ “【{” ＋ name ＋ “}】” ＋ “【【{” ＋ value ＋ “}】】|”<br />
    加入成员 (键名, name)<br />
.判断结束<br />
<br />
<br />
.子程序 删, , 公开, 删除某键名的值  留空为清空所有源<br />
.参数 name, 文本型, 可空<br />
.局部变量 w, 整数型<br />
.局部变量 value, 文本型<br />
.局部变量 i, 整数型<br />
<br />
.判断开始 (name ＝ “”)<br />
    源 ＝ “”<br />
    清除数组 (键名)<br />
.默认<br />
    value ＝ 读 (name)<br />
    源 ＝ 子文本替换 (源, “【{” ＋ name ＋ “}】” ＋ “【【{” ＋ value ＋ “}】】|”, “”, , , 真)<br />
    .计次循环首 (取数组成员数 (键名), i)<br />
        .如果真 (键名 <i> ＝ name)<br />
            跳出循环 ()<br />
        .如果真结束<br />
<br />
    .计次循环尾 ()<br />
    删除成员 (键名, i, 1)<br />
<br />
.判断结束<br />
<br />
<br />
.子程序 读, 文本型, 公开, 读取某键名的值<br />
.参数 name, 文本型<br />
<br />
返回 (文本_取出中间文本 (源, “【{” ＋ name ＋ “}】【【{”, “}】】”))<br />
<br />
<br />
.子程序 查看所有键名, 整数型, 公开,  返回键名的个数<br />
.参数 返回的键名, 文本型, 数组<br />
<br />
返回的键名 ＝ 键名<br />
返回 (取数组成员数 (返回的键名))<br />
<br />
.子程序 _销毁, , , 当基于本类的对象被销毁前，此方法会被自动调用<br />
<br />
源 ＝ “”<br />
清除数组 (键名)