Ši pamoka parodys, kaip naudotis „InStrRev VBA“ funkcija norint rasti tekstą iš dešinės…
Funkcija „InStrRev“
Funkcija VBA „InStrRev“ ieško eilutės pozicijos eilutės viduje. Jis grąžina pozicijų skaičiavimą iš kairės į dešinę, tačiau atlieka paiešką nuo eilutės pabaigos iki pradžios.
VBA „InStrRev Find“ eilutė
Funkcija VBA „InStrRev“ gali būti naudojama norint rasti antrinės eilutės vietą eilutės viduje.
| 12345678 | Antrinis „InStrRevExample_1“ ()„MsgBox InStrRev“ („ABCABC“, „C“) rezultatas: 6„MsgBox InStrRev“ („ABCABC“, „BC“) rezultatas: 5„MsgBox InStrRev“ („La La Land“, „L“) rezultatas: 7„MsgBox InStrRev“ („La La Land“, „La“) rezultatas: 7„MsgBox InStrRev“ („La La Land“, „La“) rezultatas: 4„MsgBox InStrRev“ („La La Land“, „M“) rezultatas: 0Pabaiga Sub |
„VBA InStrRev“ pradinė padėtis
Funkcija „VBA InStrRev“ gali pradėti antrinės eilutės paiešką iš priskirtos pozicijos, skaičiuojamos iš kairės į dešinę.
| 12345678 | Antrinis „InStrRevExample_2“ ()„MsgBox InStrRev“ („La La Land“, „L“) rezultatas: 7„MsgBox InStrRev“ („La La Land“, „L“, 8) Rezultatas: 7„MsgBox InStrRev“ („La La Land“, „L“, 7) „Rezultatas: 7„MsgBox InStrRev“ („La La Land“, „L“, 6) Rezultatas: 4„MsgBox InStrRev“ („La La Land“, „L“, 4) Rezultatas: 4„MsgBox InStrRev“ („La La Land“, „L“, 3) Rezultatas: 1Pabaiga Sub |
VBA programavimas | Kodo generatorius jums tinka!
VBA „InStrRev“ didžiųjų ir mažųjų raidžių jautrumas
Funkcija „VBA InStrRev“ pagal numatytuosius nustatymus skiria didžiąsias ir mažąsias raides. Naudodami pasirenkamą parametrą, galite pakeisti elgseną į didžiosios ir mažosios raidės. Tokiu atveju taip pat turite nustatyti pradinę paieškos padėtį.
| 123456789 | Antrinis „InStrRevExample_3“ ()„„ InstrRev “pagal numatytuosius nustatymus skiria didžiąsias ir mažąsias raides„MsgBox InStrRev“ („La La Land“, „L“) rezultatas: 7„MsgBox InStrRev“ („La La Land“, „l“) rezultatas: 0„„ InstrRev “gali atlikti didžiųjų ir mažųjų raidžių paieškas„MsgBox InStrRev“ („La La Land“, „L“, -1, vbTextCompare) Rezultatas: 7„MsgBox InStrRev“ („La La Land“, „l“, -1, vbTextCompare) Rezultatas: 7Pabaiga Sub |
VBA „InStrRev“ paskutinė erdvė
Funkcija „VBA InStrRev“ gali rasti paskutinės eilutės vietos vietą.
| 123456789 | Antrinis „InStrRevExample_4“ ()„MsgBox InStrRev“ („La La Land“, „“)'Rezultatas: 6„MsgBox InStrRev“ („Leonardo da Vinci“, „“)'Rezultatas: 12„MsgBox InStrRev“ („Tegu jėga būna su jumis“, „“)„Rezultatas: 22Pabaiga Sub |
„VBA InStrRev“ nuo antros iki paskutinės vietos
Funkcija „VBA InStrRev“ gali rasti antros iki paskutinės eilutės vietos eilutėje. Mes galime naudoti funkciją VBA „InStrRev“, kad surastume paskutinę eilutės erdvę, o tada vėl galime naudoti „InStrRev“ su nauju pradiniu tašku, kad surastume antros ir paskutinės vietos vietą
| 12345678910111213 | Antrinis „InStrRevExample_5“ ()„Dim LastPos“ kaip sveikasis skaičiusLastPos = InStrRev („Tegul jėga būna su jumis“, „“)„MsgBox LastPos“ rezultatas yra: 22Dim SecondLastPos As IntegerSecondLastPos = InStrRev („Tegul jėga būna su jumis“, „“, „LastPos“ - 1)„MsgBox SecondLastPos“ rezultatas yra: 17„„ InStrRev “pradėjo ieškoti erdvės prieš paskutinę erdvę„Jis ras antrą ir paskutinę erdvę, nes ieško iš dešinės į kairęPabaiga Sub |
Pavargote ieškoti VBA kodo pavyzdžių? Išbandykite „AutoMacro“!
„VBA InStrRev“ grąžina failo pavadinimą
Funkcija „VBA InStrRev“ gali būti naudojama norint lengvai grąžinti failo pavadinimą iš eilutės, kurioje yra kelias ir failo pavadinimas. Mes naudosime „InStrRev“ funkciją su funkcijomis „VBA Len“ ir „VBA Right“.
Funkcija VBA Len grąžina eilutės ilgį:
| 1 | „MsgBox Len“ („XBCX“) rezultatas: 4 |
Funkcija „VBA Right“ grąžina n simbolių iš eilutės pabaigos:
| 1 | „MsgBox Right“ („ABCDE“, 2) „Rezultatas: DE |
Mes galime naudoti funkciją „InStrRev“, kad surastume paskutinį „\“ įvykį kelio pavadinime, ir naudoti funkciją „Len“, kad apskaičiuotume failo pavadinimo ilgį. Tada dešinė gali išgauti failo pavadinimą.
| 12345678910111213141516171819202122232425262728 | Antrinis „InStrRevExample_4“ ()„Dim PathEx“ kaip eilutėPathEx = "C: \ MyFiles \ Other \ UsefulFile.pdf"Sumažinti failo pavadinimąEx kaip eilutęFailo pavadinimasEx = dešinė (PathEx, Len (PathEx) - InStrRev (PathEx, "\"))„MsgBox FilenameEx“ rezultatas yra: UsefulFile.pdf„Sulaužykime šį kodą„MsgBox Len“ („PathEx“)„Tai yra kelio pavadinimo ilgis (31)„MsgBox InStrRev“ („PathEx“, „\“)„Tai paskutinės eilutės \ pozicija„MsgBox Len“ („PathEx“) - „InStrRev“ („PathEx“, „\“)„Tai yra failo pavadinimo ilgis [14]„Skirtumas tarp viso ilgio ir paskutinės eilutės \ eilutės padėties“(31–27 = 14)„Dabar mes žinome failo pavadinimo ilgį ir, žinoma, jis yra pabaigoje„Tinkama funkcija idealiai tinka šiai situacijaiFailo pavadinimasEx = dešinė (PathEx, Len (PathEx) - InStrRev (PathEx, "\"))Pabaiga Sub |
