Validar expresion hexadecimal.

gabecq · #1 (**permalink**) 02/08/2005, 01:33

Hola.

Tengo una caja de texto en la q se debe introducir un color en hexadecimal y quisiera validar que el formato fuera el correcto.

Gracias y un saludo.

Myakire · #2 (**permalink**) 02/08/2005, 07:45

¿y luego?

Recorrer cada token y ver que no agreguen otros caraceteres fuera de 0-9, A-F

gabecq · #3 (**permalink**) 03/08/2005, 01:35

Muchas gracias.

gabecq · #4 (**permalink**) 05/08/2005, 06:28

"ColorCab" es el id de la caja de texto.
Compruebo que los caracteres sean numeros o letras mayusculas preguntando por sus intervalos en código ASCII.

dim i
dim valor
dim ok

valor = Trim(Request.Form("ColorCab"))
for i=1 to len(valor)
if (mid(valor,i,1)>=chr(48) and mid(valor,i,1)<=chr(57)) or (mid(valor,i,1)>=chr
(65) and mid(valor,i,1)<=chr(90)) then
ok = true
else
ok = false
variable_error="Los caracteres en Color de Cabecera deben ser numeros o
letras mayusculas."
i = len(valor)
end if
next

Saludos.