AJUDA COM FIND E REPLACE DE STRINGS

EWERTONESTACIO 20/08/2009 14:51:58
#320438
Fala galera....

To com uma dúvida.... tô com us sisteminha que preciso fazer um imperpretador SQL... essa é a parte fácil....

O que esta me deixando meio confuso, é as funcoes de localizar e substituir... tipo bloco de notas.....

Estou usando o RichTextBox com Caixa de texto para executar minhas consultas SQL..

eu estou usando o método Find deste objeto... mas apenas me retorna a posição do caracter que eu estou procurando ( faz básicamente a mesma coisa que a Função InStr).
a pergunta de 1 Milhao de reais é ? depois de ei saber o inicio e o fim do que eu quero achar no texto, com oeu faço p/ selecionalo? (da msm forma que fica com o mouse)


valeu galera......




Algume pode me ajudar?
ASHKATCHUP 20/08/2009 15:08:57
#320439 Resposta escolhida
Depende.

Você precisa selecionar ele [Ô]visualmente[Ô] ou só para usar no código?

Se for só pro codigo, acho que o código abaixo pode te ajudar.

Private Sub Command1_Click()
    Dim iPosInicial                     As Integer
    Dim iPosFinal                       As Integer
    [ô]
    iPosInicial = InStr(1, rText1.Text, [Ô]FROM[Ô], vbTextCompare)
    If iPosInicial = 0 Then Exit Sub
    [ô]
    iPosFinal = InStr(iPosInicial, rText1.Text, [Ô] [Ô], vbTextCompare)
    If iPosFinal = 0 Then iPosFinal = Len(rText1.Text)
    [ô]
    rText1.SelStart = iPosInicial - 1
    rText1.SelLength = iPosFinal - iPosInicial
    [ô]
    rText1.SelBold = True
End Sub


Se for visual... eu não sei a resposta.
EWERTONESTACIO 20/08/2009 15:11:28
#320440
Poxa... é o visual .. o código eu consegui fazer .....

mas valeu pela resposta....
Tópico encerrado , respostas não são mais permitidas
Voltar