正则替换怎么用？
比如我有以文件路径及文件名如：e:\\abc\cc\mm.txt
怎么通过正则替换提取文件名：mm.txt
路径是不定的。

专门提取 文件名吗?

如果专门提取文件名,可以不需要使用正则.
不过,我不知道这个正则如何提取.

-------------------------------------------------
Public Function 取文件名(全路径 As String) As String
Dim i As Long, j As Long
   
    i = InStr(i + 1, 全路径, "\")       '先查找
    Do Until i = 0                      '查找到的位置为0则退出
        j = i                           '保存最右边 \ 的位置
        i = InStr(i + 1, 全路径, "\")   '查找
    Loop

    '如果没有查找到,那么 j 就没有被赋值,默认为0 值,+1 后,也就是从第一个位置开始,也就是返回全部字符了.
    '如果找到过,那么 j 就是最后一个 \ 的位置,从它后面 +1 的位置开始,就是文件名了.
    取文件名 = Mid(全路径, j + 1)       '取文件名

End Function


[ 本帖最后由 风吹过b 于 2010-1-6 09:26 编辑 ]

如何用正则表达式来筛选呢？

\\([^\\]*)
个这表达式匹配每一级目录,最后一级就是文件名了

通常我用比较笨的方法  每个字符检测 (从右边开始读取到左边) 看到 "\" 然后   right(全路径 )

Option Explicit

Private Sub Form_Load()
    Debug.Print PathReplaceName(App.Path & "\test.txt", "ttx.txt")
    Debug.Print PathReplaceName("\test.txt", "ttx.txt")
    Debug.Print PathReplaceName("test.txt", "ttx.txt")
End Sub

Function PathReplaceName(sFile As String, sReName As String) As String
    Dim n&, sTemp$
    n& = InStrRev(sFile, "\")
    sTemp$ = Mid$(sFile, 1, n&)
    PathReplaceName = sTemp$ & sReName
End Function