permuta de un string

Tendrias que colocar el string dentro de un arreglo...de donde obtienes
el string? para poder ayudarte en como armar el arreglo
Luego cuando lo tienes dentro de esta estructura puedes permutar mas
comodamente que haciendo un subtring o algo parecido

el string lo coloca el usuario en el formulario, cómo hago para pasar el
string al arreglo ??????

de antemano muchas gracias

"Jose A. Fernandez" escribió:

Tendrias que colocar el string dentro de un arreglo...de donde obtienes
el string? para poder ayudarte en como armar el arreglo
Luego cuando lo tienes dentro de esta estructura puedes permutar mas
comodamente que haciendo un subtring o algo parecido

Vamos a tener que armar algo a "pura sangre" jeje porque no se si hay
una funcion en vbscript que te pase de String to Array...
Pero como nuestro amigo google nos ayuda con los tiempos cortos te paso
algo que encontre y lo arregle para que se lea un poco mejor... es una
funcion para lo que necesitas

'--
'Cadena a Arreglo - StringToArray
'--
FUNCTION StringToArray(Cadena)
Dim Longitud, Arreglo, i
Longitud = Len(Cadena)
redim Arreglo(Longitud-1)
For i = 0 To (Longitud-1)
Arreglo(i) = mid(Cadena,i+1,1)
Next
StringToArray = Arreglo
END FUNCTION

Como utlizarla:
-
Dim aMiArreglo
Dim varNumero
varNumero = Request.Querystring("variableNumero")
aMiArreglo = StringToArray(varNumero)

y alli tienes el arreglo que luego puedes utilizarlo para lo que estas
necesitando

muchas gracias -- estoy probando --cualquier cosa te informo

"Jose A. Fernandez" escribió:

Vamos a tener que armar algo a "pura sangre" jeje porque no se si hay
una funcion en vbscript que te pase de String to Array...
Pero como nuestro amigo google nos ayuda con los tiempos cortos te paso
algo que encontre y lo arregle para que se lea un poco mejor... es una
funcion para lo que necesitas

'--
'Cadena a Arreglo - StringToArray
'--
FUNCTION StringToArray(Cadena)
Dim Longitud, Arreglo, i
Longitud = Len(Cadena)
redim Arreglo(Longitud-1)
For i = 0 To (Longitud-1)
Arreglo(i) = mid(Cadena,i+1,1)
Next
StringToArray = Arreglo
END FUNCTION

Como utlizarla:
-
Dim aMiArreglo
Dim varNumero
varNumero = Request.Querystring("variableNumero")
aMiArreglo = StringToArray(varNumero)

y alli tienes el arreglo que luego puedes utilizarlo para lo que estas
necesitando