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 |
Obligatoriu. expresie șir din care caractere sunt returnate. Dacă șir conține NULL, se returnează Null . |
|
început |
Obligatoriu. Mult. Poziția caracterului în șir la care începe partea de 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ă este omis sau dacă există mai puțin de lungimea caracterelor în text (inclusiv caracterul la început), toate caracterele din poziția de început până la sfârșitul șirului 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 date octet conținute într-un șir, ca în limbile set de caractere pe două octeți. În loc să specificați numărul de caractere, argumentele specifică numerele de octeți. Pentru exemple de cod care utilizează MidB, consultați al doilea exemplu în subiectul exemplu.
Exemple de interogare
|
Expresie |
Rezultatele |
|
Selectați ProductID, MID (ProductID, 5) ca Expr1 din ProductSales; |
Returnează "ProductID" și partea din ProductID începând de la poziția caracterului 5 și afișează rezultatele în coloana Expr1. |
|
Selectați ProductID, MID (ProductID, 5, 4) ca testMid din ProductSales; |
Returnează "ProductID" și partea din ProductID începând de la poziția de caracter 5, care conține 4 caractere și afișează rezultatele în coloana testMid. |
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 caracterele din șir. Diferența este că șirul de intrare este ANSI, iar 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"
