SELECIONAR TEXTO

PROGRAM 21/12/2009 23:19:22
#330242
preciso de ajuda pra selecionar um texto localizado em um textbox.
Tipo:

No textbox tem 123456789
E eu quero localizar os 4 primeiros caracters, [Ô]1234[Ô].
Ai quando localizar, eu quero que selecione esse 4 e mostre no textbox2.

tem como?
thanks.;
WEBMASTER 21/12/2009 23:45:44
#330243
Use o instr, ele retorna a primeira ocorrencia a partir de onde voce quer comecar...

Sub teste()
    Dim Texto As String
    Texto = [Ô]1234567890ABCDEFGHIJKLMNOPQRSTUV[Ô]
    Debug.Print Mid(Texto, InStr(1, Texto, [Ô]L[Ô]), 4)
End Sub


Saida deste codigo: LMNO
PROGRAM 21/12/2009 23:53:09
#330244
Mas desse modo, não vai selecionar no textbox1 =s
como faz pra selecionar?
WEBMASTER 21/12/2009 23:54:48
#330245
manipule o metodo textbox1.selstart e textbox1.sellength com base no resultado obtido
PROGRAM 22/12/2009 00:18:38
#330246
o Meu Método é esse:
Dim Resultado As String
Resultado = Mid(Texto, InStr(1, Text1.Text, [Ô][Ô]), 4)
Text2.Text = Resultado

mas eu não conseguir manipular do jeito que você falou =s
WHELLNET 22/12/2009 07:33:49
#330251 Resposta escolhida
Tente assim
Dim Resultado As String
Resultado = Mid(text1.text, 1, 4)   [ô]localiza os quatro primeiro
[ô]Marca o resultado no text1
Text1.SelStart = 0
Text1.SelLenght = 4
[ô]Exibe o resultado
Text2.Text = Resultado
PROGRAM 22/12/2009 14:31:29
#330295
Thanks. deu certo ;]

agradeço você e o WebMaster.
Tópico encerrado , respostas não são mais permitidas
Voltar