Returnerer en variant (streng), der indeholder et angivet antal tegn fra en streng.
Syntaks
Mid(streng, start [, længde ] )
Syntaksen for funktionen Mid har disse argumenter:
| Argument | Beskrivelse |
|---|---|
| streng | Påkrævet. Strengudtryk, som tegn returneres fra. Hvis strengen indeholder null, returneres null . |
| start | Påkrævet. Lang. Tegnposition i strengen , hvor den del, der skal returneres, begynder. Hvis start er større end antallet af tegn i strengen, returnerer Mid en streng med en længde på nul (""). |
| længde | Valgfrit. Variant (Lang). Antal tegn, der skal returneres. Hvis dette udelades, eller der er færre end tegn i teksten (inklusive tegnet i starten), returneres alle tegn fra startpositionen til slutningen af strengen. |
Bemærkninger
Brug funktionen Længde til at bestemme antallet af tegn i strengen.
Bemærk
Brug funktionen MidB med bytedata, der er indeholdt i en streng, som i dobbeltbyte-tegnsætsprog. I stedet for at angive antallet af tegn, angiver argumenterne antallet af byte. For eksempelkode, der bruger MidB, skal du se det andet eksempel i eksempelemnet.
Eksempler på forespørgsel
| Udtryk | Resultater |
|---|---|
| SELECT ProductID, Mid(ProductID,5) AS Expr1 FROM ProductSales; | Returnerer "Produkt-id" og den del af Produkt-id, der starter fra tegnposition 5, og viser resultaterne i kolonnen Udtryk1. |
| SELECT ProductID, Mid(ProductID,5,4) AS testMid FROM ProductSales; | Returnerer "Produkt-id" og den del af Produkt-id, der starter fra tegnposition 5, indeholder 4 tegn og viser resultaterne i kolonnen testMid. |
VBA-eksempler
Bemærk
Følgende VBA-eksempler demonstrerer brugen af denne funktion i et VBA-modul (Visual Basic for Applications). Hvis du vil have mere at vide om at arbejde med VBA, skal du vælge Udviklerreference på rullelisten ud for Søg og skrive ét eller flere ord i søgefeltet.
I det første eksempel bruges funktionen Mid til at returnere et angivet antal tegn fra en streng.
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".
I det andet eksempel bruges MidB og en brugerdefineret funktion (MidMbcs) til også at returnere tegn fra streng. Forskellen her er, at inputstrengen er ANSI, og længden er i byte.
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"