AJUDA COM STRINGS

CARINHENA 25/07/2005 16:16:40
#95945
Gostaria de uma ajuda...

Vamos supor que tenho a frase:

as vezes nem sempre podemos fazer

Como separar por palavra? exemplo:
as
vezes
nem
sempre
podemos
fazer

Sem que tenha um numero de palavras especificos, como por exemplo 3... sempre pode ter 4, 5, 1, 8 palavras... e por ai vai.. tem como se criar uma função pra isso?

Qualquer ajuda é bem vindo...

um abraço
USUARIO.EXCLUIDOS 25/07/2005 16:27:29
#95947
dim SuaVariavel as variant
SuaVariavel = Split(text1.text, " ",-1)
msgbox suavariavel(0)
msgbox suavariavel(1)
msgbox etc,etc, etc
WEBMASTER 25/07/2005 16:50:52
#95952 Resposta escolhida
Ai vai um exemplo bem pratico...



 'Supondo que o texto em questão está em textbox1.text
 'e já avançando um pouco você queira jogar o resultado para listbox1
 Dim I as integer

 if instr(1, Text1.text, " ") = 0 then
  List1.AddItem Text1.Text
 else
   for I = 0 to ubound(split(Text1.text, " "))
     List1.AddItem split(Text1.Text, " ")(I)
   next
 end if
CARINHENA 26/07/2005 16:59:23
#96096
era isso mesmo que precisava.. perfeito.. obrigado pela ajuda
Tópico encerrado , respostas não são mais permitidas
Voltar