Palauttaa variantin (merkkijonon), joka sisältää tietyn merkkijonomäärän merkkijonosta.
Syntaksi
Mid(string, alku [, pituus ] )
Mid-funktion syntaksilla on seuraavat argumentit:
| Argumentti | Kuvaus |
|---|---|
| merkkijono | Pakollinen. Merkkijonolauseke, josta merkit palautetaan. Jos merkkijono sisältää Null-arvon, funktio palauttaa Null-arvon . |
| alku | Pakollinen. Pitkä. Se merkin sijainti merkkijonossa , josta otettava osa alkaa. Jos alku on suurempi kuin merkkijonon merkkien määrä, Mid palauttaa tyhjän merkkijonon (""). |
| pituus | Valinnainen. Variantti (Pitkä). Palautettava merkkimäärä. Jos jätetään pois tai jos tekstissä on pituutta vähemmän merkkejä (mukaan lukien alun merkki), kaikki merkit aloituskohdasta merkkijonon loppuun palautetaan. |
Huomautuksia
Määritä merkkijonon merkkimäärä Len-funktion avulla.
Huomautus
Käytä MidB-funktiota, jossa tavutiedot sisältyvät merkkijonoon, kuten kaksitavuisen merkkijoukon kielissä. Argumentit määrittävät merkkimäärän sijaan tavumäärän. Katso MidB-funktion käyttämä esimerkkikoodi esimerkkiaiheen toisesta esimerkistä.
Esimerkkejä kyselyistä
| Lauseke | Tulokset |
|---|---|
| SELECT ProductID, Mid(ProductID,5) AS Expr1 FROM ProductSales; | Palauttaa Tuotetunnus-kentän ja tuotetunnuksen osan merkin 5 kohdasta lähtien ja näyttää tulokset sarakkeessa Lauseke1. |
| SELECT ProductID, Mid(ProductID,5,4) AS testMid FROM ProductSales; | Palauttaa Tuotetunnus-kentän ja tuotetunnuksen neljä merkkiä pituisen osan alkaen merkin sijainnista 5 lähtien. Näyttää tulokset sarakkeessa testMid. |
VBA-esimerkkejä
Huomautus
Seuraavissa VBA-esimerkeissä kuvataan tämän funktion käyttöä Visual Basic for Applications (VBA) -moduulissa. Jos haluat lisätietoja VBA:n käytöstä, valitse Sovelluskehittäjän opasHaku-kentän viereisestä luettelosta ja anna yksi tai useampi hakuehto hakukenttään.
Ensimmäisessä esimerkissä Mid-funktion avulla palautetaan tietty merkkimäärä merkkijonosta.
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".
Toisessa esimerkissä käytetään MidB-funktiota ja käyttäjän määrittämää funktiota (MidMbcs), joka palauttaa myös merkit merkkijonosta. Erona tässä on se, että syötettävä merkkijono on ANSI ja pituus on tavuina.
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"