字典的 下一项 如何表达？

abc123qqq

Dim d,n%   

   Set d =CreateObject("Scripting.Dictionary")

   d.Add "a","Athens"   

   d.Add "b","Belgrade"

   d.Add "c","Cairo"

   n = d.Count

如何表达 关键字 a  的 紧邻的下一项   关键字 key   ？

LIUZHU

这个可能要来一个循环

abc123qqq

是不是 需要把 子项 里 加上  字典  序号 数？  
d.Add "a",1  & "/" &  "Athens"   
   d.Add "b",2  & "/" & "Belgrade"
   d.Add "c",3  & "/" & "Cairo"  
   若要表达  关键字 a 的 下一项 字典的 key 值 ，    是不是可以取 项 Item 内容      /  前边的 内容 ？ 不懂请赐教，谢谢

micch

abc123qqq 发表于 2024-5-16 18:23
是不是 需要把 子项 里 加上  字典  序号 数？  
d.Add "a",1  & "/" &  "Athens"   
   d.Add "b",2  &  ...

可以是可以，但是你这个用法，不一定好。
比如   filter(dic.items,  left(d(a),1)+1 &"/",true)  ,直接在items里搜搜1/
1/  11/   21/  这种会有影响，建议换个思路

wanghan519

按理说字典是无序的，要不换成用collection

tanglf188

字典本身没有下一项一说，判断是否存在键值用Exists，如：d.Exists(“张三”)
变通的做法就是给键值Key编号，如a1,a2,a3.......
Dim d,n%   
   Set d =CreateObject("Scripting.Dictionary")
   d.Add "a1","Athens"   
   d.Add "a2","Belgrade"
   d.Add "a3","Cairo"
   n = d.Count