Returnerar ett värde av datatypen Variant (Sträng) som innehåller ett givet antal tecken från en sträng.
Syntax
MID ( sträng, start [; längd ] )
Syntaxen för funktionen Mid har följande argument:
Argument | Beskrivning |
---|---|
sträng |
Obligatoriskt. stränguttryck från vilka tecken returneras. Om String innehåller null returneras Null . |
start |
Obligatoriskt. Tids. Tecken position i en sträng där den del som ska hämtas börjar. Om Start är större än antalet tecken i strängenreturnerar EXTEXT en tom sträng (""). |
length |
Valfritt. Variant (Långt). Antalet tecken som ska returneras. Om det utelämnas eller om det finns färre än längd tecken i texten (inklusive tecknet vid Start) returneras alla tecken från Start positionen till slutet av strängen. |
Kommentarer
För att bestämma antalet tecken i sträng använder du funktionen Längd.
Obs!: Använd funktionen EXTEXTB med byte data som finns i en sträng, som i teckenuppsättnings språk med dubbel byte. I stället för att ange antal tecken anger argumenten antalet byte. Exempel på kod som använder EXTEXTBfinns i det andra exemplet i det här avsnittet.
Exempel på frågor
Uttryck | Resultat |
---|---|
Välj Produktnr, MID (Produktnr, 5) som Uttr1 från ProductSales; |
Returnerar "Produktnr" och delen av ProductID från tecken position 5 och visar resultatet i kolumn Uttr1. |
Välj Produktnr, MID (Produktnr, 5, 4) som testMid från ProductSales; |
Returnerar "Produktnr" och delen av ProductID från tecken position 5, med fyra tecken och visar resultaten i kolumnen testMid. |
VBA-exempel
Obs!: I 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 Mid 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".
Det andra exemplet använder EXTEXTB och en användardefinierad funktion (MidMbcs) för att även returnera tecken från sträng. Skillnaden är att Indatasträngen är ANSI och att 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"
Obs!: Den här sidan har översatts automatiskt och kan innehålla grammatiska fel och andra felaktigheter. Vår avsikt är att innehållet ska vara användbart för dig. Skulle du vilja svara på om informationen var till hjälp? Här är den engelska artikeln som en referens.