Tento tutoriál ukáže, ako používať funkciu InStrRev VBA na nájdenie textu z pravého …
Funkcia InStrRev
Funkcia VBA InStrRev hľadá pozíciu podreťazca vo vnútri reťazca. Vráti počítanie polohy zľava doprava, ale vykoná vyhľadávanie od konca reťazca na začiatok.
VBA InStrRev Nájsť podreťazec
Funkciu VBA InStrRev je možné použiť na nájdenie polohy podreťazca vo vnútri reťazca.
| 12345678 | Sub InStrRevExample_1 ()MsgBox InStrRev ("ABCABC", "C") 'Výsledok je: 6MsgBox InStrRev ("ABCABC", "BC") 'Výsledok je: 5MsgBox InStrRev („La La Land“, „L“) 'Výsledok je: 7MsgBox InStrRev ("La La Land", "La") 'Výsledok je: 7MsgBox InStrRev ("La La Land", "La") 'Výsledok je: 4MsgBox InStrRev ("La La Land", "M") 'Výsledok je: 0Koniec pod |
Východisková pozícia VBA InStrRev
Funkcia VBA InStrRev môže začať vyhľadávanie podreťazca z priradenej pozície počítanej zľava doprava.
| 12345678 | Sub InStrRevExample_2 ()MsgBox InStrRev („La La Land“, „L“) 'Výsledok je: 7MsgBox InStrRev ("La La Land", "L", 8) 'Výsledok je: 7MsgBox InStrRev ("La La Land", "L", 7) Výsledok je: 7MsgBox InStrRev ("La La Land", "L", 6) Výsledok je: 4MsgBox InStrRev („La La Land“, „L“, 4) Výsledok je: 4MsgBox InStrRev („La La Land“, „L“, 3) Výsledok je: 1Koniec pod |
Programovanie VBA | Generátor kódu pracuje za vás!
Rozlišovanie malých a veľkých písmen VBA InStrRev
Funkcia VBA InStrRev štandardne rozlišuje veľké a malé písmena. Toto správanie môžete zmeniť na rozlišovanie malých a veľkých písmen pomocou voliteľného parametra. V takom prípade musíte definovať aj počiatočnú pozíciu vyhľadávania.
| 123456789 | Sub InStrRevExample_3 ()„InstrRev v predvolenom nastavení rozlišuje veľké a malé písmenaMsgBox InStrRev („La La Land“, „L“) 'Výsledok je: 7MsgBox InStrRev ("La La Land", "l") 'Výsledok je: 0„InstrRev môže vykonávať vyhľadávania bez rozlišovania malých a veľkých písmenMsgBox InStrRev ("La La Land", "L", -1, vbTextCompare) 'Výsledok je: 7MsgBox InStrRev ("La La Land", "l", -1, vbTextCompare) 'Výsledok je: 7Koniec pod |
VBA InStrRev Last Space
Funkcia VBA InStrRev dokáže nájsť pozíciu posledného priestoru v reťazci.
| 123456789 | Sub InStrRevExample_4 ()MsgBox InStrRev ("La La Land", "")Výsledok je 6MsgBox InStrRev („Leonardo da Vinci“, „“)Výsledok je 12MsgBox InStrRev („Nech je sila s vami“, „“)Výsledok je 22Koniec pod |
VBA InStrRev predposledný priestor
Funkcia VBA InStrRev dokáže nájsť pozíciu druhého až posledného medzery v reťazci. Na nájdenie posledného medzery v reťazci môžeme použiť funkciu VBA InStrRev a potom môžeme znova použiť InStrRev s novým začiatočným bodom na nájdenie polohy predposledného priestoru
| 12345678910111213 | Sub InStrRevExample_5 ()Dim LastPos ako celé čísloLastPos = InStrRev („Nech je sila s tebou“, „“)Výsledok MsgBox LastPos je: 22Dim SecondLastPos ako celé čísloSecondLastPos = InStrRev („Nech je sila s tebou“, „“, LastPos - 1)Výsledok MsgBox SecondLastPos je: 17„InStrRev začal hľadať priestor tesne pred posledným priestorom„Nájde predposledné miesto, pretože hľadá sprava doľavaKoniec pod |
Ste unavení z hľadania príkladov kódu VBA? Skúste AutoMacro!
VBA InStrRev návratové meno súboru
Funkciu VBA InStrRev je možné použiť na ľahké vrátenie názvu súboru z reťazca, ktorý obsahuje cestu a názov súboru. Použijeme funkciu InStrRev s funkciami VBA Len a VBA Right.
Funkcia VBA Len vracia dĺžku reťazca:
| 1 | MsgBox Len ("XBCX") 'Výsledok je: 4 |
Funkcia VBA Right vracia n znakov z konca reťazca:
| 1 | MsgBox Right ("ABCDE", 2) 'Výsledok je: DE |
Na nájdenie posledného výskytu „\“ v názve cesty môžeme použiť funkciu InStrRev a na vypočítanie dĺžky súboru použiť funkciu Len. Vpravo potom môžete extrahovať názov súboru.
| 12345678910111213141516171819202122232425262728 | Sub InStrRevExample_4 ()Dim PathEx ako reťazecPathEx = "C: \ MyFiles \ Other \ UsefulFile.pdf"Dim FilenameEx ako reťazecFilenameEx = Right (PathEx, Len (PathEx) - InStrRev (PathEx, "\"))Výsledok MsgBox FilenameEx je: UsefulFile.pdf„Rozdeľme tento kódMsgBox Len (PathEx)„Toto je dĺžka názvu cesty (31)MsgBox InStrRev (PathEx, "\")„Toto je pozícia posledného \ v reťazciMsgBox Len (PathEx) - InStrRev (PathEx, "\")„Toto je dĺžka názvu súboru (14)'Rozdiel medzi celou dĺžkou a polohou posledného \ v reťazci“(31-27 = 14)"Teraz poznáme dĺžku názvu súboru a samozrejme je na konci."„Správna funkcia je pre túto situáciu ideálnaFilenameEx = Right (PathEx, Len (PathEx) - InStrRev (PathEx, "\"))Koniec pod |
