Returnerer en variant (streng) som inneholder et angitt antall tegn fra en streng.
Syntaks
Mid(streng; start [, lengde ] )
Syntaksen for funksjonen Midt har disse argumentene:
| Argumenter | Beskrivelse |
|---|---|
| streng | Obligatorisk. strenguttrykk tegn returneres fra. Hvis strengen inneholder Null, returneres Null . |
| Start | Obligatorisk. Lang. Tegnplassering i strengen der delen som skal kopieres, starter. Hvis start er større enn antall tegn i strengen, returnerer Mid en tom streng (""). |
| lengde | Valgfritt. Variant (Langt). Antall tegn som skal returneres. Hvis de er utelatt eller det er mindre enn lengde tegn i teksten (inkludert tegnet i starten), returneres alle tegn fra startposisjonen til slutten av strengen. |
Merknader
Hvis du vil bestemme antall tegn i strengen, bruker du Lengde-funksjonen .
Obs!
Bruk MidB-funksjonen med byte-data som finnes i en streng, som i språk med dobbeltbyte-tegnsett. I stedet for å angi antall tegn, angir argumentene antall byte. Hvis du vil se eksempelkode som bruker MellomB, kan du se det andre eksemplet i eksempelemnet.
Eksempler på spørringer
| Uttrykk | Resultater |
|---|---|
| SELECT ProductID, Mid(ProductID,5) AS Expr1 FROM ProductSales; | Returnerer ProduktID og delen av ProduktID fra tegnposisjon 5, og viser resultatet i kolonnen Uttr1. |
| SELECT ProductID, Mid(ProductID,5,4) AS testMid FROM ProductSales; | Returnerer «ProduktID» og delen av ProduktID som starter fra tegnposisjon 5, inneholder 4 tegn og viser resultatene i kolonnen testMidt. |
VBA-eksempler
Obs!
VBA-eksemplene nedenfor viser 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 bestemt 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"