visual basic

[Edemar 0]

Preciso fazer um contador de palavras exemplo" o rato roeu a ropa do rei de roma" = 9 palavras nao estou conseguindo fazer a linha de codigo.

[Luizgrs 0]

Vou te dar uma ajuda falando as funções que existem no VB:Split(texto,separador)Irá quebrar o texto em todas as ocorrências do separador, e retornará um vetor com cada parte do texto.Ubound(vetor)Retorna o número do maior índice do vetor.Basicamente você irá utilizar essas duas funções ^^

[Edemar 0]

Vou te dar uma ajuda falando as funções que existem no VB:Split(texto,separador)Irá quebrar o texto em todas as ocorrências do separador, e retornará um vetor com cada parte do texto.Ubound(vetor)Retorna o número do maior índice do vetor.Basicamente você irá utilizar essas duas funções ^^

nao entedi como usar esses comandosvo passa a minha linha de código pra se você entendePrivate Sub cmdRodar_Click() Dim Palavra Dim Posicao01 Dim Posicao02 Dim Posicao03 Dim StringTeste Dim Contador StringTeste = (txtPalavra) 'Entrada de texto Posicao01 = InStr(1, StringTeste, "") 'da 1 palavra até o 1 espaço em branco Posicao02 = InStr(Posicao01 + 1, StringTeste, " ") 'entaõ + 1,até o proximo espaço em branco Contador = split(Posicao01),split(Posicao02) 'nao entedi como separar e contar Exib = Contador txtExib.Text = Exib 'tela de saídaEnd Sub

[Luizgrs 0]

Funciona assim:

texto = "ola/esse/é/um/exemplo"matriz = split(texto,"/")msgbox matriz(0) 'exibe "ola"msgbox matriz(1) 'exibe "esse"msgbox matriz(4) 'exibe "exemplo"msgbox Ubound(matriz) 'exibe o número 4 que é o maior índice do vetor matriz.