algoritmo para converter string em array

[pedra de gelo 0]

olá pessoal eu tava pesquisando sobre o termo do título deste post e encontrei apenas a função split.

 

por exemplo a string:

 

variavel = "c,a,s,a"

 

pode ser convertida assim:

 

array_variavel = split(variavel,",") - teremos cada letra da palavra em cada posicao do array.

 

ok...

 

segue exemplo 02:

 

variavel = "casa"

 

a função split não se aplica, pois se tentarmos convertela:

 

array_variavel = split(variavel,"") - teremos a palavra inteira em uma só posição.

 

vamos a um metodo alternativo que eu criei utilizando as funçoes left e right do vbscript.

 

var = "123456"qtdcasas = 6qtdvez = 1dim arrayletras(6)for incremento = 0 to 5	resto = qtdcasas - qtdvez		letraatual = left(var, qtdvez)	letraresto = right(var, resto)	arrayletras(incremento) = letraatual		var = letraresto	qtdcasas = qtdcasas - 1next

pronto. agora temos ele convertido.

 

duas dúvidas que coloco aos colegas do fórum:

 

1º - se há uma maneira mais simples de converter essa string contínua

2º - como as funções left e right do vbscript agem na variável, qual matemática entra nessas funções.

 

 

um grande abraço a todos.

[jrcardozo 4]

bem sacado pedra de gelo, vou mover pra laboratório de scripts http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

parabéns pela dica, testei e realmente funciona redondinho http://forum.imasters.com.br/public/style_emoticons/default/clap.gif

[Marcelo Barcellos 0]

Cara, legal, mas e se simplificarmos

 

Function fnArray(dsParametro)Dim objArrayRedim objArray(len(dsParametro) - 1)For i = 0 To len(dsParametro) - 1   objArray(i) = mid(dsParametro,i + 1,1)NextfnArray = objArrayEnd Function'===========testando função================MyArray = fnArray("casa")Response.Write ubound(myArray)Response.Write "<BR>"	For i = 0 To ubound(myArray)		Response.Write MyArray(i) & "<br>"	NExt