See õpetus näitab, kuidas kasutada funktsiooni InStrRev VBA, et leida teksti paremalt …
Funktsioon InStrRev
Funktsioon VBA InStrRev otsib stringi sees alamstringi asukohta. See tagastab positsioonide loendamise vasakult paremale, kuid otsib stringi lõpust algusesse.
VBA InStrRev Otsi alamstringi
Funktsiooni VBA InStrRev saab kasutada stringi sees oleva alamstringi asukoha leidmiseks.
12345678 | Sub InStrRevExample_1 ()MsgBox InStrRev ("ABCABC", "C") 'Tulemus on: 6MsgBox InStrRev ("ABCABC", "BC") 'Tulemus on: 5MsgBox InStrRev ("La La Land", "L") 'Tulemus on: 7MsgBox InStrRev ("La La Land", "La") Tulemus on: 7MsgBox InStrRev ("La La Land", "La") Tulemus on: 4MsgBox InStrRev ("La La Land", "M") 'tulemus on: 0End Sub |
VBA InStrRev lähtepositsioon
Funktsioon VBA InStrRev võib alustada alamstringi otsimist määratud positsioonilt, mis loetakse vasakult paremale.
12345678 | Sub InStrRevExample_2 ()MsgBox InStrRev ("La La Land", "L") 'Tulemus on: 7MsgBox InStrRev ("La La Land", "L", 8) 'Tulemus: 7MsgBox InStrRev ("La La Land", "L", 7) 'Tulemus on: 7MsgBox InStrRev ("La La Land", "L", 6) 'Tulemus: 4MsgBox InStrRev ("La La Land", "L", 4) 'Tulemus on: 4MsgBox InStrRev ("La La Land", "L", 3) 'Tulemus on: 1End Sub |
VBA programmeerimine | Koodigeneraator töötab teie jaoks!
VBA InStrRev juhtumitundlikkus
Funktsioon VBA InStrRev on vaikimisi tõstutundlik. Valikulise parameetri abil saate selle käitumise muuta tõstutundetuks. Sellisel juhul peate määratlema ka otsingu lähtepositsiooni.
123456789 | Sub InStrRevExample_3 ()"InstrRev on vaikimisi tõstutundlikMsgBox InStrRev ("La La Land", "L") 'Tulemus on: 7MsgBox InStrRev ("La La Land", "l") 'Tulemus: 0„InstrRev saab teha suurtähti mittetundlikke otsinguidMsgBox InStrRev ("La La Land", "L", -1, vbTextCompare) 'Tulemus on: 7MsgBox InStrRev ("La La Land", "l", -1, vbTextCompare) 'Tulemus on: 7End Sub |
VBA InStrRev viimane ruum
Funktsioon VBA InStrRev võib leida stringi viimase tühiku asukoha.
123456789 | Sub InStrRevExample_4 ()MsgBox InStrRev ("La La Land", "")'Tulemus: 6MsgBox InStrRev ("Leonardo da Vinci", "")"Tulemus: 12MsgBox InStrRev ("Olgu jõud teiega", "")"Tulemus: 22End Sub |
VBA InStrRev teine kuni viimane ruum
Funktsioon VBA InStrRev võib leida stringi teise kuni viimase tühiku asukoha. Funktsiooni VBA InStrRev abil saame leida stringi viimase tühiku ja seejärel saame uuesti kasutada InStrRev uue lähtepunktiga, et leida teise kuni viimase tühiku asukoht
12345678910111213 | Sub InStrRevExample_5 ()Dim LastPos täisarvunaLastPos = InStrRev ("Olgu jõud teiega", "")MsgBox LastPosi tulemus on: 22Dim SecondLastPos täisarvunaSecondLastPos = InStrRev ("Olgu jõud teiega", "", LastPos - 1)MsgBox SecondLastPosi tulemus on: 17„InStrRev alustas ruumi otsimist vahetult enne viimast tühikut"See leiab ruumi viimase kuni viimase, sest otsib paremalt vasakuleEnd Sub |
Kas olete väsinud VBA koodinäidete otsimisest? Proovige AutoMacrot!
VBA InStrRev Tagastab failinime
Funktsiooni VBA InStrRev saab kasutada failinime hõlpsaks tagastamiseks stringist, mis sisaldab teed ja failinime. Kasutame funktsiooni InStrRev funktsioonidega VBA Len ja VBA Right.
Funktsioon VBA Len tagastab stringi pikkuse:
1 | MsgBox Len ("XBCX") Tulemus on: 4 |
Funktsioon VBA Right tagastab stringi lõpust n tähemärki:
1 | MsgBox Right ("ABCDE", 2) 'Tulemus: DE |
Funktsiooni InStrRev abil saame leida tee „\” viimase esinemise tee nimest ja kasutada funktsiooni Len abil failinime pikkuse arvutamiseks. Paremal saab failinime välja võtta.
12345678910111213141516171819202122232425262728 | Sub InStrRevExample_4 ()Dim PathEx stringinaPathEx = "C: \ MyFiles \ Other \ UsefulFile.pdf"Hämardatud failinimiEx stringinaFilenameEx = Parem (PathEx, Len (PathEx) - InStrRev (PathEx, "\"))MsgBox FilenameEx 'Tulemus on: UseFile.pdf"Lõhustame selle koodiMsgBox Len (PathEx)'See on tee nime pikkus (31)MsgBox InStrRev (PathEx, "\")'See on stringi viimase \ positsioonMsgBox Len (PathEx) - InStrRev (PathEx, "\")'See on failinime pikkus (14)'Vahe täispikkuse ja viimase \ positsiooni vahel"(31-27 = 14)"Nüüd me teame failinime pikkust ja loomulikult on see lõpus„Õige funktsioon on selles olukorras ideaalneFilenameEx = Parem (PathEx, Len (PathEx) - InStrRev (PathEx, "\"))End Sub |