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!: VBA-eksemplene nedenfor demonstrerer bruken av denne funksjonen i en Visual Basic for Applications (VBA)-modul. 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"
