¿Existe en gambas los Arrays de Clave igual valor?

Ejemplo inventado y sin lenguaje existente:

dim a as Array("Lunes"=1, "Martes"=2, "Miércoles"=3, "Jueves"=4, "Viernes"=5, "Sábado"=6, "Domingo"=7)

Y acceder

Print a["Lunes"]

Resultado

1

Creo que a lo que te refieres es la clase String[]
Saludos.

tincho escribió: [Ver mensaje]

Creo que a lo que te refieres es la clase String[]
Saludos.

Me das una pista como hacer con String[] el ejemplo anterior un valor por ejemplo "Lunes" para ver como se hace. Gracias.

tincho escribió: [Ver mensaje]

Creo que a lo que te refieres es la clase String[]
Saludos.

tincho he visto este código por ahi:

PRIVATE Languages AS String[] = [ "fr", "it", "es", "de", "ja" ]
PRIVATE DefaultLanguage AS String = Languages[1]

Pero esto no es lo que busco, me explico. Yo deseo que el código sea mal legible, si pongo Languages[1] para mi esto no es legible, yo busco esto Languages["fr"] para esto es mas lógico para leer dentro de un código.

¿Existe lo que busco o quizás no?


==Editado1: Un ejemplo de PHP - Esto es lo que busco, esta forma de trabajar, es potente, moderno y legible

$arr = array('fruit' => 'apple', 'veggie' => 'carrot');

// Correcto
print $arr['fruit'];  // apple
print $arr['veggie']; // carrot

==Editado2: El acceder mediante números, indices emborracha incluso al mejor programador, es más válido para automatizar pero poco legible.

Si, existe, es la clase Collection, donde el indice es texto y los valores son variant.
Saludos.

tincho escribió: [Ver mensaje]

Si, existe, es la clase Collection, donde el indice es texto y los valores son variant.
Saludos.

Gracias creo que esto es lo que yo buscaba, incluso en gambas existe un ejemplo más o menos como yo quería.

Public Sub Main()

  Dim cAbbr2Weekday As Collection = ["mo": "Monday", "tu": "Tuesday", "we": "Wednesday", "th": "Thursday", "fr": "Friday", "sa": "Saturday", "su": "Sunday"]
  Dim cCopy As Collection
  Dim sAbbr As String
  
  ' To access the data
  Print cAbbr2Weekday["fr"]
  
  ' Print mapping key to value
  For Each sAbbr In cAbbr2Weekday
    Print cAbbr2Weekday.Key & " --> " & sAbbr
  Next

  ' Lenght/Count return both 7
  Print cAbbr2Weekday.Count
  Print cAbbr2Weekday.Length

  ' Add element and remove it again
  cAbbr2Weekday.Add("sat", "Saturday")
  cAbbr2Weekday.Remove("sat")
  
  ' Test if a key is present
  Print cAbbr2Weekday.Exist("we")
  
  ' Make a copy and clear the original collection
  cCopy = cAbbr2Weekday.Copy()
  cAbbr2Weekday.Clear()

End

gambafeliz escribió: [Ver mensaje]

Gracias creo que esto es lo que yo buscaba, incluso en gambas existe un ejemplo más o menos como yo quería.

De nada, me alegro que encuentres la solución esperada.
Te en cuanta que si pones código gambas en el foro, dispones de un icono que formatea con el resaltado de sintaxis, lo cual hace mas agradable la lectura del mismo.




Public Sub Formateando()

    Print "Este código no"

End

Saludos.

tincho escribió: [Ver mensaje]

gambafeliz escribió: [Ver mensaje]

Gracias creo que esto es lo que yo buscaba, incluso en gambas existe un ejemplo más o menos como yo quería.

De nada, me alegro que encuentres la solución esperada.
Te en cuanta que si pones código gambas en el foro, dispones de un icono que formatea con el resaltado de sintaxis, lo cual hace mas agradable la lectura del mismo.

Código: [Descargar] [Ocultar] [Seleccionar]

Código: [Descargar] [Mostrar]

Public Sub Formateando()

    Print "Este código esta formateado correctamente"

End
 

Public Sub Formateando()

    Print "Este código no"

End

Saludos.

Nada que declarar nuevamente tienes razón, es que soy un zoquete.