Como que faz isso?

[Ricardo.Sep 0]

Olá pessoal.To escrevendo aqui para perguntar um coisa bem simples (eu acho), que queria pegar uma frase inserida em uma textbox e quebrar essa frase em um vetor de caracteres dessa frase.Há como fazer isso?

[Tameirão 0]

Claro que há!Dim Vetor() As String 'Declarando o vetorDim TamVet as Integer 'Declarando o tamanho da fraseDim i as IntegerTamVet = Len(Text1.Text) 'Instanciando o tamanho do textoReDim Preserve Vetor(TamVet) 'Redimencionando o vetor e preservando o conteudo já existente no vetorFor i = 1 To TamVet Vetor(i) = Mid(Text1.Text, i, 1) 'Instanciando o vetor com cada caractere da frase.Next iPronto!

[Ricardo.Sep 0]

Claro que há!

 

Dim Vetor() As String 'Declarando o vetor

Dim TamVet as Integer 'Declarando o tamanho da frase

Dim i as Integer

 

TamVet = Len(Text1.Text) 'Instanciando o tamanho do texto

ReDim Preserve Vetor(TamVet) 'Redimencionando o vetor e preservando o conteudo já existente no vetor

For i = 1 To TamVet

    Vetor(i) = Mid(Text1.Text, i, 1) 'Instanciando o vetor com cada caractere da frase.

Next i

 

 

Pronto!

<{POST_SNAPBACK}>

Muito obrigado!

 

Era isso mesmo que eu estava procurando.

 

Valeu mais uma vez.

[luiz humberto 0]

Explicando:

ReDim Preserve

RemDim-> Utilizado para redimensionar o tamanho da variável declarada

Ex:

Dim Vet(1) As integerRemDim Vet(2) As integer

Preserve-> O próprio nome já diz preserva, ou seja, mantém os valores da variável

[lucasrocha 0]

Desta forma fica mais limpo.

 

Dim Vetor() As String 'Declarando o arrayDim TamVet as Integer 'Declarando o tamanho da fraseDim i as IntegerTamVet = Len(Text1.Text) 'Instanciando o tamanho do textoReDim Vetor(0) 'Limpa o array(Zera)For i = 1 To TamVetReDim Preserve Vetor(i) 'Redimencionando o array e preservando o conteudo já existente no arrayVetor(i) = Mid(Text1.Text, i, 1) 'Instanciando o arraycom cada caractere da frase.Next i

Sempre zere um array antes de atribuir valores a ele para que nao fique sujeira no arrey.

 

Pense na seguinte situação:

 

 

1a. execução:

- Text1.text = "Os carros da Ferrari são Vermelho"

teriamos um array de 33 caracteres. (O, s, , C, a, r, r, o, s,...)

2a. execução:

- Text1.text = "Lucas"

teriamos um array de 33 caracteres. (L, u, c, a, s, r, r, o, s, ...)

 

Ficaria a sujeira da execução anterior.

[Luizgrs 0]

Cada vez que o evento terminar o vetor será apagado da memória, pois ele pertence somente a esse evento, então não há a necessidade de "zerá-lo".

[lucasrocha 0]

se por ventura le for utilizar este array em outra procedure e depois re-utilisar o mesmo array ele tera que zerar.

[Luizgrs 0]

Somente se for declarado como public ou global ou no General do Form.