title image


Smiley Re: String für Pfadangabe
Word 2000 / müsste auch W97 gehen











Option Explicit





Sub TestOn_InStrRev()



    Const strTest = "1\Test\ja"

    

    

    MsgBox "InstrRev von " & _

           strTest & _

           " mit \ ergibt " & _

           InStrRev(strTest, "\") & _

           ".", _

           vbInformation, _

           "Zur Info"

           

End Sub



Function InStrRev(strText As String, _

                  strSearch As String) As Integer

                  

    Dim intI As Integer

    

    

    For intI = Len(strText) To 1 Step -1

        If Mid(strText, intI, 1) = strSearch Then

            InStrRev = intI

            Exit Function

        End If

    Next intI

                  

End Function

              







Code eingefügt mit Syntaxhighlighter 2.4





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: