.版本 2 .程序集 辅助程序集 .子程序 字节集到内存, 文本型 .参数 数据类型, 整数型, , 1、#字节型； 2、#短整数型； 3、#整数型； 4、#长整数型； 5、#小数型； 6、#双精度小数型； 7、#逻辑型； 8、#日期时间型； 9、#子程序指针型； 10、#文本型。 .参数 数据, 字节集 .局部变量 值, 文本型 .如果真 (数据类型 ≥ 1 且 数据类型 ≤ 10) 值 ＝ 删全部空 (到文本 (取字节集数据 (数据, 数据类型, ))) .判断开始 (值 ＝ “” 或 值 ＝ “{}”) 返回 (“??”) .默认 返回 (到文本 (取字节集数据 (数据, 数据类型, ))) .判断结束 ' 本源码来自三叶资源网(www.sanye.cx) .如果真结束 返回 (“??”) .子程序 内存到字节集, 字节集 .参数 数据类型, 整数型 .参数 搜索内容, 文本型 .判断开始 (数据类型 ＝ 10) ' 文本型 返回 (到字节集 (搜索内容)) .判断 (数据类型 ＝ 1) ' 字节型 返回 (到字节集 (到字节 (搜索内容))) .判断 (数据类型 ＝ 2) ' 短整数型(双字节) 返回 (到字节集 (到短整数 (搜索内容))) .判断 (数据类型 ＝ 3) ' 整数型(4字节) 返回 (到字节集 (到整数 (搜索内容))) .判断 (数据类型 ＝ 4) ' 长整数型(8字节) 返回 (到字节集 (到长整数 (搜索内容))) .判断 (数据类型 ＝ 5) ' 单精度浮点数(4字节) 返回 (到字节集 (到小数 (搜索内容))) .判断 (数据类型 ＝ 6) ' 双精度浮点数 返回 (到字节集 (到数值 (搜索内容))) .默认 .判断结束 返回 ({ }) .子程序 十六到十, 整数型 .参数 十六进制文本, 文本型 .局部变量 计次, 整数型 .局部变量 十六位, 文本型 .局部变量 结果, 整数型 .局部变量 大写文本, 文本型 十六位 ＝ “0123456789ABCDEF” 大写文本 ＝ 到大写 (十六进制文本) .计次循环首 (取文本长度 (大写文本), 计次) 结果 ＝ 结果 × 16 ＋ 寻找文本 (十六位, 取文本中间 (大写文本, 计次, 1), , 假) － 1 ' 本源码来自三叶资源网(www.sanye.cx) .计次循环尾 () 返回 (结果)