VBA - Instr

La funzione InStr restituisce la prima occorrenza di una stringa all'interno di un'altra stringa. La ricerca avviene da sinistra a destra.

Sintassi

InStr([start,]string1,string2[,compare])

Descrizione dei parametri

  • Start- Un parametro opzionale. Specifica la posizione iniziale per la ricerca. La ricerca inizia dalla prima posizione da sinistra a destra.

  • String1- Un parametro obbligatorio. Stringa da cercare.

  • String2- Un parametro obbligatorio. Stringa in cui viene eseguita la ricerca di String1.

  • Compare- Un parametro opzionale. Specifica il confronto di stringhe da utilizzare. Può assumere i seguenti valori menzionati.

    • 0 = vbBinaryCompare - Esegue il confronto binario (impostazione predefinita)

    • 1 = vbTextCompare - Esegue il confronto del testo

Esempio

Aggiungi un pulsante e aggiungi la seguente funzione.

Private Sub Constant_demo_Click() 
   Dim Var As Variant 
   Var = "Microsoft VBScript" 
   MsgBox ("Line 1 : " & InStr(1, Var, "s")) 
   MsgBox ("Line 2 : " & InStr(7, Var, "s")) 
   MsgBox ("Line 3 : " & InStr(1, Var, "f", 1)) 
   MsgBox ("Line 4 : " & InStr(1, Var, "t", 0)) 
   MsgBox ("Line 5 : " & InStr(1, Var, "i")) 
   MsgBox ("Line 6 : " & InStr(7, Var, "i")) 
   MsgBox ("Line 7 : " & InStr(Var, "VB")) 
End Sub

Quando si esegue la funzione di cui sopra, produce il seguente output.

Line 1 : 6
Line 2 : 0
Line 3 : 8
Line 4 : 9
Line 5 : 2
Line 6 : 16
Line 7 : 11