Motore di ricerca interno

[zerbo2]

Mi spiego meglio vorrei un motore di ricerca all'interno di un  TextArea e' possibile,in parole povere dentro al TestxArea ho una ventina di nominativi,vorrei fare in modo che scrivendo un determinato nome su una stringa il motore di ricerca interno me lo trovi,altrimenti tutte le volte le devo visionare tutti...grazie.

[zerbo2]

Vi ringrazio per l'aiuto,visto che sono all'inizio.

[vuott]

Ovviamente devi confrontare ogni parola presente nella TextArea con quella che cerchi.


Poniamo che nella tua TextArea hai queste parole, l'una dopo l'altra: "alibaba simbad abukir sharazade".
Vuoi cercare la parola "abukir"; puoi fare così:

Codice: gambas [Seleziona]

Public Sub Button1_Click()

  Dim j As Byte
  Dim ss As String[]
  
' Frammenti l'intera frase, contenuta nella "TextArea",
' distinguendo ciascuna parola dall'altra tenendo conto dello spazio che le separa
' (cioè ogni parola da prendere in considerazione è quel... "gruppo di caratteri"
' presenti nella "TextArea" che arrivano fino allo spazio più prossimo.
' Spazio che sarà escluso: non farà insomma parte della parola).
' Carichi ciascuna parola, così ottenuta distinta dalle altre, negli elementi
' di una variabile array di tipo Stringa:
    ss = Split(TextArea1.Text, " ")
  
' Effettui il confronto di ciascuna parola, presente nell'array, con la parola cercata:
  For j = 0 To ss.Max
    If ss[j] = "abukir" Then Print "Trovato abukir !"
  Next
  
End

Ovviamente il codice è semplificato dal fatto che ho già inserito la parola da cercare; ma l'ho fatto per motivi esempificativi.  

[Top Fuel]

Ma che ti hanno fatto di male alibabà e i 40 ladroni?

[vuott]

Ma che ti hanno fatto di male alibabà e i 40 ladroni?

Si sono riservati la parola chiave per aprire.......