Resumen Colecciones Case Sensitive

At 23:55 27/02/98 +0100, you wrote:
>    Quisiera saber como puedo hacer que los Keys de una Coleccion sean
sensitivos a las mayúsculas, es decir, que el Key "Coche" sea distinto que
el Key "coche". Muchas Gracias por adelantado.
>

No sé si existe alguna opción para ello. Si no la hubiera podrías guardar
las claves como secuencia de los códigos ascii de sus letras para que así
sean distintas.
Es decir, en vez de decir key = "Coche" decir key = Str2Asc("Coche") siendo :

Function Str2Asc(texto as string) as string
  dim i as integer, aux as string
  aux = ""
  for i = 1 to len(texto)
    aux = aux + format$(Asc(Mid$(texto,i,1)),"000")
  next i
  Str2Asc = aux
End Function

Y para saber el valor "real" de la clave podrías usar esta otra función :

Function Asc2Str(texto As String) As String
  Dim i As Integer, aux As String
  aux = ""
  For i = 1 To Len(texto) Step 3
    aux = aux + Chr$(CInt(Mid$(texto, i, 3)))
  Next i
  Asc2Str = aux
End Function
    


Un saludo.

_________________________________________________
José Rubí de la Vega
E-mail : jrubi@arrakis.es
WWW : http://www.arrakis.es/~jrubi
Podrás encontrar información sobre VB, la lista
VB-ESP y un resumen de los mensajes de la misma



Resumen Resumen

Visual Basic Página de Visual Basic

Página principal Página principal

www.jrubi.com