[VBA] Effetture una ricerca in un stringa

[D€Vil]

Raga

-.-

Mettiamo che io abbia una stringa in una casella di testo ( mi rifaccio a M$ access) , come faccio a fare una specie di TROVa tipo notepad?

Cioè mettiamo che io abbia una stringa tipo

testo = "sdkfjsdjkfjk Bla bla "

Come faccio a fare una SUb in cui mettiamo voglia trovare "Bla"

e mi sottolini la parola Bla ???

grazie e ciao

[Lasentinella]

Ecco anche a me la prof ha dato da fare questo problema.. rispondete plss

[ciro78]

provate con la funzione mid

[ladyBlu]

Originariamente inviato da ciro78
provate con la funzione mid

la funzione da utilizzare non è la Mid bensi InStr; quest'ultima infatti serve proprio per trovare all'interno di una stringa uno o più caratteri noti.

[Mabi]

Guarda quest'esempio:

Dim StrRicerca As String
Dim Inizio As Integer

Text1.Text = "sdkfjsdjkfjk Bla bla "
StrRicerca = InputBox("Inserire la stringa da ricercare", "Ricerca")
Inizio = InStr(((Text1.SelStart + 1) + Text1.SelLength), Text1.Text, StrRicerca) - 1
If Inizio > -1 Then
  Text1.SelStart = Inizio
  Text1.SelLength = Len(StrRicerca)
  Text1.SetFocus
Else
  Text1.SelStart = 0
  Text1.SelLength = 0
End If

[ciro78]

Originariamente inviato da ladyBlu
la funzione da utilizzare non è la Mid bensi InStr; quest'ultima infatti serve proprio per trovare all'interno di una stringa uno o più caratteri noti.

si in effetti faccio confusione...sono solo agli inizi mid serve per tagiare o troncare....