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

Sintaxe

Meio (corda, início [comprimento]

A sintaxe da função média tem estes argumentos:

Argumento

Descrição

cadeia

Obrigatório. expressão de cadeia de onde os caracteres são devolvidos. Se a corda contiver Null, Null é devolvido.

começar

Obrigatório. Longo. Posição do caráter na corda na qual a parte a ser tomada começa. Se o arranque for maior do que o número de caracteres em corda,o Meio devolve uma corda de comprimento zero ("").

comprimento

Opcional. Variante (Longo). Número de carateres a devolver. Se omitidos ou se houver menos caracteres de comprimento no texto (incluindo o personagem no início),todos os caracteres da posição inicial até ao fim da cadeia são devolvidos.


Comentários

Para determinar o número de carateres na cadeia, utilize a função Núm. carat.

Nota: Utilize a função MidB com dados byte contidos numa cadeia, como em linguagens de caracteres de duplo byte. Em vez de especificar o número de caracteres, os argumentos especificam números de bytes. Para o código de amostra que utiliza o MidB,consulte o segundo exemplo no tópico de exemplo.

Exemplos de consulta

Expressão

Resultados

SELECT ProductID, Mid (ProductID,5) AS Expr1 FROM ProductSales;

Devolve o "ProductID" e a parte do ProductID a partir da posição de carácter 5 e apresenta os resultados na coluna Expr1.

SELECT ProductID, Mid (ProductID,5,4) AS TESTMid FROM ProductSales;

Devolve o "ProductID" e a parte do ProductID a partir da posição de carácter 5, contendo 4 caracteres e apresenta os resultados no testMid da coluna.

Exemplos de VBA

Nota: Os exemplos seguintes demonstram a utilização desta função no módulo VBA (Visual Basic for Applications). Para obter mais informações sobre como trabalhar com o VBA, selecione Referência para Programadores na lista pendente junto a Procurar e introduza um ou mais termos na caixa de pesquisa.

O primeiro exemplo usa a função Média para devolver um número especificado de caracteres de uma corda.

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 utiliza o MidB e uma função definida pelo utilizador(MidMbcs)para também devolver caracteres da cadeia. A diferença aqui é que a cadeia de 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"

As funções de cadeia e como utilizá-las

Precisa de mais ajuda?

Aumente os seus conhecimentos
Explore as formações
Seja o primeiro a obter novas funcionalidades
Aderir ao Microsoft Office insiders

As informações foram úteis?

Quão satisfeito está com a qualidade do idioma?
O que afetou a sua experiência?

Obrigado pelo seu feedback!

×