文字列を末尾から検索する
「指定した文字列の検索・抜き出し」で紹介した「InStr関数」は文字列を先頭から検索しますが、今回紹介する「InStrRev関数」は文字列を末尾から検索します。●構文
|
InStrRev(String1,String2,Start,Compare) |
|---|
◇引数
・String1
必ず指定します。検索先の文字列式を指定します。
・String2
必ず指定します。検索する文字列式を指定します。
・Start
省略可能です。各検索の開始位置を設定する数式を指定します。
引数 start を省略すると -1 が使用され、最後の文字位置から検索を開始します。
引数 start に Null 値が含まれると、エラーになります。
・Compare
省略可能です。文字列式を評価するときに使用する文字列比較のモードを表す数値を指定します。
引数 compare を省略すると、バイナリ モードで比較が行われます。
「vbBinaryCompare:バイナリモード」「vbTextCompare:テキストモード」を指定できます。
●使用例「ファイル名抜き出し」
|
Sub sample() Dim filePath As String filePath = "C:\Users\excelvba\Documents\ExcelVBA\sample01.xlsx" MsgBox Mid(filePath, InStrRev(filePath, "\") + 1) End Sub |
|---|
●実行結果
●使用例「拡張子」
|
Sub sample() Dim filePath As String filePath = "C:\Users\excelvba\Documents\ExcelVBA\sample01.xlsx" MsgBox Mid(filePath, InStrRev(filePath, ".") + 1) End Sub |
|---|
●実行結果
 指定した文字列の検索と抜き出し
|
# 
|
|---|
