rrsepa-指定した文字が最後に現れる位置より右側を返す - mytips@wiki

rrsepa-指定した文字が最後に現れる位置より右側を返す

フルパスからファイル名部分を取り出すときなどに使える。

Public Function rrsepa(sOrg As String, sFind As String) As String
'-- sOrg の終端より sFind を検索し、それより右側にある文字列を返す
'
   Dim n As Integer
   Dim sRet As String
   
   n = InStrRev(sOrg, sFind)
   If n = 0 Then
       sRet = ""
   Else
       sRet = Mid(sOrg, n + Len(sFind), Len(sOrg) - n)
   End If
   rrsap = sRet
End Function