Função Mid

Importante :  Este artigo foi traduzido por um sistema de tradução automática, leia o aviso de isenção de responsabilidade. Para sua referência, veja a versão em inglês deste artigo aqui.

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

Sintaxe

Mid ( sequência, início [comprimento ] )

A sintaxe da função Mid possui os seguintes argumentos:

Argumento

Descrição

cadeia de caracteres

Necessário. string expression da qual caracteres são retornados. Se a cadeia de caracteres contiver Nulo, Nulo será retornado.

Iniciar

Necessário. Longas. Posição do caractere na cadeia de caracteres na qual a parte a ser tomada começa. Se Iniciar for maior que o número de caracteres na cadeia, Mid retornará uma cadeia de caracteres de comprimento zero ("").

comprimento

Opcional. Variant (Longo). Número de caracteres a ser retornado. Se for omitido, ou se houver menos de caracteres de comprimento no texto (incluindo o caractere em start), todos os caracteres da posição start 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 ext com dados de byte contidos em uma cadeia de caracteres, como em idiomas de conjunto de caracteres de dois bytes. Em vez de especificar o número de caracteres, os argumentos especificam números de bytes. Para o código de exemplo que usa ext, consulte o segundo exemplo no tópico de exemplo.

Exemplo

Observação : Exemplos a seguir demonstram o uso dessa função em um Visual Basic para módulo Applications (VBA). Para obter mais informações sobre como trabalhar com o VBA, selecione a Referência do desenvolvedor na lista suspensa ao lado de pesquisa e insira um ou mais termos na caixa de pesquisa.

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 use ext e uma função definida pelo usuário (MidMbcs) para retornar também caracteres da cadeia de caracteres. A diferença aqui é que a cadeia de entrada é ANSI e o comprimento 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"

Observação : Aviso de Isenção de Tradução Automática: Este artigo foi traduzido por computador, sem intervenção humana. A Microsoft oferece essas traduções automáticas para ajudar as pessoas que não falam inglês a aproveitar os textos escritos sobre produtos, serviços e tecnologias da Microsoft. Como este artigo foi traduzido automaticamente, é possível que contenha erros de vocabulário, sintaxe ou gramática.

Expanda suas habilidades
Explore o treinamento
Obtenha novos recursos primeiro
Ingressar no Office Insider

Essas informações foram úteis?

Obrigado por seus comentários!

Agradecemos pelos seus comentários! Parece que pode ser útil conectar você a um de nossos agentes de suporte do Office.

×