Ez az oktatóanyag bemutatja, hogyan kell használni az InStrRev VBA funkciót a szöveg jobb oldali megkereséséhez…
InStrRev függvény
A VBA InStrRev függvény egy karakterláncon belül keres egy alstringet. Visszaadja a pozíciószámlálást balról jobbra, de végrehajtja a keresést a karakterlánc végétől az elejéig.
VBA InStrRev Find Substring
A VBA InStrRev függvény használható egy karakterláncon belüli allánc helyzetének megkeresésére.
12345678 | Rész InStrRevExample_1 ()MsgBox InStrRev ("ABCABC", "C") 'Az eredmény: 6MsgBox InStrRev ("ABCABC", "BC") 'Az eredmény: 5MsgBox InStrRev ("La La Land", "L") 'Az eredmény: 7Az MsgBox InStrRev ("La La Land", "La") eredménye: 7Az MsgBox InStrRev ("La La Land", "La") eredménye: 4MsgBox InStrRev ("La La Land", "M") 'Az eredmény: 0End Sub |
VBA InStrRev kiindulási helyzet
A VBA InStrRev Funkció elindíthatja az alstringek keresését a hozzárendelt pozícióból, balról jobbra számolva.
12345678 | Rész InStrRevExample_2 ()MsgBox InStrRev ("La La Land", "L") 'Az eredmény: 7MsgBox InStrRev ("La La Land", "L", 8) 'Az eredmény: 7MsgBox InStrRev ("La La Land", "L", 7) 'Az eredmény: 7MsgBox InStrRev ("La La Land", "L", 6) 'Az eredmény: 4MsgBox InStrRev ("La La Land", "L", 4) 'Az eredmény: 4MsgBox InStrRev ("La La Land", "L", 3) 'Az eredmény: 1End Sub |
VBA programozás | A kódgenerátor működik az Ön számára!
VBA InStrRev kis- és nagybetű érzékenység
A VBA InStrRev függvény alapértelmezés szerint megkülönbözteti a kis- és nagybetűket. Ezt a viselkedést kis- és nagybetűk megkülönböztetésére változtathatja egy opcionális paraméter használatával. Ebben az esetben meg kell határoznia a keresés kiinduló helyzetét is.
123456789 | Rész InStrRevExample_3 ()'Az InstrRev alapértelmezés szerint megkülönbözteti a kis- és nagybetűketMsgBox InStrRev ("La La Land", "L") 'Az eredmény: 7MsgBox InStrRev ("La La Land", "l") 'Az eredmény: 0„Az InstrRev képes kis- és nagybetűk megkülönböztetés nélküli kereséséreMsgBox InStrRev ("La La Land", "L", -1, vbTextCompare) 'Az eredmény: 7MsgBox InStrRev ("La La Land", "l", -1, vbTextCompare) 'Az eredmény: 7End Sub |
VBA InStrRev Utolsó szóköz
A VBA InStrRev függvény megkeresi a karakterlánc utolsó szóközének pozícióját.
123456789 | Rész InStrRevExample_4 ()MsgBox InStrRev ("La La Land", "")'Az eredmény: 6MsgBox InStrRev ("Leonardo da Vinci", "")'Az eredmény: 12MsgBox InStrRev ("Az Erő legyen veled", "")'Az eredmény: 22End Sub |
VBA InStrRev Második az utolsó szóközig
A VBA InStrRev függvény megtalálja a karakterlánc második és utolsó szóközének pozícióját. Használhatjuk a VBA InStrRev függvényt a karakterlánc utolsó szóközének megkeresésére, majd újra használhatjuk az InStrRev új kezdőponttal a második és az utolsó szóköz pozícióját
12345678910111213 | Rész InStrRevExample_5 ()Dim LastPos mint egészLastPos = InStrRev ("Az Erő legyen veled", "")Az MsgBox LastPos eredménye: 22Dim SecondLastPos As IntegerSecondLastPos = InStrRev ("Az Erő legyen veled", "", LastPos - 1)Az MsgBox SecondLastPos eredménye: 17'Az InStrRev közvetlenül az utolsó szó előtt kezdte a helykeresést- Meg fogja találni a második utolsót, mert jobbról balra keresEnd Sub |
Unod már a VBA kódpéldák keresését? Próbálja ki az AutoMacro -t!
VBA InStrRev Visszaadja a fájlnevet
A VBA InStrRev függvény segítségével könnyen visszaadható a fájlnév az útvonalat és a fájlnevet tartalmazó karakterláncból. Az InStrRev függvényt a VBA Len és a VBA Right funkciókkal fogjuk használni.
A VBA Len függvény egy karakterlánc hosszát adja vissza:
1 | MsgBox Len ("XBCX") Az eredmény: 4 |
A VBA Right függvény n karaktert ad vissza a karakterlánc végéről:
1 | MsgBox Right ("ABCDE", 2) 'Az eredmény: DE |
Az InStrRev függvény segítségével megkereshetjük a „\” utolsó előfordulását az útvonalnévben, és a Len függvény segítségével kiszámíthatjuk a fájlnév hosszát. A jobb oldali ezután kibonthatja a fájlnevet.
12345678910111213141516171819202122232425262728 | Rész InStrRevExample_4 ()Dim PathEx karakterlánckéntPathEx = "C: \ MyFiles \ Other \ UsefulFile.pdf"FájlnévEx halvány karakterlánckéntFájlnévEx = Jobb (PathEx, Len (PathEx) - InStrRev (PathEx, "\"))Az MsgBox FilenameEx eredménye: UsefulFile.pdf- Lebontjuk ezt a kódotMsgBox Len (PathEx)'Ez az útvonal hossza [31]MsgBox InStrRev (PathEx, "\")'Ez a karakterlánc utolsó \ pozíciójaMsgBox Len (PathEx) - InStrRev (PathEx, "\")'Ez a fájlnév hossza [14]'A különbség a teljes hosszúság és az utolsó \ pozíció között"(31-27 = 14)- Most már tudjuk a fájlnév hosszát, és természetesen a végén„A megfelelő funkció ideális ebben a helyzetbenFájlnévEx = Jobb (PathEx, Len (PathEx) - InStrRev (PathEx, "\"))End Sub |