Compartilhar via


Função Mid

Retorna um Variant (cadeia) que contém um número especificado de caracteres de uma cadeia.

Sintaxe

Mid(cadeia, início, [ comprimento ])

A sintaxe da função Mid tem estes argumentos nomeados:

Parte Descrição
cadeia de caracteres Obrigatório. Expressão de cadeia de caracteres da qual os caracteres são retornados. Se a cadeia de caracteres contiver Null, Null será retornado.
início Obrigatório; Long. Posição do caractere na cadeia de caracteres na parte em que inicia a obtenção. Se o início for maior do que o número de caracteres na cadeia de caracteres, Mid retornará uma cadeia de comprimento zero ("").
comprimento Opcional; Variant (Long). Número de caracteres a retornar. Se forem omitidos ou se houver menos caracteres do que o comprimento no texto (incluindo o caractere no início), todos os caracteres da posição de início até o final da cadeia de caracteres são retornados.

Comentários

Para determinar o número de caracteres na cadeia de caracteres, use a função Len.

Observação

Use a função MidB com dados de byte contidos em uma cadeia de caracteres, como linguagem de conjunto de caracteres de bytes duplos. Em vez de especificar o número de caracteres, os argumentos especificam o número de bytes. Para o código de exemplo que usa MidB, consulte o segundo exemplo no tópico exemplo.

Exemplo

O primeiro exemplo usa a função Mid para retornar um número especificado de caracteres de uma cadeia.

Dim MyString, FirstWord, LastWord, MidWords
MyString = "Mid Function Demo"    ' Create text string.
FirstWord = Mid(MyString, 1, 3)    ' Returns "Mid".
LastWord = Mid(MyString, 14, 4)    ' Returns "Demo".
MidWords = Mid(MyString, 5)    ' Returns "Function Demo".

O segundo exemplo usa MidB e uma função definida pelo usuário (MidMbcs) para também retornar caracteres de uma cadeia. Aqui, a diferença é que a cadeia de caracteres da entrada é ANSI e o comprimento está em bytes.

Function MidMbcs(ByVal str as String, start, length)
    MidMbcs = StrConv(MidB(StrConv(str, vbFromUnicode), start, length), vbUnicode)
End Function

Dim MyString
MyString = "AbCdEfG"
' Where "A", "C", "E", and "G" are DBCS and "b", "d", 
' and "f" are SBCS.
MyNewString = Mid(MyString, 3, 4)
' Returns "CdEf"
MyNewString = MidB(MyString, 3, 4)
' Returns "bC"
MyNewString = MidMbcs(MyString, 3, 4)
' Returns "bCd"

Confira também

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.