Funcția Mid

Notă: Dorim să vă oferim cel mai recent conținut de ajutor, cât mai rapid posibil, în limba dvs. Această pagină a fost tradusă automatizat și poate conține erori gramaticale sau inexactități. Scopul nostru este ca acest conținut să vă fie util. Vă rugăm să ne spuneți dacă informațiile v-au fost utile, în partea de jos a acestei pagini. Aici se află articolul în limba engleză, ca să îl puteți consulta cu ușurință.

Returnează o valoare variant (șir) care conține un număr specificat de caractere dintr-un șir.

Sintaxă

Mid ( șir, start [Lungime ] )

Sintaxa funcției Mid are următoarele argumente:

Argument

Descriere

șir

Sunt necesare. expresie șir din care sunt returnate de caractere. Dacă șirul conține Null, nule se returnează.

început

Sunt necesare. Lungă. Caracterul poziția în șir la care să fie aplicate partea începe. Dacă Începeți este mai mare decât numărul de caractere din șirul, Mid întoarce un șir de lungime zero ("").

lungime

Opțional. Variant (Lungă). Numărul caracterelor de returnat. Dacă se omite sau dacă există mai puține decât lungimea caractere în caseta text (inclusiv caracterul de la pornirea), toate caracterele din poziția începe la sfârșitul șirul sunt returnate.


Observații

Pentru a determina numărul de caractere din șir, utilizați funcția Len.

Notă: Utilizați funcția MidB cu octet datele conținute într-un șir, la fel ca în limbi setarea caractere dublu-octet. În loc de a specifica numărul de caractere, argumentele specificați un număr de octeți. Pentru exemple de cod care utilizează MidB, consultați al doilea exemplu din exemplul subiect.

Exemplu

Notă: Exemplele care urmează demonstrează utilizarea acestei funcții într-un modul Visual Basic for Applications (VBA). Pentru mai multe informații despre lucrul cu VBA, selectați Referințe pentru dezvoltatori în lista verticală de lângă Căutare și introduceți unul sau mai mulți termeni în caseta de căutare.

Primul exemplu utilizează funcția Mid pentru a returna un număr specificat de caractere dintr-un șir.

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

Al doilea exemplu utilizați MidB și funcții definite de utilizator (MidMbcs) pentru a returna caractere din șirul. Diferența aici este că șirul de intrare este ANSI și durata este în byți.

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"
Extindeți-vă competențele Office
Explorați instruirea
Fiți primul care obține noile caracteristici
Alăturați-vă utilizatorilor Office Insider

Au fost utile aceste informații?

Vă mulțumim pentru feedback!

Vă mulțumim pentru feedback! Se pare că ar fi util să luați legătura cu unul dintre agenții noștri de asistență Office.

×