Palauttaa variantin (merkkijonon), joka sisältää tietyn merkkijonomäärän merkkijonosta.
Syntaksi
Mid(merkkijono, alku [, pituus ] )
Mid-funktion syntaksilla on seuraavat argumentit:
| Argumentti | Kuvaus |
|---|---|
| merkkijono | Pakollinen. merkkijonolauseke, josta merkit palautetaan. Jos merkkijono sisältää tyhjäarvon, funktio palauttaa tyhjäarvon . |
| alku | Pakollinen. Pitkä. Merkkijonon merkkisijainti, josta otettava osa alkaa. Jos alku on suurempi kuin merkkijonon merkkimäärä, Mid palauttaa tyhjän merkkijonon (""). |
| pituus | Valinnainen. Variantti (Pitkä). Palautettava merkkimäärä. Jos se jätetään pois tai tekstissä on vähemmän merkkejä kuin pituus (mukaan lukien alussa oleva merkki), kaikki merkit alkusijainnista merkkijonon loppuun palautetaan. |
Huomautuksia
Voit määrittää merkkijonon merkkien määrän Len-funktiolla.
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ä kyselystä
| Lauseke | Tulokset |
|---|---|
| SELECT ProductID, Mid(ProductID,5) AS Expr1 FROM ProductSales; | Palauttaa Tuotetunnus-arvon ja Tuotetunnus-osan alkaen merkin 5 merkistä ja näyttää tulokset sarakkeessa Lauseke1. |
| SELECT ProductID, Mid(ProductID,5,4) AS testMid FROM ProductSales; | Palauttaa Tuotetunnus-arvon ja Tuotetunnus-osan, joka alkaa merkin 5 merkistä, joka sisältää neljä merkkiä ja näyttää tulokset sarakkeen testMid-sarakkeessa. |
VBA-esimerkkejä
Huomautus
Seuraavat VBA-esimerkit osoittavat tämän funktion käytön 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"