[Shell]

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.

GAMBAS

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

 

Ana está soltera
Rosa está viuda

Saludos