📄 web32.html
字号:
<html>
<head>
</head>
<body>
<script language="VBScript">
Dim d
Set d=CreateObject("Scripting.Dictionary")
d.Add"a","chicago"
d.Add"b","new york"
item_count=d.Count
MsgBox item_count
myitem=d.item("a")
MsgBox myitem
d.item("b")="austin"
d.key("a")="city1"
msg="key does not exist"
If d.exists("b")Then msg="key exists"
MsgBox(msg)
a=d.items
For i=0 To d.count-1
s=s+a(i)+vbnewline
Next
MsgBox s
b=d.keys
For i=0 To d.count-1
s=s+b(i)+vbnewline
Next
MsgBox s
d.Remove("b")
e=d.items
For i=0 To d.count-1
s=s+e(i)
next
MsgBox s
Dim f
d.RemoveAll()
f=d.items
For i=0 To d.count-1
g=g+d(i)
Next
MsgBox f
</script>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -