[AccessD] Last occurrence within a string

Another mousetrap - use InStrRev, as in (fragment)

  strPath = "C:\MyDocs\Docs\Temps\Hello.doc"
  retVal =  Mid(strPath,InStrRev(strPath,"\")+1)

You'd still have to do checks for inappropriate values in strPath

Stephen Bond



> -----Original Message-----
> From: Heenan, Lambert [mailto:Lambert.Heenan at AIG.com]
> Sent: Wednesday, 27 October 2004 6:32 a.m.
> To: 'Access Developers discussion and problem solving'
> Subject: RE: [AccessD] Last occurrence within a string
>
>
> Or, starting at the right end of the string (as that's where we are
> expecting to see the data)
>
> Function InStrR(varText As Variant, strFind As String) As Integer
>    Dim n As Integer, nStart As Integer
>     n = Len(strFind)
>     If IsNull(varText) Or n = 0 Then
>         InStrR = 0
>         Exit Function
>     End If
>     nStart = Len(varText) - n
>     While nStart > 0
>         n = InStr(nStart, varText, strFind)
>         If n = 0 Then
>             nStart = nStart - 1
>         Else
>             InStrR = n
>             Exit Function
>         End If
>     Wend
>     InStrR = 0
> End Function
>
>
> Lambert
>
> > -----Original Message-----
> > From:       accessd-bounces at databaseadvisors.com
> > [SMTP:accessd-bounces at databaseadvisors.com] On Behalf Of
> Vincent Pusateri
> > Sent:       Tuesday, October 26, 2004 11:45 AM
> > To: 'Access Developers discussion and problem solving'
> > Subject:    RE: [AccessD] Last occurrence within a string
> >
> > Here you go
> >
> > Public Function GetEndString(vntString As Variant,
> strSymbol As String) As
> > String
> >
> >     Dim intStartPosition As Integer
> >     Dim intSymbolPosition As Integer
> >    
> >     ' Loop through the line, looking for the last occurrence
> >     ' of the symbol.  Once the last symbol as been found, pass
> >     ' back the string to the right of it.
> >    
> >     intStartPosition = 1
> >    
> >     Do
> >         intSymbolPosition = InStr(intStartPosition,
> vntString, strSymbol)
> >         If intSymbolPosition > 0 Then
> >             intStartPosition = intSymbolPosition + 1
> >         End If
> >     Loop Until intSymbolPosition = 0
> >    
> >     GetEndString = Trim$(Mid(vntString, intStartPosition))
> >   
> > End Function
> >
> > Vinnie Chas
> >
> > -----Original Message-----
> > From: accessd-bounces at databaseadvisors.com
> > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of ACTEBS
> > Sent: Tuesday, October 26, 2004 7:08 AM
> > To: Access Group (E-mail)
> > Subject: [AccessD] Last occurrence within a string
> >
> > Guys,
> >
> > I am stuffing around with this and am sure I have done this
> before but for
> > the life of me can't get it. I need to find the last
> occurrence of "\"
> > within a file path string. For example if the path was
> > C:\MyDocs\Docs\Temps\Hello.doc I want to be able to return
> the Hello.doc
> > portion and to do that obviously I need to know what
> position the last
> > backslash is.
> >
> > Any ideas?
> >
> > Vlad
> > --
> > _______________________________________________
> > AccessD mailing list
> > AccessD at databaseadvisors.com
> > http://databaseadvisors.com/mailman/listinfo/accessd
> > Website: http://www.databaseadvisors.com
> >
> >
> >
> >
> > --
> > _______________________________________________
> > AccessD mailing list
> > AccessD at databaseadvisors.com
> > http://databaseadvisors.com/mailman/listinfo/accessd
> > Website: http://www.databaseadvisors.com
> --
> _______________________________________________
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>