Returnează o valoare variant (șir) care conține un număr specificat de caractere dintr-un șir.
Sintaxă
Mid( string, start [, lungime ] )
Sintaxa funcției Mid are următoarele argumente:
Argument |
Descriere |
șir |
Obligatoriu. expresie șir din care sunt returnate caracterele. Dacă șirul conține Nul, se returnează Nul . |
început |
Obligatoriu. Lung. Poziția caracterului în șir de la care începe partea care va fi luată. Dacă start este mai mare decât numărul de caractere din șir, Mid returnează un șir de lungime zero (""). |
lungime |
Opțional. Variant (Lung). Numărul de caractere de returnat. Dacă sunt omise sau dacă există mai puțin de caractere lungime în text (inclusiv caracterul de la start), se returnează toate caracterele de la poziția de început până la sfârșitul șirului. |
Observații
Pentru a determina numărul de caractere din șir, utilizați funcția Len.
Notă: Utilizați funcția MidB cu datele octet conținute într-un șir, ca în limbile setului de caractere dublu-octet. În loc să specifice numărul de caractere, argumentele specifică numere de octeți. Pentru un exemplu de cod care utilizează MidB, consultați al doilea exemplu din subiectul exemplului.
Exemple de interogare
Expresie |
Rezultatele |
SELECT ProductID, Mid(ProductID,5) AS Expr1 FROM ProductSales; |
Returnează "IDProdus" și partea din ProductID începând de la poziția 5 a caracterului și afișează rezultatele în coloana Expr1. |
SELECT ProductID, Mid(ProductID,5,4) AS testMid FROM ProductSales; |
Returnează "IDProdus" și partea din ProductID începând de la poziția 5 a caracterului, conținând 4 caractere și afișează rezultatele în testMid coloană. |
Exemple VBA
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 utilizează MidB și o funcție definită de utilizator (MidMbcs) pentru a returna și caractere din șir. Diferența aici este că șirul de intrare este ANSI și lungimea este în octeț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"