vb6 trovare parola ed incollare in textbox

[x69asterix]

Ciao a tutti,

allora con questo listato eseguo una ricerca dentro una RichTextBox1, la funzione esegue egregiamente la sua ricerca, xò quello ke voglio fare è ke invece di trovarmi la riga col testo selezionato, voglio ke mi incolli il testo trovato in una textbox, come procedo? questo è il listato:

Public POSIZ

Private Sub Command1_Click()
       FoundPos = RichTextBox1.Find(Text1.Text, POSIZ + 1, , rtfWholeWord)
       POSIZ = FoundPos
   Beep
       DoEvents
End Sub

Private Sub Form_Load()
RichTextBox1.LoadFile App.Path & "\txt\TEC.txt", rtfText
Text1 = frmElenco.txtFields(2)

End Sub

Private Sub Text1_Change()
Dim FoundPos As Long
Dim FoundLine As Long
   If RichTextBox1.Text = "" Then Exit Sub
   ' Trova il testo specificato nel controllo TextBox.
   FoundPos = RichTextBox1.Find(Text1.Text, 0, , rtfWholeWord)
   POSIZ = FoundPos
   
   ' Visualizza un messaggio per indicare che il testo
   '   è stato o non è stato trovato.

   If FoundPos <> -1 Then
      ' Restituisce il numero della riga contenente il testo.
      FoundLine = RichTextBox1.GetLineFromChar(FoundPos)
     
      Beep
   Else
           MsgBox "Parola non trovata."
   End If
   If Text1 = "" Then RichTextBox1.Refresh
      Text1.Refresh
   DoEvents
End Sub

ciao

[x69asterix]

[Brainjar]

Scusa, ma non ho capito. Poniamo che tu cerchi "x69asterix" in
un testo nella RichTextBox.
Il codice che hai postato, te lo trova e te lo evidenzia. Vuoi che
la stringa "x69asterix", che è stata trovata, vada in una TextBox,
poniamo TextBoxRisultato.

A parte che effettui la ricerca sia con al Change di Text1 che al
click su Command1, il punto è che comunque trovi nella Rich quello
che hai in Text1.

Allora prima dell'istruzione 'beep' metti

TextBoxRisultato.Text = Text1.text

Ciao,

[x69asterix]

Originariamente inviato da Brainjar
Scusa, ma non ho capito. Poniamo che tu cerchi "x69asterix" in
un testo nella RichTextBox.
Il codice che hai postato, te lo trova e te lo evidenzia. Vuoi che
la stringa "x69asterix", che è stata trovata, vada in una TextBox,
poniamo TextBoxRisultato.

A parte che effettui la ricerca sia con al Change di Text1 che al
click su Command1, il punto è che comunque trovi nella Rich quello
che hai in Text1.

Allora prima dell'istruzione 'beep' metti

TextBoxRisultato.Text = Text1.text

Ciao,

Ciao,
no allora il testo trovato è nella Rich, il text1 è il testo da trovare, dunque in text1 immetto la parola da trovare presa in modo automatico da un'altro frmelenco, ecco il xkè del text1_Change, se è presente nella Rich mi verrà visualizzata nella Rich, bene se è presente quello ke voglio, come faccio a prendere la parola evidenziata ed metterla in un textbox,

[Brainjar]

La parola evidenziata è la parola che cerchi.
Quindi non hai bisogno di 'prenderla'.

il text1 è il testo da trovare

Quello che cerchi e hai trovato, è già in text1.

Ciao,

[x69asterix]

Originariamente inviato da Brainjar
La parola evidenziata è la parola che cerchi.
Quindi non hai bisogno di 'prenderla'.


Quello che cerchi e hai trovato, è già in text1.

Ciao,

d' accordo, xò x la precisione io devo prendere quello ke precede la parola trovata es:

0123456789 x69asterix


io x forza di cosa cerco x69asterix, poi se è presente devo prendere 0123456789.
Sono stato chiaro?
ciao

[Brainjar]

Prima hai chiesto :

come faccio a prendere la parola evidenziata ed metterla in un textbox,

Adesso chiedi :

d' accordo, xò x la precisione io devo prendere quello ke precede la parola trovata es:

0123456789 x69asterix

Quanti caratteri prima di quello che cerchi devi prendere ?

Ciao,

[x69asterix]

allora i caratteri da prendere sono 10 senza contare gli spazi che intercorrono tra la parola ed i caratteri.

[Brainjar]

Cosa cuol dire, che se ho una parola da 10 caratteri, ma ho uno
spazio tra questa e il punto di ricerca, devo estrarre 11 caratteri,
eliminare lo spazio 'inutile' e restituire i 10 caratteri validi ?
Sei sempre sicuro che ci sia un solo carattere tra la parola cercata
e la stringa da estrarre ?

In questo caso basterebbe :

     Dim Stringa  As String
     Stringa = Mid$(RichTextBox1.Text, FoundPos - 11, 10)

Ciao,

[x69asterix]

Originariamente inviato da Brainjar
Cosa cuol dire, che se ho una parola da 10 caratteri, ma ho uno
spazio tra questa e il punto di ricerca, devo estrarre 11 caratteri,
eliminare lo spazio 'inutile' e restituire i 10 caratteri validi ?
Sei sempre sicuro che ci sia un solo carattere tra la parola cercata
e la stringa da estrarre ?

In questo caso basterebbe :

     Dim Stringa  As String
     Stringa = Mid$(RichTextBox1.Text, FoundPos - 11, 10)

Ciao,

ciao, allora questo è un esmpio reale io cerco ACEXXX, quindi devo prendere "0253124055"

0253124055 ACExxx PAxxx TLD

0252178055 ALBAxxxx DANxxxx TLD

chiaro?
ciao