quote:

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

quote:

Função InStr

Retorna uma Variant (Long) que especifica a posição da primeira ocorrência de uma seqüência de caracteres dentro de outra.

Sintaxe

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

A sintaxe da função InStr tem os seguintes argumentos:

Parte Descrição
start Opcional. Expressão numérica que define a posição inicial de cada pesquisa. Se omitido, a pesquisa iniciará na posição do primeiro caractere. Se start contiver Null, ocorrerá um erro. O argumento start será necessário, se compare for especificado.
string1 Obrigatória. Expressão de seqüência sendo pesquisada.
string2 Obrigatória. Expressão de seqüência de caracteres procurada.
compare Opcional. Especifica o tipo de comparação de seqüência de caracteres. Se compare for Null, ocorrerá um erro. Se compare for omitido, a configuração Option Compare determinará o tipo de comparação. Especifique um LCID (LocaleID) válido para usar regras específicas da localidade na comparação.

Definições

As configurações do argumento compare são as seguintes:

Constante Valor Descrição
vbUseCompareOption -1 Executa uma comparação usando a configuração da instrução Option Compare.
vbBinaryCompare 0 Executa uma comparação binária.
vbTextCompare 1 Executa uma comparação textual.
vbDatabaseCompare 2 Somente Microsoft Access. Efetua uma comparação, com base nas informações existentes no banco de dados.



Valores retornados

Se A InStr retornará
string1 tiver comprimento zero 0
string1 for Null Null
string2 tiver comprimento zero start
string2 for Null Null
string2 não for encontrado 0
string2 for encontrado dentro de string1 A posição em que a correspondência foi encontrada
start > string2 0



Comentários

A função InStrB é usada com os dados de bytes contidos em uma seqüência de caracteres. Em vez de retornar a posição de caractere da primeira ocorrência de uma seqüência de caracteres dentro de outra, InStrB retorna a posição de byte.


Exemplo da função InStr
Este exemplo usa a função InStr para retornar a posição da primeira ocorrência de uma seqüência de caracteres dentro de outra.

Dim SearchString, SearchChar, MyPos
SearchString ="XXpXXpXXPXXP" ' Seqüência de caracteres a ser pesquisada.
SearchChar = "P" ' Procurar por "P".

' Uma comparação de texto iniciando na posição 4. Retorna 6.
MyPos = Instr(4, SearchString, SearchChar, 1)

' Uma comparação binária iniciando na posição 1. Retorna 9.
MyPos = Instr(1, SearchString, SearchChar, 0)

' A comparação é binária, como padrão (o último argumento é omitido).
MyPos = Instr(SearchString, SearchChar) ' Retorna 9.

MyPos = Instr(1, SearchString, "W") ' Retorna 0.

Dim cnt1 As Integer
Dim cnt2 As Integer
Dim str1 As String
Dim str2 As String
Dim SuaString As String

    SuaString = "C:\Pasta0\Pasta1\Pasta2\SeuBanco.mdb"
    cnt2 = 1
    cnt1 = InStr(cnt2, "\", SuaString) ' Dá a posição do primeiro "\"
    str1 = Mid(SuaString, 1, cnt1 -1) ' Pega o C:
    cnt2 = cnt1 + 1 ' Primeira posição depois do primeiro "\"
    cnt1 = InStr(cnt2, "\", SuaString) ' Pega a posição do segundo "\"
    str2 = Mid(SuaString, cnt2 +1, cnt1 - 1) ' Pega o Pasta0
    ... Dá para melhorar bastante

quote:

SearchString ="XXpXXpXXPXXP" ' Seqüência de caracteres a ser pesquisada.
SearchChar = "P" ' Procurar por "P".

MyPos = Instr(1, SearchString, SearchChar, 0)Retorna 9.