Funkce InStrRev [VBA]
Vrátí pozici řetězce v jiném řetězci, přičemž začne z pravé strany řetězce.
Funkce InstrRev vrátí pozici, na které nalezne směrem zprava shodný řetězec. Pokud řetězec nenalezne, vrátí funkce 0.
InStrRev (Text1 As String, Text2 As String [,Začátek As Long] [, Porovnání As Integer])
Long
Text1: Řetězec, který chcete prohledat.
Text2: Řetězec, který chcete najít.
Začátek: Nepovinný číselný výraz, který označuje směrem zleva pozici v řetězci, kde začíná hledání podřetězce. Pokud tento parametr vynecháte, hledání začne na posledním znaku řetězce. Maximální povolená hodnota je 65535.
Porovnání: Nepovinný číselný výraz, který určuje druh porovnání. Hodnota tohoto parametru může být
1: Výchozí hodnota 1 určuje porovnání textů, u kterého není rozlišována velikost písmen.
0: Hodnota 0 určuje binární porovnání, u kterého je rozlišována velikost písmen.
Chcete-li se vyhnout chybám, nenastavujte parametr Porovnání, pokud vynecháte první parametr.
Sub ExamplePosition
Dim sInput As String
Dim iPos As Integer
sInput = "Kniha leží na stole"
iPos = InStrRev(sInput,"kniha",10,1) ' Vrátí 1, hledání nerozlišuje velikost písmen
Print iPos
iPos = InStrRev(sInput,"kniha",10,0) ' Vrátí 0, hledání rozlišuje velikost písmen
Print iPos
End Sub