Šī apmācība parādīs, kā izmantot InStrRev VBA funkciju, lai atrastu tekstu no labās puses …
Funkcija InStrRev
Funkcija VBA InStrRev virknes iekšpusē meklē apakšvirknes pozīciju. Tas atgriež pozīciju skaitīšanu no kreisās uz labo, bet veic meklēšanu no virknes beigām līdz sākumam.
VBA InStrRev Atrast apakšvirkni
Funkciju VBA InStrRev var izmantot, lai atrastu apakšvirknes pozīciju virknes iekšpusē.
12345678 | Apakš InStrRevExample_1 ()MsgBox InStrRev ("ABCABC", "C") Rezultāts: 6MsgBox InStrRev ("ABCABC", "BC") Rezultāts: 5MsgBox InStrRev ("La La Land", "L") Rezultāts: 7MsgBox InStrRev ("La La Land", "La") Rezultāts: 7MsgBox InStrRev ("La La Land", "La") Rezultāts: 4MsgBox InStrRev ("La La Land", "M") Rezultāts: 0Beigu apakš |
VBA InStrRev sākuma pozīcija
Funkcija VBA InStrRev var sākt apakšvirknes meklēšanu no piešķirtās pozīcijas, kas skaitīta no kreisās uz labo.
12345678 | InStrRevExample_2 apakšsadaļa ()MsgBox InStrRev ("La La Land", "L") Rezultāts: 7MsgBox InStrRev ("La La Land", "L", 8) 'Rezultāts: 7MsgBox InStrRev ("La La Land", "L", 7) 'Rezultāts: 7MsgBox InStrRev ("La La Land", "L", 6) 'Rezultāts: 4MsgBox InStrRev ("La La Land", "L", 4) 'Rezultāts: 4MsgBox InStrRev ("La La Land", "L", 3) 'Rezultāts: 1Beigu apakš |
VBA programmēšana | Kodu ģenerators strādā jūsu labā!
VBA InStrRev reģistrjutība
Funkcija VBA InStrRev pēc noklusējuma ir reģistrjutīga. Izmantojot neobligātu parametru, varat mainīt šo izturēšanos pret reģistrjutību. Tādā gadījumā jums ir jādefinē arī meklēšanas sākuma pozīcija.
123456789 | InStrRevExample_3 apakšiedaļa ()"InstrRev pēc noklusējuma ir reģistrjutīgsMsgBox InStrRev ("La La Land", "L") Rezultāts: 7MsgBox InStrRev ("La La Land", "l") 'Rezultāts: 0"InstrRev var veikt meklēšanu, neņemot vērā reģistrusMsgBox InStrRev ("La La Land", "L", -1, vbTextCompare) Rezultāts: 7MsgBox InStrRev ("La La Land", "l", -1, vbTextCompare) Rezultāts: 7Beigu apakš |
VBA InStrRev pēdējā vieta
Funkcija VBA InStrRev var atrast virknes pēdējās atstarpes pozīciju.
123456789 | InStrRevExample_4 apakšsadaļa ()MsgBox InStrRev ("La La Land", "")'Rezultāts: 6MsgBox InStrRev ("Leonardo da Vinči", "")"Rezultāts: 12MsgBox InStrRev ("Lai spēks ir ar jums", "")"Rezultāts: 22Beigu apakš |
VBA InStrRev Otrais līdz pēdējais atstarpe
Funkcija VBA InStrRev var atrast virknes otrā līdz pēdējā atstarpe. Mēs varam izmantot funkciju VBA InStrRev, lai atrastu virknes pēdējo atstarpi, un pēc tam atkal varam izmantot InStrRev ar jaunu sākumpunktu, lai atrastu otrās līdz pēdējās atstarpes pozīciju
12345678910111213 | InStrRevExample_5 apakšsadaļa ()Dim LastPos kā vesels skaitlisLastPos = InStrRev ("Lai spēks ir ar jums", "")MsgBox LastPos rezultāts ir: 22Dim SecondLastPos kā vesels skaitlisSecondLastPos = InStrRev ("Lai spēks ir ar jums", "", LastPos - 1)MsgBox SecondLastPos rezultāts ir: 17'InStrRev sāka meklēt vietu tieši pirms pēdējās vietas"Tas atradīs otro līdz pēdējai vietai, jo meklē no labās uz kreisoBeigu apakš |
Vai esat noguris no VBA koda piemēru meklēšanas? Izmēģiniet AutoMacro!
VBA InStrRev Atgriež faila nosaukumu
Funkciju VBA InStrRev var izmantot, lai viegli atgrieztu faila nosaukumu no virknes, kas satur ceļu un faila nosaukumu. Mēs izmantosim InStrRev funkciju ar funkcijām VBA Len un VBA Right.
Funkcija VBA Len atgriež virknes garumu:
1 | MsgBox Len ("XBCX") rezultāts ir: 4 |
Funkcija VBA Right atgriež n rakstzīmes no virknes beigām:
1 | MsgBox Right ("ABCDE", 2) 'Rezultāts: DE |
Mēs varam izmantot funkciju InStrRev, lai atrastu pēdējo “\” notikumu ceļa nosaukumā, un izmantot funkciju Len, lai aprēķinātu faila nosaukuma garumu. Labās puses var izvilkt faila nosaukumu.
12345678910111213141516171819202122232425262728 | InStrRevExample_4 apakšsadaļa ()Dim PathEx kā virknePathEx = "C: \ MyFiles \ Other \ UsefulFile.pdf"Dim faila nosaukumsEx kā virkneFilenameEx = Pa labi (PathEx, Len (PathEx) - InStrRev (PathEx, "\"))MsgBox FilenameEx rezultāts: UsefulFile.pdf'Sadalīsim šo koduMsgBox Len (PathEx)“Šis ir ceļa nosaukuma garums (31)MsgBox InStrRev (PathEx, "\")'Šī ir virknes pēdējā pozīcija \MsgBox Len (PathEx) - InStrRev (PathEx, "\")'Šis ir faila nosaukuma garums (14)'Atšķirība starp virknes pilno garumu un pēdējās \ pozīciju"(31-27 = 14)"Tagad mēs zinām faila nosaukuma garumu un, protams, tas ir beigās'Pareizā funkcija ir ideāla šai situācijaiFilenameEx = Pa labi (PathEx, Len (PathEx) - InStrRev (PathEx, "\"))Beigu apakš |