BUSCAR DADOS DENTRO DE UM TEXT BOX

USUARIO.EXCLUIDOS 02/10/2006 13:48:39
#175013
Boa tarde, eu tenho um textbox com multiline ativo eu gostaria de saber se tem como eu buscar um ceto tipo de estring no mesmo.
tipo no textbox vai ter assim Nome: Fulano
eu quero buscar exatamente isso o que vier depois do nome, faço a busca e ele me traz "Fulano"
Espero que eu tenha sido claro na explicação

Obrigado pela atenção
USUARIO.EXCLUIDOS 02/10/2006 14:04:45
#175020
tente isto:


xvar = InStr(Text1.Text, "Brazil")

if xvar = 0 then 
   msgbox "Não existe"
else
   msgbox "Existe - na posição: " & str(xvar)
endif


Ok?
CLEVERTON 02/10/2006 14:10:46
#175023 

'Coloque um Text1 (MultLine)
'Um Text2 (texto que vai ser procurado)

Voltar:
If InStr(Text1.SelStart + 1, Text1, Text2) = 0 Then
    If MsgBox("Texto Não encontrado" & vbCrLf & "Voltar ao inicio para procurar") = vbYes Then
        Text1.SelStart = 1
        GoSub Voltar
    End If
Else
    Text1.SetFocus
    Text1.SelStart = InStr(Text1.SelStart + 1, Text1, Text2) - 1
    Text1.SelLength = Len(Mid(Text1, Text1.SelStart))
End If
USUARIO.EXCLUIDOS 02/10/2006 14:12:10
#175024
Private Sub cmdCommand1_Click()
Dim a As Integer

a = InStr(1, Me.txtText1.Text, Me.txtText2.Text, vbTextCompare)
MsgBox Mid$(Me.txtText1.Text, a, Len(Me.txtText2.Text))

End Sub
USUARIO.EXCLUIDOS 02/10/2006 14:46:58
#175033
Ola galera obrigado pela ajuda, o que eu quero mesmo é + - isso mesmo pórem precisa especificamente assim:
Eu tenho no text necessáriamente um texto que contem os seguintes dados:

Seu produto: Seu produto tal
Nome: fulano de tal
Quantidade: 1
Preço: x valor
E-mail: meuemail@meuemail.com.br
Telefone: meu telefone
Cidade: RIo de Janeiro
Estado: RIo de Janeiro
País: Brasil

eu quero pegar esses dados e colocar nos texts cabiveis, tipo ele procura pela estring "nome: " e pega o a estring fulano de tal e coloca no txtnome.text
é isso que eu quero
Fico muito grato pela atenção prestada
Luciano de Paula
USUARIO.EXCLUIDOS 02/10/2006 14:52:54
#175035 
Dim Ini as Long
Dim Fim as Long
Dim Nome as String

Ini = InStr(1,Text1.Text,"Nome") + 4
Fim = instr(Ini,Text1.Text,vbcrlf)
Nome = trim(mid(Text1.Text,Ini,Fim - Ini))

msgbox Nome



Creio que isto resolve seu problema!
USUARIO.EXCLUIDOS 02/10/2006 15:18:54
#175042
Pocha valeu, me quebrou um galhão muito obrigado pela ajuda.
USUARIO.EXCLUIDOS 02/10/2006 15:43:06
#175054 Resposta escolhida
Esquenta não Luan!!

Só não esquece de encerrar o tópico! rsrs

Flws

Te+
Tópico encerrado , respostas não são mais permitidas
Voltar