Denne vejledning viser, hvordan du bruger InStrRev VBA -funktionen til at finde tekst fra højre …
InStrRev -funktion
VBA InStrRev -funktionen søger efter placeringen af en delstreng inde i en streng. Det returnerer positionstællingen fra venstre mod højre, men det udfører søgningen fra slutningen af strengen til begyndelsen.
VBA InStrRev Find understring
VBA InStrRev -funktionen kan bruges til at finde placeringen af en delstreng inde i en streng.
12345678 | Sub InStrRevExample_1 ()MsgBox InStrRev ("ABCABC", "C") 'Resultat er: 6MsgBox InStrRev ("ABCABC", "BC") 'Resultat er: 5MsgBox InStrRev ("La La Land", "L") 'Resultat er: 7MsgBox InStrRev ("La La Land", "La") 'Resultat er: 7MsgBox InStrRev ("La La Land", "La") 'Resultat er: 4MsgBox InStrRev ("La La Land", "M") 'Resultat er: 0Afslut Sub |
VBA InStrRev Startposition
VBA InStrRev -funktion kan starte søgningen efter en understreng fra en tildelt position talt fra venstre til højre.
12345678 | Sub InStrRevExample_2 ()MsgBox InStrRev ("La La Land", "L") 'Resultat er: 7MsgBox InStrRev ("La La Land", "L", 8) 'Resultat er: 7MsgBox InStrRev ("La La Land", "L", 7) 'Resultat er: 7MsgBox InStrRev ("La La Land", "L", 6) 'Resultat er: 4MsgBox InStrRev ("La La Land", "L", 4) 'Resultat er: 4MsgBox InStrRev ("La La Land", "L", 3) 'Resultat er: 1Afslut Sub |
VBA -programmering | Kodegenerator virker for dig!
VBA InStrRev Case Sensitivity
VBA InStrRev -funktionen er som standard forskellig mellem store og små bogstaver. Du kan ændre denne adfærd til store og små bogstaver ved hjælp af en valgfri parameter. I så fald skal du også definere søgningens startposition.
123456789 | Sub InStrRevExample_3 ()'InstrRev er som standard store og små bogstaverMsgBox InStrRev ("La La Land", "L") 'Resultat er: 7MsgBox InStrRev ("La La Land", "l") 'Resultat er: 0'InstrRev kan udføre store og små ufølsomme søgningerMsgBox InStrRev ("La La Land", "L", -1, vbTextCompare) 'Resultat er: 7MsgBox InStrRev ("La La Land", "l", -1, vbTextCompare) 'Resultat er: 7Afslut Sub |
VBA InStrRev Last Space
VBA InStrRev -funktion kan finde positionen for det sidste mellemrum i en streng.
123456789 | Sub InStrRevExample_4 ()MsgBox InStrRev ("La La Land", "")'Resultatet er: 6MsgBox InStrRev ("Leonardo da Vinci", "")'Resultatet er: 12MsgBox InStrRev ("Må kraften være med dig", "")'Resultatet er: 22Afslut Sub |
VBA InStrRev Anden til sidste plads
VBA InStrRev -funktionen kan finde placeringen af det andet til sidste mellemrum i en streng. Vi kan bruge VBA InStrRev -funktionen til at finde det sidste mellemrum i en streng, og så kan vi igen bruge InStrRev med et nyt udgangspunkt til at finde placeringen af det næstsidste mellemrum
12345678910111213 | Sub InStrRevExample_5 ()Dim LastPos som heltalLastPos = InStrRev ("Må kraften være med dig", "")MsgBox LastPos 'resultat er: 22Dim SecondLastPos som heltalSecondLastPos = InStrRev ("Må kraften være med dig", "", LastPos - 1)MsgBox SecondLastPos 'resultat er: 17'InStrRev startede søgningen efter plads lige før den sidste plads'Den finder den næstsidste plads, fordi den søger fra højre til venstreAfslut Sub |
Træt af at søge efter eksempler på VBA -kode? Prøv AutoMacro!
VBA InStrRev Returner filnavn
VBA InStrRev -funktionen kan bruges til nemt at returnere filnavnet fra en streng, der indeholder stien og filnavnet. Vi vil bruge InStrRev -funktionen med funktionerne VBA Len og VBA Right.
VBA Len -funktion returnerer længden af en streng:
1 | MsgBox Len ("XBCX") 'Resultat er: 4 |
VBA Right -funktion returnerer n tegn fra slutningen af en streng:
1 | MsgBox Right ("ABCDE", 2) 'Resultat er: DE |
Vi kan bruge InStrRev -funktionen til at finde den sidste forekomst af “\” i stinavnet og bruge Len -funktionen til at beregne filnavnets længde. Højre kan derefter udtrække filnavnet.
12345678910111213141516171819202122232425262728 | Sub InStrRevExample_4 ()Dim PathEx som strengPathEx = "C: \ MyFiles \ Other \ UsefulFile.pdf"Dim filnavnEx som strengFilnavnEx = Højre (PathEx, Len (PathEx) - InStrRev (PathEx, "\"))MsgBox FilenameEx 'Resultat er: UsefulFile.pdf'Lad os nedbryde denne kodeMsgBox Len (PathEx)'Dette er længden af stinavnet (31)MsgBox InStrRev (PathEx, "\")'Dette er placeringen af den sidste \ i strengMsgBox Len (PathEx) - InStrRev (PathEx, "\")'Dette er længden af filnavnet (14)'Forskellen mellem hele længden og placeringen af den sidste \ i streng'(31-27 = 14)'Nu kender vi længden af filnavnet, og det er selvfølgelig i slutningen'Den rigtige funktion er ideel til denne situationFilnavnEx = Højre (PathEx, Len (PathEx) - InStrRev (PathEx, "\"))Afslut Sub |