| 功能说明: 字典 格式：{key1:value1,key2:value2} ; 取字典中的元素数量 GetDictKeyCount 字典名 变量 ; 取字典中的Keys或Values GetDictItems 字典名 字段类型(0:Keys;1:Values) 保存变量 ;取字典中值最大的元素 GetDictMaxValue 字典名 Key变量 Value变量 ;取字典中值最小的元素 GetDictMinValue 字典名 Key变量 Value变量 ;检查字典中的所有值是否均为数字 CheckDictAllDigit 字典名 ;检查字典是否存在key或value ;格式：CheckInDict 字典变量 待检查的值 参数3 ;参数3： 0或空 检查key是否存在 ;参数3： 1 检查value是否存在 脚本示例： [@字典测试] #ACT ;字典初始化 MOV D$测试 {张三:100,李四:200,王五:300} ;添加/修改字典元素 Mov D$测试[周八] 600 ;添加/修改字典元素 Inc D$测试 赵六:400 ;添加/修改字典元素 Inc D$测试 孙七:500 ;删除字典元素 Dec D$测试 赵六 sendmsg 7 <$STR(D$测试)> ; 取字典中的元素数量 GetDictKeyCount D$测试 N1 sendmsg 7 字典中Key有<$STR(N1)>个 ; 将字典中的Key放到 L$Keys中 GetDictItems D$测试 0 L$Keys ;将字典中的Value放到 L$Values中 GetDictItems D$测试 1 L$Values sendmsg 7 Keys:<$Str(L$Keys)> sendmsg 7 Values:<$Str(L$Values)> #IF ;检查Key是否存在 CheckInDict D$测试 张三 0 #ACT SendMsg 7 Key:张三在字典中 #IF ;检查Value是否存在 CheckInDict D$测试 200 1 #ACT SendMsg 7 Value:200在字典中 #IF CheckDictAllDigit D$测试 #ACT ;取字典中值最大的元素 GetDictMaxValue D$测试 S1 N1 sendmsg 7 <$STR(D$测试)>中，数值最大元素Key=<$STR(S1)>，Value=<$STR(N1)> ;取字典中值最小的元素 GetDictMinValue D$测试 S1 N1 sendmsg 7 <$STR(D$测试)>中，数值最小元素Key=<$STR(S1)>，Value=<$STR(N1)> #ELSEACT sendmsg 7 <$str(D$测试)>内有非法数值，取值失败 #ACT MOV D$测试 {} sendmsg 7 字典内容为:<$STR(D$测试)> ;示范脚本为简易脚本，具体自由发挥....... |
