Denna handledning visar hur du använder InStrRev VBA -funktionen för att hitta text från höger …
InStrRev -funktion
VBA InStrRev -funktionen söker efter positionen för en delsträng inuti en sträng. Det returnerar positionsräkningen från vänster till höger men det utför sökningen från slutet av strängen till början.
VBA InStrRev Hitta understring
VBA InStrRev -funktionen kan användas för att hitta positionen för en delsträng inuti en sträng.
| 12345678 | Sub InStrRevExample_1 ()MsgBox InStrRev ("ABCABC", "C") 'Resultat är: 6MsgBox InStrRev ("ABCABC", "BC") 'Resultat är: 5MsgBox InStrRev ("La La Land", "L") 'Resultat är: 7MsgBox InStrRev ("La La Land", "La") 'Resultat är: 7MsgBox InStrRev ("La La Land", "La") 'Resultat är: 4MsgBox InStrRev ("La La Land", "M") 'Resultat är: 0Avsluta Sub |
VBA InStrRev utgångsläge
VBA InStrRev -funktionen kan starta sökningen efter en delsträng från en tilldelad position räknad från vänster till höger.
| 12345678 | Sub InStrRevExample_2 ()MsgBox InStrRev ("La La Land", "L") 'Resultat är: 7MsgBox InStrRev ("La La Land", "L", 8) 'Resultat är: 7MsgBox InStrRev ("La La Land", "L", 7) 'Resultat är: 7MsgBox InStrRev ("La La Land", "L", 6) 'Resultat är: 4MsgBox InStrRev ("La La Land", "L", 4) 'Resultat är: 4MsgBox InStrRev ("La La Land", "L", 3) 'Resultat är: 1Avsluta Sub |
VBA -programmering | Kodgenerator fungerar för dig!
VBA InStrRev Case Sensitivity
VBA InStrRev -funktionen är som standard skiftlägeskänslig. Du kan ändra det beteendet till skiftlägeskänslig med en valfri parameter. I så fall måste du också definiera sökningens startposition.
| 123456789 | Sub InStrRevExample_3 ()'InstrRev är som standard skiftlägeskänsligMsgBox InStrRev ("La La Land", "L") 'Resultat är: 7MsgBox InStrRev ("La La Land", "l") 'Resultat är: 0'InstrRev kan utföra okänsliga sökningar efter stora och små bokstäverMsgBox InStrRev ("La La Land", "L", -1, vbTextCompare) 'Resultat är: 7MsgBox InStrRev ("La La Land", "l", -1, vbTextCompare) 'Resultat är: 7Avsluta Sub |
VBA InStrRev Last Space
VBA InStrRev -funktion kan hitta positionen för det sista utrymmet i en sträng.
| 123456789 | Sub InStrRevExample_4 ()MsgBox InStrRev ("La La Land", "")'Resultatet är: 6MsgBox InStrRev ("Leonardo da Vinci", "")'Resultatet är: 12MsgBox InStrRev ("Må kraften vara med dig", "")'Resultatet är: 22Avsluta Sub |
VBA InStrRev Second to Last Space
VBA InStrRev -funktionen kan hitta positionen för det näst sista rummet i en sträng. Vi kan använda VBA InStrRev -funktionen för att hitta det sista utrymmet i en sträng och sedan kan vi använda InStrRev igen med en ny utgångspunkt för att hitta positionen för det näst sista rummet
| 12345678910111213 | Sub InStrRevExample_5 ()Dim LastPos som heltalLastPos = InStrRev ("Må kraften vara med dig", "")MsgBox LastPos resultat är: 22Dim SecondLastPos som heltalSecondLastPos = InStrRev ("May the Force be with you", "", LastPos - 1)MsgBox SecondLastPos resultat är: 17'InStrRev startade sökandet efter utrymme strax före det sista utrymmet'Det kommer att hitta det näst sista utrymmet eftersom det söker från höger till vänsterAvsluta Sub |
Trött på att söka efter exempel på VBA -kod? Prova AutoMacro!
VBA InStrRev Returnera filnamn
VBA InStrRev -funktionen kan användas för att enkelt returnera filnamnet från en sträng som innehåller sökvägen och filnamnet. Vi kommer att använda InStrRev -funktionen med funktionerna VBA Len och VBA Right.
VBA Len -funktionen returnerar längden på en sträng:
| 1 | MsgBox Len ("XBCX") 'Resultat är: 4 |
VBA Right -funktionen returnerar n tecken från slutet av en sträng:
| 1 | MsgBox Right ("ABCDE", 2) 'Resultat är: DE |
Vi kan använda InStrRev -funktionen för att hitta den sista förekomsten av “\” i söknamnet och använda Len -funktionen för att beräkna filnamnets längd. Höger kan sedan extrahera filnamnet.
| 12345678910111213141516171819202122232425262728 | Sub InStrRevExample_4 ()Dim PathEx som strängPathEx = "C: \ MyFiles \ Other \ UsefulFile.pdf"Dim filnamnEx som strängFilnamnEx = Höger (PathEx, Len (PathEx) - InStrRev (PathEx, "\"))MsgBox FilenameEx resultat är: UsefulFile.pdf'Låt oss bryta ner den här kodenMsgBox Len (PathEx)'Detta är längden på sökvägsnamnet (31)MsgBox InStrRev (PathEx, "\")'Detta är positionen för den sista \ i strängenMsgBox Len (PathEx) - InStrRev (PathEx, "\")'Detta är längden på filnamnet (14)'Skillnaden mellan hela längden och positionen för den sista \ i strängen'(31-27 = 14)'Nu vet vi längden på filnamnet och naturligtvis är det i slutet'Rätt funktion är idealisk för den här situationenFilnamnEx = Höger (PathEx, Len (PathEx) - InStrRev (PathEx, "\"))Avsluta Sub |
