# AddOrReplaceInKeyValues `AddOrReplaceInKeyValues(KeyValues, Key, Value)` `KeyValues`-`{Collection}` `Key`-`{String}` `Value`-`{Variant}` Helper用于在`KeyValue`的`Collection`中添加/替換`KeyValue` * 如果找不到key則添加 * 如果找到key則替換 ~~~vb Dim KeyValues As New Collection KeyValues.Add WebHelpers.CreateKeyValue("a", 123) KeyValues.Add WebHelpers.CreateKeyValue("b", 456) KeyValues.Add WebHelpers.CreateKeyValue("c", 789) WebHelpers.AddOrReplaceInKeyValues KeyValues, "b", "abc" WebHelpers.AddOrReplaceInKeyValues KeyValues, "d", "def" '// -> [ '// {"Key":"a","Value":123}, '// {"Key":"b","Value":"abc"}, '// {"Key":"c","Value":789}, '// {"Key":"d","Value":"def"} '// ] ~~~