rsepa-指定した文字より右側を返す - mytips@wiki

rsepa-指定した文字より右側を返す

拡張子つきのファイル名から拡張子部分を取り出すときなどに使える。

Public Function rsepa(sOrg As String, sFind As String) As String
'-- sOrg より s Find を検索し、それより右側にある文字列を返す
'
   Dim n As Integer
   Dim sRet As String
   
   n = InStr(1, sOrg, sFind)
   If n = 0 Then
       sRet = ""
   Else
       sRet = Mid(sOrg, n + Len(sFind), Len(sOrg) - n)
   End If
   rsap = sRet
End Function