Как заменить имя файла с помощью RegExp

[Cyberax]

Есть файлы с именем типа [20524.00-0-КСУ(Ц)-0-ГП л. 002 Ред. B1][146Y.pdf] #00 надо чтобы осталось только 20524.00-0-КСУ(Ц)-0-ГП л. 002 Ред. B1 Подскажите кто-нибудь пожалуста.

[Gloom]

Если я правильно понял, что нужно получить содержимое первых квадратных скобок, то можно так:

Код: Выделить всё

With New RegExp
       .Pattern = "\[(.+?)\].*"
       Debug.Print .Replace("[20524.00-0-КСУ(Ц)-0-ГП л. 002 Ред. B1][146Y.pdf] #00 ", "$1")
End With

[Cyberax]

Вообще фаил называется [20524.00-0-КСУ(Ц)-0-ГП л. 002 Ред. B1][146Y.pdf] #00.pdf а надо чтобы получилось 20524.00-0-КСУ(Ц)-0-ГП л. 002 Ред. B1.pdf. И вообще надо чтобы после замены изменения сохранялись.

[KL]

Из-под Excel я бы сделал так:

Код: Выделить всё

Function ClearName(ByVal strText As String, ByVal strPattern As String) As String
    Dim RegExp As Object
    Set RegExp = CreateObject("vbscript.regexp")
    With RegExp
        .Pattern = strPattern
        .Global = True
        ClearName = .Replace(Trim(strText), "")
    End With
End Function

Sub Test()
    strText = "[20524.00-0-КСУ(Ц)-0-ГП л. 002 Ред. B1][146Y.pdf] #00.pdf "
    strPattern = "(\[\S{4})\.(\S{3}\])|(\s#\d{2})|[\[\]]"
    MsgBox ClearName(strText, strPattern)
End Sub

[Cyberax]

Имя фаила меняется только в программе мне надо чтобы оно реально поменялось

[Алексей К.]

читай справку по name

[Cyberax]

Всем большое спасибо. Вы мне очень помогли