saber si un caracter es una letra

[sgafo]

Asi de simple

supongo que existe alguna funcion... ¿cual?

gracias

[AlZuwaga]

la verdad que creo que no... yo intentaría por saber, primero, si no es un número.


cadena = "a"
If Not IsNumeric(cadena) then ...


ahora resta definir si, además de no ser un número, es algún otro caracter "no letra" como .,;:¿?()=... etc.

... tal vez haciendo una comparación con su número ascii. dejame pensarlo

[u_goldman]

Tal vez con un arreglo que contenga en c/u de sus índices una letra, y comparas tu caracter VS c/d de estos índices

'Suponiendo que ya esté lleno

cadena="a"
es_Letra= false

For i=0 to Ubound(arrABC)
If cadena = arrABC(i) Then
es_letra=true
Exit For
End If
Next

If es_Letra Then
'Es una letra
Else
'No lo es
End If


salu2,

[sgafo]

si es cierto que no existe: ¿se podria hacer una cosa tan estupida como intentar, por ejemplo, pasar el caracter a mayusculas y si no es posible no es una letra?

¿sera muy "bestia"?

[u_goldman]

ahora si que no entendí..!

[sgafo]

olvidalo... digamos que pensaba en voz alta

pruebo tu codigo

graciasss

[AlZuwaga]

está buena u_goldman. pero me resulta como más sencillo con un INSTR(). Algo así:

Código:

cadena = "a"
strABC = "|a|b|c|d|e|f|g|h|i|j|k|l|m|n|ñ|o|p|q|r|s|t|u|v|w|x|y|z|"

If InStr(strABC, "|" & cadena & "|") = 0 then
' no es letra
Else
' es letra
End if

lo que no recuerdo es si InStr distingue entre mayúsculas y minúsculas... que en definitiva no sería tanto problema...

bueno... esto se corta, pero debería ser todo en una línea:

strABC = " |a|b|c|d|e|f|g|h|i|j|k|l|m|n|ñ|o|p|q|r|s|t|u|v|w|x
|y|z|"

prrr.... y además, no sé por qué, agrega un ESPACIO delante del primer "pipe"

[u_goldman]

Muy buena Daz, instr no distingue mayúscula/minúscula


Salu2,

[sgafo]

No os habia dado las gracias...

pues ya esta

[sgafo]

¿estais seguros de que InStr no distingue entre mayusculas y minusculas?

No me valida una mayuscula, chicos

[Cain]

strABC = " |a|b|c|d|e|f|g|h|i|j|k|l|m|n|ñ|o|p|q|r|s|t|u|v|w|x
|y|z|A|B|C..."

Así ya no tienes el problema de las mayúsculas

[sgafo]

que listo eres, Cain... que haria yo sin ti y sin aplicar antes de comprobar un LCase...

(es que soy muy vaga)

[Cain]

Es que soy el más mejor

[sgafo]

De todos modos: sirva como aclaracion que InStr SI distingue entre mayusculas y minusculas



gracias, masmejor

[Cain]

De nada, un gran conocimiento entraña una gran responsabilidad (¿Tio Ben? )

[sgafo]

bueno bueno... cuidado con los delirios de grandeza...

[u_goldman]

Muy buena Daz, instr no distingue mayúscula/minúscula

De todos modos: sirva como aclaracion que InStr SI distingue entre mayusculas y minusculas

Pues dada esta confusión, estuve investigando y me encontré con que puede o no, distinguir entre mayúscula minúscula, pues cuenta con dos búsquedas que se pasan como argumentos, una búsqueda binaria y la otra textual, aquí un ejemplo y el link:

<%
'response.write Instr(1,"HOla!","h",1)
Dim SearchString, SearchChar, MyPos
SearchString ="XXpXXpXXPXXP" ' String to search in.
SearchChar = "P" ' Search for "P".
MyPos = Instr(4, SearchString, SearchChar, 1) ' A textual comparison starting at position 4. Returns 6.
MyPos = Instr(1, SearchString, SearchChar, 0) ' A binary comparison starting at position 1. Returns 9.
MyPos = Instr(SearchString, SearchChar) ' Comparison is binary by default (last argument is omitted). Returns 9.
MyPos = Instr(1, SearchString, "W") ' A binary comparison starting
%>

http://msdn.microsoft.com/library/de...asp?frame=true

Salu2,

[sgafo]

pues esta bien saberlo...

[Carlitos]

Hola.

Se me ocurre una cosa:

Si comprobamos el código del carácter y esta comprendido entre 65(A) y 90 (Z) y entre 97(a) y 122(z) entonces podemos decir que el carácter en cuestión es una letra.

[sgafo]

ya lo he solucionado, como indico Daz pero aplicandole antes un Lcase

Sencillo a la par que elegante...

[tunait]

Perdón que me meta pero...

yá sé que está resuelto, sólo que se me ocurrió otra forma de averiguarlo.

La dejo aquí por si a alguien le viene bien alguna vez.

Es usando expresiones regulares

<%
Dim pepe,patron
pepe = "aiHuPeYrr"
set patron = new regexp
patron.Pattern = "^[a-z]+$"
patron.IgnoreCase = true

if patron.Test(pepe) then
response.Write("<br> Son todo letras")
else
response.Write("<br> No son todo letras")
end if
%>

Si el valor que le pasamos se ajusta al patrón devuelve verdadero (serían sólo letras). Si no, devuelve falso.

saludos

[AlZuwaga]

Lo que dice Carlitos es justamente a lo que me refería en mi primer mensaje (... tal vez haciendo una comparación con su número ascii. dejame pensarlo)

Y tal vez quedaría más elegante aun =)

... aunque, claro, la solución de tunait es de lo mejor

lástima que no estoy muy puesto con las expresiones regulares

[sgafo]

es que daz, ciertamente pareces bastante irregular

tunait... tu nunca estas de mas, guapa

[AlZuwaga]

Si, exactamente... además no soy muy expresivo