VBA -InString Reverse

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

Sintassi

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

Descrizione dei parametri

  • String1- Un parametro obbligatorio. Stringa da cercare.

  • String2- Un parametro obbligatorio. Stringa in base alla quale viene eseguita la ricerca in String1.

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

  • 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 inserisci la seguente funzione.

Private Sub Constant_demo_Click()
   var = "Microsoft VBScript"
   msgbox("Line 1 : " & InStrRev(var,"s",10))
   msgbox("Line 2 : " & InStrRev(var,"s",7))
   msgbox("Line 3 : " & InStrRev(var,"f",-1,1))
   msgbox("Line 4 : " & InStrRev(var,"t",5))
   msgbox("Line 5 : " & InStrRev(var,"i",7))
   msgbox("Line 6 : " & InStrRev(var,"i",7))
   msgbox("Line 7 : " & InStrRev(var,"VB",1))
End Sub

Dopo aver eseguito lo script precedente, produce il seguente risultato.

Line 1 : 6
Line 2 : 6
Line 3 : 8
Line 4 : 0
Line 5 : 2
Line 6 : 2
Line 7 : 0