Funktionen MID

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.

Utöka dina Office-kunskaper
Utforska utbildning
Få nya funktioner först
Anslut till Office Insiders

Hade du nytta av den här informationen?

Tack för din feedback!

Tack för din feedback! Det låter som att det kan vara bra att koppla dig till en av våra Office-supportrepresentanter.

×