excel - Excel VBA：正規表現-ファイル名を取得

Question

次のフルパスから「MyFileName」のような ファイル名（パスと拡張子なし）だけを取得するにはどうすればよい
ですか？
C：\ A_B \ CD \ E_ \ F0123456789 \ G \ MyFileName.txt

Answer 1

InStrRev文字列内で最後に出現する文字を見つけます。検索し\てそこで分割する

FullFileName="C:\A_B\C.D\E_\F0123456789\G\MyFileName.txt"
FileName=mid(FullFileName,instrrev(FullFileName,"\")+1)

今すぐエクステンションを外す

FileNameWithoutExt=left(FileName,instrrev(FileName,".")-1)

Answer 2

Public Function GetFileNameWithoutExt(ByVal fullPath As String) As String
Dim fileName As String
Dim fileNameWithoutExt As String

Dim lastSlash As Integer
Dim positionOfDot As Integer

lastSlash = InStrRev(fullPath, "\")
fileName = Mid(fullPath, lastSlash + 1)

positionOfDot = InStr(1, fileName, ".")
fileNameWithoutExt = Mid(fileName, 1, positionOfDot - 1)

GetFileNameWithoutExt = fileNameWithoutExt
End Function

イミディエイト ウィンドウの使用

?GetFileNameWithoutExt("C:\A_B\C.D\E_\F0123456789\G\MyFileName.txt")

編集：別の方法

Public Function GetFileNameWithoutExt2(ByVal fullPath As String) As String
Dim fileName As String
Dim splittedData
Dim fileNameWithoutExt As String

splittedData = Split(fullPath, "\")
fileName = splittedData(UBound(splittedData))

fileNameWithoutExt = Split(fileName, ".")(0)

GetFileNameWithoutExt2 = fileNameWithoutExt
End Function

Answer 3

アクセスできる実際のファイルの場合は、 Dir を使用できます

sFileOnly = Dir(sPathAndFile)

それが実際のファイルでない場合、またはアクセスできない場合、これは空の文字列を返します。

Answer 4

    Sub Test()
        Dim fileNameOnly As String
        fileNameOnly = Left$(Split("C:\A_B\C.D\E_\F0123456789\G\MyFileName.txt", "\")(UBound(Split("C:\A_B\C.D\E_\F0123456789\G\MyFileName.txt", "\"))), InStrRev(Split("C:\A_B\C.D\E_\F0123456789\G\MyFileName.txt", "\")(UBound(Split("C:\A_B\C.D\E_\F0123456789\G\MyFileName.txt", "\"))), ".") - 1)
        Debug.Print Strtf    
    End Sub

Answer 5

Set regEx = New RegExp
regEx.Pattern = ".*\\"
regEx.IgnoreCase = True
filename = regEx.Replace(fullpath, "")