array_fill_keys в Visual Basic

1

Есть ли функция, равная php array_fill_keys в visualbasic?

В 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?

  • 1
    Нет, потому что массивы Visual Basic не являются ассоциативными хэш-картами, как в PHP. Может быть, вы хотите использовать словарь?
  • 0
    Может быть. Проблема в том, как хранить значения словаря в текстовом файле?
Показать ещё 4 комментария
Теги:
arrays
vb6
vbscript

1 ответ

1
Лучший ответ

На всякий случай вам действительно нужна array_fill_keys -alike и может жить со словарем:

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
Поделиться

Ещё вопросы

Сообщество Overcoder
Наверх
Меню