Diccionarios en Visual Basic

Almacenes clave-valor con TryGetValue, la búsqueda que nunca lanza excepciones.

Dim stock As New Dictionary(Of String, Integer) From {
    {"flour", 12}, {"sugar", 5}
}
stock("yeast") = 9
stock("sugar") += 3

If stock.ContainsKey("flour") Then Console.WriteLine("flour on hand")

Dim salt As Integer
If Not stock.TryGetValue("salt", salt) Then salt = 0
Console.WriteLine($"salt jars: {salt}")

For Each pair In stock
    Console.WriteLine($"{pair.Key,-8} {pair.Value,3}")
Next

Cómo funciona

1. From {{...}} empareja claves con valores al construir.
2. Asignar a una clave ausente la agrega; += actualiza en el lugar.
3. TryGetValue llena una variable y reporta el éxito como Boolean.
4. For Each pair recorre los KeyValuePair con .Key y .Value.

Palabras clave y builtins usados aquí

• Dim
• Each
• For
• If
• Integer
• New
• Next
• Not
• Of
• String
• Then

El intento, en números

Líneas

15

Caracteres a escribir

388

Tokens

107

Ritmo de tres estrellas

85 tpm

Al ritmo de tres estrellas de 85 tokens por minuto, este intento toma unos 76 segundos.

Escribe este fragmento

Paso 3 de 3 en Colecciones; paso 6 de 29 en Fundamentos del lenguaje.

← Anterior Siguiente →