Cercare una parola in una stringa

Per cercare una parola in una stringa potranno essere usate diverse soluzioni.

Con LIKE ed il metacarattere * . In questo caso possiamo sapere semplicemente se la parola cercata esiste nella stringa:

Public Sub Button1_Click()

Dim $prova As String = "la tenda è grande"


If $prova Like "* tenda *" Then
  Print "Parola trovata !"
Endif

End

Con la funzione INSTR :

In questo caso verrà restituita la posizione del primo carattere della prima parola trovata fra due o più eventuali, identiche a quella cercata, all'interno della stringa :

Public Sub Button1_Click()

Dim $prova As String = "la tenda è grande"
Dim pos As Byte


pos = Instr($prova, "tenda")

 Print pos

End

Il risultato in console sarà:
4

Con la funzione RINSTR :

In questo caso verrà restituita la posizione del primo carattere dell'ultima parola trovata fra due o più eventuali, identiche a quella cercata, all'interno della stringa :

Public Sub Button1_Click()

Dim $prova As String = "la tenda rossa è grande più della tenda verde"
Dim pos As Byte


pos = Instr($prova, "tenda")

 Print pos

End

Il risultato in console sarà:
34