flex中dictionary跟Object的区别与遍历

本文对比了AS3中Object和Dictionary类在保存key-value数据时的区别。Object会将所有键转换为字符串,导致不同对象作为键时指向同一数据;而Dictionary则可以使用任意类型作为键,依据对象引用区分。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

 AS3中Object和 Dictionary都可以用来保存key-value形式的数据,Dictionary类和Object唯一的区别在于:Dictionary对象可以使用非字符串作为键值对的键。例如:

[javascript]  view plain copy
  1. var obj:Object = new Object();   
  2. obj["name"] ="name"// key 字符串"name"   
  3. obj[1] = 1; // key是1 (被转换成字符串"1")   
  4. obj[new Object()] ="object"// key是new Object(),被转传成字符串"[object Object]"   
  5. for (var key:String in obj) {   
  6.         trace(key+":"+obj[key]); // 输出 1:1 [object Object]:object name:name  
  7. }  


也就是说,无论用什么类型的变量作为键,Object都将key转换成字符串。同时,如果你使用了不同的对象作为键,都会被转换成字符串"[object Object]"作为键,因此而指向了同一个数据。例如:

[javascript]  view plain copy
  1. var a:Object = new Object();      
  2. var b:Object = new Object();      
  3. var obj:Object = new Object();      
  4. obj[a] = 1; // obj["[object Object]"] = 1;      
  5. obj[b] = 2; // obj["[object Object]"] = 2;      
  6. for (var key:String in obj) {      
  7.        trace(key+":"+obj[key]); // traces: [object Object]:2   
  8. }  


Dictionary类将没有这个限制,你可以将键设置成任何一种数据类型。例如:

[javascript]  view plain copy
  1. </pre><p> </p><pre class="javascript" name="code">var a:Object = new Object();   
  2. var b:Object = new Object();   
  3. var dict:Dictionary = new Dictionary();   
  4. dict[a] = 1; // dict[a] = 1;   
  5. dict[b] = 2; // dict[b] = 2;   
  6. for (var key:* in dict) {   
  7.        trace(key+":"+dict[key]); // traces: [object Object]:2 [object Object]:1  
  8. }  

 

注意:

1、虽然在trace的时候,输出的还是[object Object],但是这个结果是对象的toString的结果。在Dictionary对象中,代表的是不同的对象引用。

2、这里的key的类型是*。这是很重要的,因为dict对象中的键可能是任何数据类型的。

 

 

3、Object的键必须是字符串,或表示字符串的表达式(变量或函数),若不是字符串的表达式,则将调用toString()方法,将其转化为字符串;

4、与Object不同的是,Dictionary使用的键是对象的引用,而不是字符串,且非原始对象键调用之前是通过全等运算符(===)来进行判断,并不会将数据类型强制转换之后再进行判断。

Sub ProcessData() Dim ws80 As Worksheet, wsVir As Worksheet Set ws80 = ThisWorkbook.Worksheets("80SN") Set wsVir = ThisWorkbook.Worksheets("虚拟SN") Dim i As Long, j As Long, k As Integer Dim BVal As String, CVal As String, KVal As String, JVal As String Dim targetTypes As Variant For i = 2 To ws80.Cells(ws80.Rows.Count, "A").End(xlUp).Row BVal = ws80.Cells(i, "B").value If BVal = "K" Then targetTypes = Array("Sintra flex", "UAT2 Flex", "UAT1 Flex") ElseIf BVal = "NK" Then targetTypes = Array("Patagonia flex", "UAT2 Flex", "UAT1 Flex") Else GoTo NextOuterRow End If For k = 0 To UBound(targetTypes) Dim targetType As String targetType = targetTypes(k) For j = 2 To wsVir.Cells(wsVir.Rows.Count, "C").End(xlUp).Row CVal = wsVir.Cells(j, "C").value KVal = wsVir.Cells(j, "K").value If CVal = targetType And KVal = "" Then JVal = wsVir.Cells(j, "J").value ' 更新虚拟SN表的K列为已使用 wsVir.Cells(j, "K").value = "已使用" ' 将J列值返回到80SN表的相应列(C、D、F) Select Case k Case 0: ws80.Cells(i, "C").value = JVal Case 1: ws80.Cells(i, "D").value = JVal Case 2: ws80.Cells(i, "F").value = JVal End Select ' 跳出内层循环,处理下一个类型 Exit For End If Next j Next k NextOuterRow: Next i End Sub Function IsInArray(value As String, arr As Variant) As Boolean Dim i As Long For i = LBound(arr) To UBound(arr) If value = arr(i) Then IsInArray = True Exit Function End If Next i IsInArray = False End Function 再次扩展这个功能,所有数据项右移动了一列你的K,NK也需要向右一列,K和NK,你改成循环改成读取对应数据表的值,例如机种列A2(BADGER),C2(K),那么你循环查询BADGER_K,就是A列值和C列值合并,中间是_,80SN数据:机种 SN 状太 SN1 SN2 SN3 BADGER WJGNW2JJY3 K BADGER CYWQYRX2N3 K BADGER HVXTR9TGWX K BADGER DXL5VQGKW4 K BADGER HWK22YJDGH NK ,BADGER_K表数据:Sintra flex UAT2 Flex UAT1 Flex ,BADGER_NK表数据:Patagonia flex UAT2 Flex UAT1 Flex
最新发布
08-03
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值