Funció InStrRev [VBA]

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

warning

Aquesta constant, funció o objecte s'activa mitjançant l'expressió Option VBASupport 1, col·locada abans del codi executable del programa 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 (StringCheck As String, StringMatch As String [,Start As Long] [, Compare As Integer])

Valor de retorn:

Long

Paràmetres:

StringCheck: The string expression that you want to search.

StringMatch: The string expression that you want to search for.

Inici: una expressió numèrica opcional que marca la posició a partir de l'esquerra en una cadena on comença la cerca de la subcadena especificada. Si ometeu aquest paràmetre, la cerca comença a l'últim caràcter de la cadena. El valor màxim permès és 65535.

Compara expressió numèrica opcional que defineix el tipus de comparació. El valor d'aquest paràmetre pot ser

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.

To avoid a run-time error, do not set the Compare parameter if the first return parameter is omitted.

Codis d'error

5 La crida al procediment no és vàlida

Exemple:


Sub ExamplePosition
Dim sInput As String
Dim iPos As Integer
 sInput = "The book is on the table"
 iPos = InStrRev(sInput,"the",10,1) ' Returns 1, search is case-insensitive
 Print iPos 
 iPos = InStrRev(sInput,"the",10,0) ' Returns 0, search is case-sensitive
 Print iPos
End Sub

Ens cal la vostra ajuda!