Palauttaa Variantin (merkkijono), joka sisältää tietyn merkkimäärän merkkijonosta.
Syntaksi
Mid ( merkkijono, aloitus [, 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. |
|
aloitus |
Pakollinen. Pitkä. Merkin sijainti merkkijonossa, josta otettava osa alkaa. Jos aloitus-arvo on suurempi kuin merkkimäärä merkkijonossa, Mid-funktio palauttaa pituudeltaan tyhjän merkkijonon (""). |
|
pituus |
Valinnainen. Variantti (Pitkä). Palautettava merkkimäärä. Jos se jätetään pois tai jos tekstissä on vähemmän merkkejä kuin pituus (mukaan lukien aloitus-sijainnin merkki), kaikki merkit aloitus-sijainnista merkkijonon loppuun palautetaan. |
Huomautuksia
Voit määrittää merkkijonossa olevien merkkien määrän käyttämällä Len-funktiota.
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: Seuraavissa esimerkeissä kerrotaan, kuinka tätä funktiota käytetää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"
