indentificar espacios en blancos

[nancy8120]

hola,
estoy haciendo lo siguiente ingreso una cadena desde un textbox y la valido segun varios
caracteres que yo misma le di como permitidos, en caso de que la cadena tenga algun caracter
fuera de los permitidos me debe mandar error,
Pero dentro de los permitidos le quiero agregar espacio en blanco pero no se como identificar el espacio en blanco
cada ves que ingreso un espacio en blanco me rompe y me manda error
este es el codigo

<%
texto=request.form("texto")
c=Lcase(texto)

letras="abcdefghijklmnñopqrstuvwxyz"
numeros="0123456789"
dihitos="&-_$@="
' space
'response.write cint(Len(texto))
estado=1
t=0
Do While (estado=1) or (t=cint(Len(texto)))
For contador = 1 To Len(texto)

if InStr(letras,c)<>"" or InStr(numeros,c)<>"" or InStr(dihitos,c)<>"" then
if t=cint(Len(texto)) then
estado=0
mensaje="ok"
end if
if not InStr(dihitos,c) then
mensaje="error"
end if
if InStr(letras,c)<>"" and InStr(numeros,c)<>"" and InStr(dihitos,c)<>"" then
mensaje="ok"
end if


end if
t=t+1
Next
loop
if estado=0 then
response.write c
response.write "<BR>"
response.write mensaje
end if


%>
saludos

[nancy8120]

bueno en pocas palabras estoy haciendo un analizador lexico, asi que si tienen al algun ejemplo en asp... super...
gracias

[Myakire]

Bueno, siguiendo tu lógica yo lo hubiera hecho así:

Código:

<%
carValidos="abcdefghijklmnñopqrstuvwxyz0123456789&-_$@="

Cadena = "Esta cadena es solo para probar"

BanOk = True
For i=1 to Len(Cadena)
    if InStr(carValidos, LCase(MID(Cadena,i,1))) = 0 Then
		   BanOk = False
			 Exit For
		End if
Next
if BanOk Then response.Write "Ok" Else response.write "No Ok" End If
%>

Pero claro que de ser posible, mejor deberías usar expresiones regulares (no se por qué exactamente, pero se recomienda .

[nancy8120]

ok, si me parece bien mas simplificado, pero el motivo por el cual lo dividi en tres es que voy a agregarle otros recorridos pero en esos recorridos necesito el espacio en blanco y no se como identificarlo
ejemplo cadenas validas para mi , "voy a identificar espacio con *"

1223*aaaa*+-_
aaaaaaaaa
44444
____


no validas
1223aaaa+-_

notas uni numeros con letras y simbolos especiales eso me deberia mandar error
haberme explicado
bye

[nancy8120]

muchisimas gracias es exactamente lo que necesitaba