Ejemplo con colecciones

Shell 29-01-2023, 13:16

Buenas!.

Ayer encontré un ejemplo con Python en el que las colecciones (diccionarios en Python) tienen una propiedad que Gambas no la incluye, pero
no fue difícil de hacer algo similar sin esta.

Código:
Private estado_civil As New Collection

Public Sub Main()

  estado_civil["Ana"] = "soltera"

  estado_civil["Laura"] = "casada"

  estado_civil["Rosa"] = "viuda"

  estado_civil["Antonio"] = "soltero"

  estado_civil["Joaquín"] = "viudo"

  estado_civil["Pedro"] = "casado"

  'MostrarEstadoCivil(estado_civil)

  BuscarEstadoCivil(["soltera", "viuda"], estado_civil)

End

Public Sub MostrarEstadoCivil(cestado As Collection)

  For Each estado As String In estado_civil

    Print estado_civil.key & " está " & estado

  Next

End

Public Sub BuscarEstadoCivil(busca As String[], cestado As Collection)

  Dim indice As Integer

  For Each estado As String In estado_civil

    indice = busca.Find(estado)

    If indice <> -1 Then Print estado_civil.key & " está " & estado

  Next

End

Cita:Ana está soltera
Rosa está viuda

Saludos

Última modificación: 29-01-2023, 13:17 por Shell.

"El conocimiento es la mejor inversión que se puede hacer" - Abraham Lincoln