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