Returnerer en variant (streng) som inneholder et angitt antall tegn fra en streng.
Syntaks
Mid( streng, start [, lengde ] )
Syntaksen for mid-funksjonen har følgende argumenter:
|
Argument |
Beskrivelse |
|
streng |
Obligatorisk. strenguttrykk tegn returneres fra. Hvis strengen inneholder Null, returneres Null . |
|
start |
Obligatorisk. Lang. Tegnplassering i streng der delen som skal tas begynner. Hvis start er større enn antall tegn i streng, returnerer Mid en tom streng (""). |
|
lengde |
Valgfritt. Variant (Langt). Antall tegn som skal returneres. Hvis den utelates eller det er færre enn lengdetegn i teksten (inkludert tegnet ved start), returneres alle tegn fra startposisjonen til slutten av strengen. |
Kommentarer
Bruk funksjonen Lengde til å bestemme antall tegn i strengen.
Obs!: Bruk MidB-funksjonen med bytedata i en streng, som i språk for dobbelt byte-tegnsett. I stedet for å angi antall tegn, angir argumentene antall byte. Hvis du vil se eksempelkoden som bruker MidB, kan du se det andre eksemplet i eksempelemnet.
Spørringseksempler
|
Expression |
Resultater |
|
SELECT ProductID, Mid(ProductID,5) AS Expr1 FROM ProductSales; |
Returnerer "ProductID" og den delen av ProductID som starter fra tegnposisjon 5, og viser resultatene i kolonnen Uttrykk1. |
|
SELECT ProductID, Mid(ProductID,5,4) AS testMid FROM ProductSales; |
Returnerer "ProductID" og den delen av ProductID som starter fra tegnposisjon 5, som inneholder fire tegn og viser resultatene i kolonnetestMid. |
VBA-eksempler
Obs!: I eksemplene nedenfor vises bruken av denne funksjonen i en VBA-modul (Visual Basic for Applications). Hvis du vil ha mer informasjon om hvordan du arbeider med VBA, velger du Utviklerreferanse fra rullegardinlisten ved siden av Søk og skriver inn ett eller flere søkeord i søkeboksen.
Det første eksemplet bruker Mid-funksjonen til å returnere et angitt antall 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".
Det andre eksemplet bruker MidB og en brukerdefinert funksjon (MidMbcs) til også å returnere tegn fra streng. Forskjellen her er at inndatastrengen er ANSI og lengden 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"
