Função Meio

Nota: Queremos fornecer-lhe os conteúdos de ajuda mais recentes o mais rapidamente possível e no seu idioma. Esta página foi traduzida automaticamente e pode conter erros gramaticais ou imprecisões. O nosso objetivo é que estes conteúdos lhe sejam úteis. Pode informar-nos se as informações foram úteis no final desta página? Eis o artigo em inglês para referência.

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

Sintaxe

Seg. texto ( cadeia, início [comprimento ] )

A sintaxe da função seg. texto tem os seguintes argumentos:

Argumento

Descrição

cadeia

Obrigatório. expressão de cadeia a partir do qual carateres são devolvidos. Se a cadeia contiver Null, é devolvido Nulo .

Iniciar

Obrigatório. Por extenso. Posição do carácter na cadeia que começa a peça para ser encaminhado. Se Iniciar for maior que o número de carateres numa cadeia, seg. texto devolve uma cadeia de comprimento zero ("").

comprimento

Opcional. Variante (Longo). Número de carateres a devolver. Se for omitido, ou se existirem menos de carateres de comprimento no texto (incluindo o caráter no Iniciar), são devolvidos todos os carateres da posição Iniciar para o fim da cadeia.


Comentários

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

Nota: Utilize a função seg. TEXTOB com dados de byte contidos numa cadeia, como nos idiomas de conjunto de carateres de byte duplo. Em vez de especificar o número de carateres, os argumentos especificam números de bytes. Código de exemplo que utiliza seg. TEXTOB, consulte o segundo exemplo no tópico de exemplo.

Exemplo

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 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 utiliza a função seg. texto para devolver um número especificado de carateres 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 utilize seg. TEXTOB e uma função definida pelo utilizador (MidMbcs) para devolver também carateres da cadeia. 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"
Aumente os seus conhecimentos do Office
Explore as formações
Seja o primeiro a obter novas funcionalidades
Adira ao Office Insider

As informações foram úteis?

Obrigado pelos seus comentários!

Obrigado pelo seu feedback! Parece que poderá ser benéfico reencaminhá-lo para um dos nossos agentes de suporte do Office.

×