array_fill_keys в Visual Basic
Есть ли в Visualbasic функция, равная php array_fill_keys?
В php я делаю:
<?php
$array1 = array(
"a" => "first",
"b" => "second",
"c" => "something",
"red");
$array2 = array(
"a" => "first",
"b" => "something",
"letsc");
print_r(array_fill_keys($array1, $array2));
?>
Как это сделать в VB?
Решение
На тот случай, если вам действительно нужен array_fill_keys-подобная функция и может жить со словарем:
Option Explicit
' stolen from http://php.net/manual/en/function.array-fill-keys.php:
' Fill a dictionary with values (xValue), specifying keys (aKeys)
' Fills a dictionary with the value of the xValue parameter, using the values of aKeys as keys.
Function array_fill_keys(aKeys, xValue)
Dim t : Set t = CreateObject("Scripting.Dictionary")
Dim k
For Each k In aKeys
t(k) = xValue
Next
Set array_fill_keys = t
End Function
Sub FEDicO(d, o)
Dim k
For Each k In d.Keys
o.apply d, k
Next
End Sub
Class cPPrintLn
Sub apply(d, k)
WScript.Echo " ", k, "=>", d(k)
End Sub
End Class
' $keys = array('foo', 5, 10, 'bar');
' $a = array_fill_keys($keys, 'banana');
' print_r($a);
' The above example will output:
' Array(
' [foo] => banana
' [5] => banana
' [10] => banana
' [bar] => banana
' )
Dim aKeys : aKeys = Array("foo", 5, 10, "bar")
Dim dicX : Set dicX = array_fill_keys(aKeys, "Banana")
WScript.Echo "dicX:"FEDicO dicX, New cPPrintLn
выход:
cscript 32219456.vbs
dicX:
foo => Banana
5 => Banana
10 => Banana
bar => Banana
Другие решения
Других решений пока нет …