PEGAR PARTE DE UMA STRING

BRUNORICHART 06/07/2010 14:43:53
#346666
como pegar a segunda palavra de uma string usando apenas uma linha de comando !!!
JONATHANSTECKER 06/07/2010 14:51:29
#346667
Tente assim...

Dim Vetor As Variant

Vetor = Split(TextBox1.Text, [Ô] [Ô])
MsgBox(vetor(1).ToString)

Fonte: Trabalhando Strings no Visual Basic
EDERMIR 06/07/2010 19:13:25
#346709
Citação:

:
Tente assim...

Dim Vetor As Variant

Vetor = Split(TextBox1.Text, [Ô] [Ô])
MsgBox(vetor(1).ToString)

Fonte: Trabalhando Strings no Visual Basic



O comando SPLIT serve para criar um vetor baseado em uma string e um determinado caracte de separação.

Para descobrir a segunda palavra de uma string, usa-se (como indicado): VETOR = SPLIT(<FRASE>,[Ô] [Ô]) pois o caracter que separa as palavras é o espaço em branco.

Exemplificanto outro caso: Wstring = [Ô]1,2,3,4,5,6,7,8,9,0[Ô]
VEtOR = split(Wsting,[Ô],[Ô])
VETOR(0) = 1
VETOR(1) = 2
VETOR(2) = 3
VETOR(3) = 4
.
.
.
Pois o separador é a VIRGULA

Se não houver separador disponível, então o vetoré criado apenas com o elemento 0:
VEtOR = split(Wsting,[Ô]e[Ô])
VETOR(0) = [Ô]1,2,3,4,5,6,7,8,9,0[Ô]
Note que não há a letra [Ô]e[Ô] na string.
JANDER 06/07/2010 19:43:07
#346714
eu uso

MsgBox Mid([Ô]teste123[Ô], 2, 1)
NLSOLUCOES 06/07/2010 21:20:23
#346725
BRUNORICHART,

Levei em consideração exatamente no que você disse:
Citação:

[Ô]como pegar a [txt-color=#e80000]segund[/txt-color]a palavra de uma string usando apenas uma linha de comando[Ô]



Então entendi que você quer somente a 2ª palavra certo?!
Execute via Debug do VB e veja como vai ficar ...
>

txtSTR= [Ô]gosto muito de programar[Ô] [ENTER]

? mid$( txtSTR , Instr$( 1, txtSTR, [Ô] [Ô] ) , Instr$( Instr$( 1, txtSTR, [Ô] [Ô] ) , txtSTR , [Ô] [Ô] )) [ENTER]

Resultado
muito
<

[]'s

Não esqueça de fechar o tópico!
JONATHANSTECKER 19/03/2011 00:39:23
#368532
Favor ENCERRAR o tópico já que problema foi resolvido!
Tópico encerrado , respostas não são mais permitidas
Voltar