Tämä opetusohjelma osoittaa, kuinka voit käyttää tekstiä oikealta InStrRev VBA -toiminnon avulla…
InStrRev -toiminto
VBA InStrRev -toiminto etsii alijonon sijainnin merkkijonon sisällä. Se palauttaa sijaintien laskennan vasemmalta oikealle, mutta suorittaa haun merkkijonon lopusta alkuun.
VBA InStrRev Etsi alimerkkijono
VBA InStrRev -toimintoa voidaan käyttää alijonon sijainnin löytämiseen merkkijonon sisällä.
| 12345678 | Sub InStrRevExample_1 ()MsgBox InStrRev ("ABCABC", "C") 'Tulos: 6MsgBox InStrRev ("ABCABC", "BC") 'Tulos: 5MsgBox InStrRev ("La La Land", "L") 'Tulos: 7MsgBox InStrRev ("La La Land", "La") Tulos on: 7MsgBox InStrRev ("La La Land", "La") Tulos on: 4MsgBox InStrRev ("La La Land", "M") 'Tulos on: 0End Sub |
VBA InStrRev aloitusasento
VBA InStrRev -toiminto voi aloittaa alijonon haun määritetystä paikasta, joka lasketaan vasemmalta oikealle.
| 12345678 | Osa InStrRevExample_2 ()MsgBox InStrRev ("La La Land", "L") 'Tulos on: 7MsgBox InStrRev ("La La Land", "L", 8) 'Tulos: 7MsgBox InStrRev ("La La Land", "L", 7) 'Tulos: 7MsgBox InStrRev ("La La Land", "L", 6) 'Tulos: 4MsgBox InStrRev ("La La Land", "L", 4) 'Tulos: 4MsgBox InStrRev ("La La Land", "L", 3) 'Tulos: 1End Sub |
VBA -ohjelmointi | Koodigeneraattori toimii sinulle!
VBA InStrRev kirjainkoko
VBA InStrRev -toiminto on oletuksena isot ja pienet kirjaimet. Voit muuttaa tämän käyttäytymisen kirjainkoolla merkityksettömäksi käyttämällä valinnaista parametria. Tässä tapauksessa sinun on myös määritettävä haun aloituskohta.
| 123456789 | Osa InStrRevExample_3 ()'InstrRev on oletuksena isot ja pienet kirjaimetMsgBox InStrRev ("La La Land", "L") 'Tulos on: 7MsgBox InStrRev ("La La Land", "l") 'Tulos on: 0'InstrRev voi tehdä kirjainkoolla merkityksettömiä hakujaMsgBox InStrRev ("La La Land", "L", -1, vbTextCompare) 'Tulos on: 7MsgBox InStrRev ("La La Land", "l", -1, vbTextCompare) 'Tulos on: 7End Sub |
VBA InStrRev Viimeinen tila
VBA InStrRev -funktio löytää merkkijonon viimeisen tilan sijainnin.
| 123456789 | Osa InStrRevExample_4 ()MsgBox InStrRev ("La La Land", "")'Tulos: 6MsgBox InStrRev ("Leonardo da Vinci", "")'Tulos: 12MsgBox InStrRev ("Olkoon voima kanssasi", "")'Tulos: 22End Sub |
VBA InStrRev toiseksi viimeiseksi avaruudeksi
VBA InStrRev -toiminto voi löytää merkkijonon toisen viimeisen tilan sijainnin. Voimme käyttää VBA InStrRev -funktiota löytääksesi merkkijonon viimeisen tilan ja sitten voimme käyttää uudelleen InStrRevia uudella aloituspisteellä löytääksesi toisen viimeisen avaruuden sijainnin
| 12345678910111213 | Osa InStrRevExample_5 ()Dim LastPos kokonaislukunaLastPos = InStrRev ("Olkoon Voima kanssasi", "")MsgBox LastPosin tulos on: 22Dim SecondLastPos kokonaislukunaSecondLastPos = InStrRev ("Voima olkoon kanssasi", "", LastPos - 1)MsgBox SecondLastPosin tulos on: 17'InStrRev aloitti avaruuden etsimisen juuri ennen viimeistä välilyöntiä'Se löytää toiseksi viimeisen tilan, koska se etsii oikealta vasemmalleEnd Sub |
Oletko kyllästynyt etsimään esimerkkejä VBA -koodista? Kokeile AutoMacroa!
VBA InStrRev Palauta tiedostonimi
VBA InStrRev -toiminnolla voidaan helposti palauttaa tiedostonimi merkkijonosta, joka sisältää polun ja tiedostonimen. Käytämme InStrRev -toimintoa toiminnoilla VBA Len ja VBA Right.
VBA Len -funktio palauttaa merkkijonon pituuden:
| 1 | MsgBox Len ("XBCX") Tulos: 4 |
VBA Oikea -funktio palauttaa n merkkiä merkkijonon lopusta:
| 1 | MsgBox Right ("ABCDE", 2) 'Tulos: DE |
Voimme käyttää InStrRev -funktiota löytääksesi viimeisen "\" esiintymän polun nimestä ja käyttämällä Len -funktiota laskemaan tiedostonimen pituuden. Oikea voi sitten purkaa tiedostonimen.
| 12345678910111213141516171819202122232425262728 | Osa InStrRevExample_4 ()Dim PathEx merkkijononaPathEx = "C: \ MyFiles \ Other \ UsefulFile.pdf"Dim TiedostonimiEx merkkijononaTiedostonimiEx = Oikea (PathEx, Len (PathEx) - InStrRev (PathEx, "\"))MsgBox FilenameEx 'Tulos on: UsefulFile.pdf'Hajotetaan tämä koodiMsgBox Len (PathEx)'Tämä on polun nimen pituus (31)MsgBox InStrRev (PathEx, "\")'Tämä on merkkijonon viimeisen \ sijaintiMsgBox Len (PathEx) - InStrRev (PathEx, "\")'Tämä on tiedostonimen pituus (14)'Ero koko pituuden ja viimeisen \ merkkijonon sijainnin välillä'' (31-27 = 14)Tiedämme nyt tiedostonimen pituuden ja tietysti sen lopussa'Oikea toiminto on ihanteellinen tähän tilanteeseenTiedostonimiEx = Oikea (PathEx, Len (PathEx) - InStrRev (PathEx, "\"))End Sub |
