VBA -InString Reverse

A função InStrRev retorna a primeira ocorrência de uma string dentro de outra string. A Pesquisa acontece da direita para a esquerda.

Sintaxe

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

Descrição do Parâmetro

String1- Um parâmetro obrigatório. String a ser pesquisada.
String2- Um parâmetro obrigatório. String em relação à qual String1 é pesquisada.
Start- Um parâmetro opcional. Especifica a posição inicial para a pesquisa. A busca começa na primeira posição da direita para a esquerda.
Compare- Um parâmetro opcional. Especifica a comparação de string a ser usada. Pode assumir os seguintes valores mencionados.
- 0 = vbBinaryCompare - executa comparação binária (padrão)
- 1 = vbTextCompare - Executa comparação de texto

Exemplo

Adicione um botão e coloque a seguinte função.

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

Ao executar o script acima, ele produz o seguinte resultado.

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

↰ Previous page