Función Medio

Importante:  Este artículo se ha traducido con traducción automática; vea la declinación de responsabilidades. Para su referencia, puede encontrar la versión en inglés de este artículo aquí.

Devuelve un valor de tipo Variant (String) que contiene un número especificado de caracteres de una cadena.

Sintaxis

MED ( cadena, inicio [largo ] )

La sintaxis de la función Mid tiene los siguientes argumentos:

Argumento

Descripción

cadena

Obligatorio. expresión de cadena desde la que se devuelven caracteres. Si la cadena contiene un valor nulo, se devuelve Null .

Inicio

Obligatorio. Largo. Posición del carácter de cadena en la que comienza el elemento que se realicen. Si start es mayor que el número de caracteres de cadena, extrae devuelve una cadena de longitud cero ("").

longitud

Opcional. Variant (Long). Número de caracteres que se devuelven. Si se omite o si existen menos de caracteres de longitud en el texto (incluido el carácter en Inicio), se devuelven todos los caracteres desde la posición de Inicio hasta el final de la cadena.


Comentarios

Para determinar el número de caracteres de cadena, utilice la función Len .

Nota: Use la función EXTRAEB con datos byte incluidos en una cadena, como en idiomas de conjunto de caracteres de doble byte. En lugar de especificar el número de caracteres, los argumentos especifican los números de bytes. Código de ejemplo que usa EXTRAEB, vea el segundo ejemplo en el tema de ejemplo.

Ejemplo

Nota: Los ejemplos siguientes muestran el uso de esta función en un Visual Basic para aplicaciones (VBA). Para obtener más información sobre cómo trabajar con VBA, seleccione la Referencia del programador en la lista desplegable situada junto a Buscar y escriba uno o varios términos en el cuadro de búsqueda.

El primer ejemplo usa la función Mid para devolver un número especificado de caracteres de una cadena.

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".

En el segundo ejemplo use EXTRAEB y una función definida por el usuario (MidMbcs) para devolver también los caracteres de cadena. La diferencia es que la cadena de entrada es ANSI y la longitud es en 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"

Nota: Declinación de responsabilidades de traducción automática: Este artículo se ha traducido con un sistema informático sin intervención humana. Microsoft ofrece estas traducciones automáticas para que los hablantes de otros idiomas distintos del inglés puedan disfrutar del contenido sobre los productos, los servicios y las tecnologías de Microsoft. Puesto que este artículo se ha traducido con traducción automática, es posible que contenga errores de vocabulario, sintaxis o gramática.

Ampliar sus conocimientos
Explorar los cursos
Obtener nuevas características primero
Únase a los participantes de Office Insider

¿Le ha sido útil esta información?

¡Gracias por sus comentarios!

Gracias por sus comentarios. Quizá le interese ponerse en contacto con uno de nuestros agentes de soporte de Office.

×