Returnerer en variant (streng), der indeholder et angivet antal tegn fra en streng.
Syntaks
Mid( streng, start [, længde ] )
Syntaksen for funktionen Midt har disse argumenter:
Argument |
Beskrivelse |
streng |
Påkrævet. strengudtryk , som tegnene returneres fra. Hvis streng indeholder Null, returneres null . |
start |
Obligatorisk. Lang. Tegnplacering i streng , hvor den del, der skal tages, begynder. Hvis start er større end antallet af tegn i streng, returnerer Mid en streng af længden nul (""). |
længde |
Valgfrit. Variant (Lang). Antal tegn, der skal returneres. Hvis det udelades, eller hvis der er færre end længdetegn i teksten (herunder tegnet ved start), returneres alle tegn fra startpositionen til slutningen af strengen. |
Bemærkninger
For at fastslå antallet af tegn i streng skal du bruge funktionen LÆNGDE.
Bemærk!: Brug funktionen MidtB med bytedata, der er indeholdt i en streng, som på sprog med dobbelt-byte-tegnsæt. 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.
Forespørgselseksempler
Udtryk |
Resultater |
SELECT ProductID, Mid(ProductID,5) AS Udtryk1 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, der indeholder 4 tegn og viser resultaterne i kolonnetestMid. |
VBA-eksempler
Bemærk!: Følgende 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"