alguien que me pueda ayudar estoy desesperado

[Henry Zapata]

Hola:

Como tenía un poco de tiempo y me parecio interesante tu pregunta me tome la molestia de escribir uno que te puede ayudar en algo. Este funciona de izquierda a derecha y con mayusculas y falta validar casos como el valor ZZZZ.

---------------------------------------------
<%@ Language=VBScript %>

<%

Response.Buffer=false

dim strCadena,strCaracter
dim intContador,intLongitud, intAssci
dim blnFin

strCadena = "ZCAAA"
intLongitud = len(strCadena)
blnFin = false
intContador = 1

'Recorriendo caracteres
while (intContador <= intLongitud and not blnFin )

'Obteniendo caracter
strCaracter = mid(strCadena,intContador,1)
'Obteniendo codigo ascci
intAssci = asc(strCaracter)
'Verificando si el caracter a analizar es el ultimo del abecedario Z
if intAssci <> 90 then
'Primer Caracter de la cadena
if intContador = 1 then
strCadena = chr(intAssci + 1) + mid(strCadena,intContador+1,intLongitud-intContador)
'Ultimo Caracter de la cadena
elseif intContador = intLongitud then
strCadena = mid(strCadena,intContador-1,1) + chr(intAssci + 1)
' Caracter distinto a primero y ultimo
else
strCadena = mid(strCadena,intContador-1,1) + chr(intAssci + 1) + mid(strCadena,intContador+1,intLongitud-intContador)
end if
'Fin de operacion
blnFin = true
end if
'Incrementando contador
intContador = intContador + 1

wend

Response.Write strCadena

%>


---------------------------------------------