10/02/2003, 12:59
|
 | Colaborador | | Fecha de Ingreso: febrero-2001 Ubicación: 34.517 S, 58.500 O
Mensajes: 14.550
Antigüedad: 24 años, 2 meses Puntos: 535 | |
| Se me ocurrió algo, tal vez te sirva a modo de ejemplo:
<%
Cadena = "aaaaaaaaa1aaaa"
primerCaracter = Left(Cadena,1)
j = Len(Cadena) - 1
For i = 0 to j
caracterActual = Mid(Cadena,i+1,1)
If primerCaracter <> caracterActual then
Response.Write "Al menos un caracter es diferente dentro del texto"
Exit for
End if
Next
%> |