Dieses Tutorial zeigt, wie Sie die InStrRev VBA-Funktion verwenden, um Text von der rechten Seite zu finden…
InStrRev-Funktion
Die VBA InStrRev-Funktion sucht nach der Position einer Teilzeichenfolge innerhalb einer Zeichenfolge. Es gibt die Positionszählung von links nach rechts zurück, führt jedoch die Suche vom Ende des Strings zum Anfang durch.
VBA InStrRev Substring finden
Die VBA InStrRev-Funktion kann verwendet werden, um die Position eines Teilstrings innerhalb eines Strings zu finden.
| 12345678 | Sub InStrRevExample_1()MsgBox InStrRev("ABCABC", "C") 'Ergebnis ist: 6MsgBox InStrRev("ABCABC", "BC") 'Ergebnis ist: 5MsgBox InStrRev("La La Land", "L") 'Ergebnis: 7MsgBox InStrRev("La La Land", "La") 'Ergebnis: 7MsgBox InStrRev("La La Land", "La ") 'Ergebnis ist: 4MsgBox InStrRev("La La Land", "M") 'Ergebnis ist: 0End Sub |
VBA InStrRev Ausgangsposition
Die VBA InStrRev-Funktion kann die Suche nach einem Teilstring von einer zugewiesenen Position starten, die von links nach rechts gezählt wird.
| 12345678 | Sub InStrRevExample_2()MsgBox InStrRev("La La Land", "L") 'Ergebnis: 7MsgBox InStrRev("La La Land", "L", 8) 'Ergebnis: 7MsgBox InStrRev("La La Land", "L", 7) 'Ergebnis: 7MsgBox InStrRev("La La Land", "L", 6) 'Ergebnis: 4MsgBox InStrRev("La La Land", "L", 4) 'Ergebnis: 4MsgBox InStrRev("La La Land", "L", 3) 'Ergebnis ist: 1End Sub |
VBA-Programmierung | Code Generator arbeitet für Sie!
VBA InStrRev Groß-/Kleinschreibung
Die VBA InStrRev-Funktion unterscheidet standardmäßig zwischen Groß- und Kleinschreibung. Sie können dieses Verhalten mithilfe eines optionalen Parameters so ändern, dass die Groß-/Kleinschreibung nicht beachtet wird. In diesem Fall müssen Sie auch die Startposition der Suche festlegen.
| 123456789 | Sub InStrRevExample_3()'InstrRev unterscheidet standardmäßig zwischen Groß- und KleinschreibungMsgBox InStrRev("La La Land", "L") 'Ergebnis: 7MsgBox InStrRev("La La Land", "l") 'Ergebnis ist: 0'InstrRev kann Suchen ohne Beachtung der Groß-/Kleinschreibung durchführenMsgBox InStrRev("La La Land", "L", -1, vbTextCompare) 'Ergebnis: 7MsgBox InStrRev("La La Land", "l", -1, vbTextCompare) 'Ergebnis: 7End Sub |
VBA InStrRev Letztes Leerzeichen
Die VBA InStrRev-Funktion kann die Position des letzten Leerzeichens in einer Zeichenfolge ermitteln.
| 123456789 | Sub InStrRevExample_4()MsgBox InStrRev("La La Land", "")'Ergebnis ist: 6MsgBox InStrRev("Leonardo da Vinci", "")'Ergebnis ist: 12MsgBox InStrRev("Möge die Macht mit dir sein", "")'Ergebnis ist: 22End Sub |
VBA InStrRev Vorletztes Leerzeichen
Die VBA InStrRev-Funktion kann die Position des vorletzten Leerzeichens in einer Zeichenfolge ermitteln. Wir können die VBA InStrRev-Funktion verwenden, um das letzte Leerzeichen in einer Zeichenfolge zu finden, und dann können wir InStrRev mit einem neuen Startpunkt erneut verwenden, um die Position des vorletzten Leerzeichens zu finden
| 12345678910111213 | Sub InStrRevExample_5()LastPos als Integer dimmenLastPos = InStrRev("Möge die Macht mit dir sein", "")MsgBox LastPos 'Ergebnis ist: 22Dim SecondLastPos als IntegerSecondLastPos = InStrRev("Möge die Macht mit dir sein", " ", LastPos - 1)MsgBox SecondLastPos 'Ergebnis ist: 17'InStrRev hat die Leerzeichensuche kurz vor dem letzten Leerzeichen gestartet'Es findet das vorletzte Leerzeichen, weil es von rechts nach links suchtEnd Sub |
Sind Sie es leid, nach VBA-Codebeispielen zu suchen? Probieren Sie AutoMacro aus!
VBA InStrRev Rückgabedateiname
Die VBA InStrRev-Funktion kann verwendet werden, um den Dateinamen einfach aus einer Zeichenfolge zurückzugeben, die den Pfad und den Dateinamen enthält. Wir werden die InStrRev-Funktion mit den Funktionen VBA Len und VBA Right verwenden.
Die VBA-Len-Funktion gibt die Länge einer Zeichenfolge zurück:
| 1 | MsgBox Len("XBCX") 'Ergebnis ist: 4 |
Die VBA Right-Funktion gibt n Zeichen vom Ende einer Zeichenfolge zurück:
| 1 | MsgBox Right("ABCDE", 2) 'Ergebnis ist: DE |
Wir können die InStrRev-Funktion verwenden, um das letzte Vorkommen von „\“ im Pfadnamen zu finden und die Len-Funktion verwenden, um die Länge des Dateinamens zu berechnen. Right kann dann den Dateinamen extrahieren.
| 12345678910111213141516171819202122232425262728 | Sub InStrRevExample_4()PathEx als String dimmenPathEx = "C:\MyFiles\Other\UsefulFile.pdf"Dim FilenameEx As StringFilenameEx = Right(PathEx, Len(PathEx) - InStrRev(PathEx, "\"))MsgBox FilenameEx 'Ergebnis ist: UsefulFile.pdf'Lass uns diesen Code aufschlüsselnMsgBox Len(PathEx)'Dies ist die Länge des Pfadnamens (31)MsgBox InStrRev(PathEx, "\")'Dies ist die Position des letzten \ in stringMsgBox Len(PathEx) - InStrRev(PathEx, "\")'Dies ist die Länge des Dateinamens (14)'Der Unterschied zwischen der vollen Länge und der Position des letzten \ in string'(31-27=14)'Jetzt kennen wir die Länge des Dateinamens und natürlich steht er am Ende'Die richtige Funktion ist ideal für diese SituationFilenameEx = Right(PathEx, Len(PathEx) - InStrRev(PathEx, "\"))End Sub |
