[amel27]

Creat0R

правда расширение не возвращается

енто частности, уже исправил.

Кстати, насчет твоего старого вопроса о массовой замене и функции _StringRexExpReplaceEx… зачем там RegExp? Имхо вариант с обычным StringReplace справится лучше, плюсы очевидны:

- работает быстрее;
- нет проблем с форматными символами (речь о "|");
- если элементу из массива $Pattern нет соответствия в $Replace автоматически предполагается пустая строка.

Код:

$String = 'file://localhost/%22c:/my%20test/test.zip%22'
Dim $Pattern [4] = ['/','%20','%22','file:\\localhost\']
Dim $Replace[3] = ['\',' ','"']

Func _StringReplaceEx ($String, $Pattern, $Replace)
    Local $i
    ReDim $Replace[UBound($Pattern)]
    For $i=0 To UBound($Pattern)-1
        ConsoleWrite ($Pattern[$i]&':'&$Replace[$i]&@CRLF)
        $String = StringReplace ($String, $Pattern[$i], $Replace[$i])
    Next
    Return $String
EndFunc

MsgBox (64, "Results", _StringReplaceEx ($String, $Pattern, $Replace)) ;На выходе имеем это: "c:\my test\test.zip"