Returnerar ett värde av datatypen Variant (Sträng) som innehåller ett givet antal tecken från en sträng.
Syntax
MITT(sträng; start [, längd ] )
Syntaxen för funktionen EXTEXT har följande argument:
| Argument | Beskrivning |
|---|---|
| sträng | Obligatoriskt. Stränguttryck som tecknen returneras från. Om strängen innehåller Null, returneras Null . |
| start | Obligatoriskt. Lång. Den teckenposition i strängen där den sträng som ska tas börjar. Om start är större än antalet tecken i strängen returnerar Mid en sträng med längden noll (""). |
| length | Valfritt. Variant (lång). Antalet tecken som ska returneras. Om argumentet utelämnas eller om det finns färre tecken än längd i texten (inklusive tecknet i början), returneras alla tecken från startpositionen till slutet av strängen. |
Kommentarer
Om du vill bestämma antalet tecken i strängen använder du funktionen LÄNGD .
Obs
Använd funktionen MITTB med bytedata som finns i en sträng, som i teckenuppsättningsspråk med dubbla byte. I stället för att ange antalet tecken anger argumenten antalet byte. Exempelkod som använder MidB finns i det andra exemplet i exempelavsnittet.
Exempel på frågor
| Uttryck | Resultat |
|---|---|
| SELECT ProductID, Mid(ProductID,5) AS Expr1 FROM ProductSales; | Returnerar "Produktnr" och den del av Produktnr som börjar från teckenposition 5 och visar resultatet i kolumnen Uttr1. |
| SELECT ProductID, Mid(ProductID,5,4) AS testMid FROM ProductSales; | Returnerar "Produktnr" och den del av Produktnr som börjar från teckenposition 5, som innehåller 4 tecken och visar resultatet i kolumnen testMid. |
VBA-exempel
Obs
I VBA-exemplen nedan visar vi hur du använder den här funktionen i en Visual Basic for Applications-modul (VBA). Om du vill läsa mer om hur man använder VBA, kan du välja Info för utvecklare i listrutan bredvid Sök och sedan skriva en eller flera söktermer i sökrutan.
I det första exemplet används funktionen MITT för att returnera ett angivet antal tecken från en sträng.
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 andra exemplet används MidB och en användardefinierad funktion (MidMbcs) för att även returnera tecken från strängen. Skillnaden här är att indatasträngen är ANSI och längden är 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"