通过VB6词典迭代
发布时间:2020-12-17 00:17:49 所属栏目:大数据 来源:网络整理
导读:我是一个非VB6的人,不幸的是继承了VB6 / Classic ASP项目.有一个部分,大量的条目被放入一个字典,我想看到它包含的所有内容.我试过这个(oParams是一个字典): Dim o As ObjectDim sDicTempAggr As StringsDicTempAggr = ""For Each o In oParams sDicTempAggr
我是一个非VB6的人,不幸的是继承了VB6 / Classic ASP项目.有一个部分,大量的条目被放入一个字典,我想看到它包含的所有内容.我试过这个(oParams是一个字典):
Dim o As Object Dim sDicTempAggr As String sDicTempAggr = "" For Each o In oParams sDicTempAggr = sDicTempAggr & "," & o Next 其中返回:
使用Option Explicit,我如何迭代VB6字典来查找它包含的一切?
这是一个迭代的示例,如果您仍然有一个问题,请查看第二个循环来检查字典中值的类型
Dim oParams As New Dictionary oParams.Add 1,"This" oParams.Add 2,"That" oParams.Add 3,"The other" Dim key As Variant Dim sDicTempAggr As String Dim sTypes As String For Each key In oParams.Keys sDicTempAggr = sDicTempAggr & IIf(sDicTempAggr <> "",","") & oParams(key) Next key For Each key In oParams.Keys sTypes = sTypes & IIf(sTypes <> "","") & TypeName(oParams(key)) Next key (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |