Mid-funktio

Tärkeää: Tämä on artikkeli on käännetty koneellisesti. Lue vastuuvapauslauseke. Tämän artikkelin englanninkielinen versio on täällä .

Palauttaa variantin (merkkijonon), joka sisältää tietyn merkkijonomää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ä.

Esimerkki

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"

Huomautus: Konekäännöksestä ilmoittava vastuusvapauslauseke: Tämä artikkeli on käännetty tietokonejärjestelmällä, eikä kieliasiantuntija ole muokannut sitä. Microsoft tarjoaa nämä konekäännökset avuksi muille kuin englantia puhuville käyttäjille, jotta he saavat lisätietoja Microsoftin tuotteista, palveluista ja tekniikoista. Koska artikkeli on koneellisesti käännetty, se saattaa sisältää sanasto-, lauseoppi- ja kielioppivirheitä.

Kehitä taitojasi
Tutustu koulutusmateriaaliin
Saat uudet ominaisuudet ensimmäisten joukossa
Liity Office Insider -käyttäjiin

Oliko näistä tiedoista hyötyä?

Kiitos palautteesta!

Kiitos palautteestasi! Näyttää siltä, että Office-tukiedustajamme avusta voi olla sinulle hyötyä.

×