易语言键值类源码

sksksz

  

窗口程序集名	保 留	保 留	备 注
类_通用键值
变量名	类 型	数组	备 注
通用键值	数据类型_通用键值	0

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

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

子程序名	返回值类型	公开	备 注
存键值	逻辑型
参数名	类 型	参考	可空	数组	备 注
键	文本型
值	文本型

变量名	类 型	静态	数组	备 注
i	整数型
已存在	逻辑型
局_通用键值	数据类型_通用键值

计次循环首 (取数组成员数 (通用键值), i)
如果真 (通用键值 [i].键 ＝ 键)
通用键值 [i].值 ＝ 值
返回 (真)

计次循环尾 ()
局_通用键值.键 ＝ 键
局_通用键值.值 ＝ 值
加入成员 (通用键值, 局_通用键值)
返回 (真)

子程序名	返回值类型	公开	备 注
存键值可重复	逻辑型
参数名	类 型	参考	可空	数组	备 注
键	文本型
值	文本型

变量名	类 型	静态	数组	备 注
i	整数型
局_通用键值	数据类型_通用键值

局_通用键值.键 ＝ 键
局_通用键值.值 ＝ 值
加入成员 (通用键值, 局_通用键值)
返回 (真)

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

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

清除数组 (值数组)
计次循环首 (取数组成员数 (通用键值), i)
如果真 (通用键值 [i].键 ＝ 键)
加入成员 (值数组, 通用键值 [i].值)
计数 ＝ 计数 ＋ 1

计次循环尾 ()
返回 (计数)

子程序名	返回值类型	公开	备 注
取键数量	整数型
参数名	类 型	参考	可空	数组	备 注
键	文本型

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

计次循环首 (取数组成员数 (通用键值), i)
如果真 (通用键值 [i].键 ＝ 键)
计数 ＝ 计数 ＋ 1

计次循环尾 ()
返回 (计数)

子程序名	返回值类型	公开	备 注
取总键数量	整数型

返回 (取数组成员数 (通用键值))

子程序名	返回值类型	公开	备 注
取键值	逻辑型
参数名	类 型	参考	可空	数组	备 注
键	文本型
值	文本型

变量名	类 型	静态	数组	备 注
i	整数型
成员数	整数型

值 ＝ 到文本 ({  })
成员数 ＝ 取数组成员数 (通用键值)
计次循环首 (成员数, i)
如果真 (通用键值 [i].键 ＝ 键)
值 ＝ 通用键值 [i].值
返回 (真)

计次循环尾 ()
返回 (假)

子程序名	返回值类型	公开	备 注
删键值	逻辑型
参数名	类 型	参考	可空	数组	备 注
键	文本型

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

计次循环首 (取数组成员数 (通用键值), i)
如果真 (通用键值 [i].键 ＝ 键)
删除成员 (通用键值, i, 1)
返回 (真)

计次循环尾 ()
返回 (假)

子程序名	返回值类型	公开	备 注
清键值	逻辑型

清除数组 (通用键值)
返回 (真)

子程序名	返回值类型	公开	备 注
键值存盘
参数名	类 型	参考	可空	数组	备 注
文件名	文本型

变量名	类 型	静态	数组	备 注
i	整数型
行	文本型
列	文本型

计次循环首 (取数组成员数 (通用键值), i)
行 ＝ 通用键值 [i].键 ＋ “=” ＋ 通用键值 [i].值
判断 (列 ＝ 到文本 ({  }))
列 ＝ 行
列 ＝ 列 ＋ #换行符 ＋ 行

计次循环尾 ()
写到文件 (取运行目录 () ＋ “\” ＋ 文件名 ＋ “.db”, 到字节集 (列))

子程序名	返回值类型	公开	备 注
键值读盘
参数名	类 型	参考	可空	数组	备 注
文件名	文本型

变量名	类 型	静态	数组	备 注
数据	文本型
数据数组	文本型		0
临时数组	文本型		0
i	整数型

数据 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\” ＋ 文件名 ＋ “.db”))
数据数组 ＝ 分割文本 (数据, #换行符, )
计次循环首 (取数组成员数 (数据数组), i)
临时数组 ＝ 分割文本 (数据数组 [i], “=”, 2)
如果真 (取数组成员数 (临时数组) ＝ 2)
存键值可重复 (临时数组 [1], 临时数组 [2])

计次循环尾 ()

.版本 2<br /> <br /> .程序集 类_通用键值<br /> .程序集变量 通用键值, 数据类型_通用键值, , "0"<br /> <br /> .子程序 _初始化, , , 当基于本类的对象被创建后，此方法会被自动调用<br /> <br /> <br /> <br /> .子程序 _销毁, , , 当基于本类的对象被销毁前，此方法会被自动调用<br /> <br /> <br /> <br /> .子程序 存键值, 逻辑型, 公开<br /> .参数 键, 文本型<br /> .参数 值, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 已存在, 逻辑型<br /> .局部变量 局_通用键值, 数据类型_通用键值<br /> <br /> .计次循环首 (取数组成员数 (通用键值), i)<br />     .如果真 (通用键值 <i>.键 ＝ 键)<br />         通用键值 <i>.值 ＝ 值<br />         返回 (真)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 局_通用键值.键 ＝ 键<br /> 局_通用键值.值 ＝ 值<br /> 加入成员 (通用键值, 局_通用键值)<br /> 返回 (真)<br /> <br /> .子程序 存键值可重复, 逻辑型, 公开<br /> .参数 键, 文本型<br /> .参数 值, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 局_通用键值, 数据类型_通用键值<br /> <br /> 局_通用键值.键 ＝ 键<br /> 局_通用键值.值 ＝ 值<br /> 加入成员 (通用键值, 局_通用键值)<br /> 返回 (真)<br /> <br /> <br /> .子程序 取键值数组, 整数型, 公开<br /> .参数 键, 文本型<br /> .参数 值数组, 文本型, 参考 数组<br /> .局部变量 i, 整数型<br /> .局部变量 计数, 整数型<br /> <br /> 清除数组 (值数组)<br /> .计次循环首 (取数组成员数 (通用键值), i)<br />     .如果真 (通用键值 <i>.键 ＝ 键)<br />         加入成员 (值数组, 通用键值 <i>.值)<br />         计数 ＝ 计数 ＋ 1<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (计数)<br /> <br /> .子程序 取键数量, 整数型, 公开<br /> .参数 键, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 计数, 整数型<br /> <br /> .计次循环首 (取数组成员数 (通用键值), i)<br />     .如果真 (通用键值 <i>.键 ＝ 键)<br />         计数 ＝ 计数 ＋ 1<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (计数)<br /> <br /> .子程序 取总键数量, 整数型, 公开<br /> <br /> 返回 (取数组成员数 (通用键值))<br /> <br /> .子程序 取键值, 逻辑型, 公开<br /> .参数 键, 文本型<br /> .参数 值, 文本型, 参考<br /> .局部变量 i, 整数型<br /> .局部变量 成员数, 整数型<br /> <br /> 值 ＝ 到文本 ({  })<br /> 成员数 ＝ 取数组成员数 (通用键值)<br /> <br /> .计次循环首 (成员数, i)<br />     .如果真 (通用键值 <i>.键 ＝ 键)<br />         值 ＝ 通用键值 <i>.值<br />         返回 (真)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (假)<br /> <br /> .子程序 删键值, 逻辑型, 公开<br /> .参数 键, 文本型<br /> .局部变量 i, 整数型<br /> <br /> .计次循环首 (取数组成员数 (通用键值), i)<br />     .如果真 (通用键值 <i>.键 ＝ 键)<br />         删除成员 (通用键值, i, 1)<br />         返回 (真)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (假)<br /> <br /> <br /> .子程序 清键值, 逻辑型, 公开<br /> <br /> 清除数组 (通用键值)<br /> 返回 (真)<br /> <br /> .子程序 键值存盘, , 公开<br /> .参数 文件名, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 行, 文本型<br /> .局部变量 列, 文本型<br /> <br /> .计次循环首 (取数组成员数 (通用键值), i)<br />     行 ＝ 通用键值 <i>.键 ＋ “=” ＋ 通用键值 <i>.值<br />     .判断开始 (列 ＝ 到文本 ({  }))<br />         列 ＝ 行<br />     .默认<br />         列 ＝ 列 ＋ #换行符 ＋ 行<br />     .判断结束<br /> <br /> .计次循环尾 ()<br /> 写到文件 (取运行目录 () ＋ “\” ＋ 文件名 ＋ “.db”, 到字节集 (列))<br /> <br /> <br /> .子程序 键值读盘, , 公开<br /> .参数 文件名, 文本型<br /> .局部变量 数据, 文本型<br /> .局部变量 数据数组, 文本型, , "0"<br /> .局部变量 临时数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> 数据 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\” ＋ 文件名 ＋ “.db”))<br /> 数据数组 ＝ 分割文本 (数据, #换行符, )<br /> .计次循环首 (取数组成员数 (数据数组), i)<br />     临时数组 ＝ 分割文本 (数据数组 <i>, “=”, 2)<br />     .如果真 (取数组成员数 (临时数组) ＝ 2)<br />         存键值可重复 (临时数组 [1], 临时数组 [2])<br />     .如果真结束<br /> <br /> .计次循环尾 ()

wolfpack

year1970

感谢分享

SHIWOOOO

好好好好

qq73s5456

哈稀表才是神

长青道长

感谢分享!

文西哥

学习了，这种操作就很高级

残狼

感谢分享!

lmwdz

感谢分享

寡人i

谢谢大佬分享 支持支持