Função «Mid»

Devolve a parte especificada de uma expressão de cadeia de caracteres (função Mid) ou substitui essa parte de uma expressão de cadeia de caracteres por outra cadeia de caracteres (sub-rotina Mid).

Mid(string As String, Start As Long [, Length As Long]) As String
Mid([ByRef] string As String, Start As Long, [Length As Long], Text As String)

Cadeia (só por função)

string: Qualquer expressão de cadeia de caracteres que pretenda extrair (função Mid). Qualquer nome de variável de texto que pretenda modificar (sub-rotina Mid).

Início: Expressão numérica que indica a posição do carácter na cadeia de caracteres onde começa a parte da cadeia que pretende substituir ou devolver. O valor mínimo permitido é 1. O valor máximo permitido é 2 147 483 648.

Comprimento: Expressão numérica que devolve o número de caracteres que pretende substituir ou devolver. O valor máximo permitido é 2 147 483 648.

Se o parâmetro Comprimento na Função Mid estiver omitido, são devolvidos todos os caracteres na expressão desde o início até fim da cadeia.

Se o parâmetro Length na sub-rotina Mid for inferior ao comprimento do texto que pretende substituir, o texto é reduzido ao comprimento especificado.

Texto: A cadeia de caracteres que substituirá a expressão de cadeia de caracteres (sub-rotina Mid).

Sub ExampleMid_Function_and_Statement
  text = "This is the original Text"
func1:
  MsgBox Mid(text, 13, 8)   ' devolve a palavra «original»
  Texto do MsgBox               ' o texto não é alterado
stmt1:
  Mid(text, 13, 8, "new")
  texto MsgBox               ' devolve «Este é o novo texto»
func2:
  MsgBox Mid(start:=10, string:="The quick brown fox ..") ' mostra " brown fox .."
stmt2:
  Mid text, 9, 12, "a new Phrase"
  texto do MsgBox               ' devolve «Esta é uma nova frase»
End Sub