Funció InStrRev [VBA]

Retorna la posició d'una cadena dins una altra cadena, començant pel costat dret.

Icona d'avís

Aquesta funció o constant s'activa amb l'expressió Opció VBASupport 1 situada abans del codi de programació executable en un mòdul.


La funció InStrRev retorna la posició a la quan s'ha trobat la coincidència, des de la dreta. Si no s'ha trobat la cadena, la funció retorna 0.

Sintaxi:

InStrRev (Text1 As String, Text2 As String [,Start As Long] [, Compare As Integer])

Valor de retorn:

Long

Paràmetres:

Text1: qualsevol expressió de cadena que vulgueu cercar.

Text2: qualsevol expressió de cadena que vulgueu cercar.

Start: Optional numeric expression that marks the position from the left in a string where the search for the specified substring starts. If you omit this parameter, the search starts at the last character of the string. The maximum allowed value is 65535.

Compare: Optional numeric expression that defines the type of comparison. The value of this parameter can be

1: el valor predeterminat 1 estableix una comparació de text que no distingeix entre majúscules i minúscules.

0: el valor 0 estableix una comparació binària que distingeix entre majúscules i minúscules.

Per a evitar un error d'execució, no establiu el paràmetre Comparar si el primer paràmetre de retorn s'ha omès.

Codis d'error

5 La crida al procediment no és vàlida

Exemple:

Sub ExamplePosition

Dim sInput As String

Dim iPos As Integer

 sInput = "El llibre és a la taula"

 iPos = InStrRev(sInput,"el",10,1) ' Retorna 1, la cerca no distingeix entre majúscules i minúscules

 Print iPos 

 iPos = InStrRev(sInput,"el",10,0) ' Retorna 0, la cerca sí que distingeix entre majúscules i minúscules

 Print iPos

End Sub