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. expresia șir din care sunt returnate caracterele. Dacă șirul conține Nul, se returnează Nul . |
| pornire | Obligatoriu. Lung. Poziția caracterului din șirul de la care începe porțiunea care va fi preluată. Dacă start este mai mare decât numărul de caractere din șir, Mid întoarce un șir de lungime zero (""). |
| lungime | Opțional. Variant (Long). Numărul de caractere de returnat. Dacă se omite sau dacă există mai puține caractere decât lungimea în text (inclusiv caracterul de la început), se returnează toate caracterele de la începutul șirului până la sfârșitul șirului. |
Observații
Pentru a determina numărul de caractere dintr-un șir, utilizați funcția Len .
Notă
Utilizați funcția MidB cu datele byte dintr-un șir, ca în limbile cu set de caractere dublu-octet. În loc să specifice numărul de caractere, argumentele specifică numărul de byți. Pentru un exemplu de cod care utilizează MidB, consultați al doilea exemplu din subiectul de exemplu.
Exemple de interogare
| expresie | Rezultatele |
|---|---|
| SELECT ProductID, Mid(ProductID,5) AS Expr1 FROM ProductSales; | Returnează "IDProdus" și partea din IDProdus î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 IDProdus începând de la poziția 5 a caracterului, care conține 4 caractere și afișează rezultatele în coloana testMid. |
Exemple VBA
Notă
Exemplele VBA 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, de asemenea, caractere dintr-un șir. Diferența aici este că șirul de intrare este ANSI și lungimea 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"