_FileGetValidName() UDF

[MrCreatoR]

Hi all!

Until today, i was using one quite slow function to replace the unsupported characters in file name (* ? \ / | : < > "), and not just replace them, but also to insure that the replaced chars will not been repeated...

This is the Old function (uses loop to strip repeating chars):

Func ReplaceUnsupported($String, $Patern='[*?\\/|:<>"]', $Replace="_")
    If StringLen($String) = 0 Then Return $String
    $String = StringRegExpReplace($String, $Patern, $Replace)
    While StringInStr($String, $Replace & $Replace) <> 0
        $String = StringReplace($String, $Replace & $Replace, $Replace)
    WEnd
    Return $String
EndFunc

And this one is New function + usage example (it's uses a genius RegExp engine ):

#include <Date.au3>

$sFileName = _Now() & "_File.txt"
$sFileName = _FileGetValidName($sFileName, '[*?\\/|:<>"]', '_')

ConsoleWrite("Replacements: " & @extended & @CRLF & "Result: " & $sFileName)

;Will output something like this:
;  Replacements: 2
;  Result: 19.01.2009 4_15_59_File.txt

Func _FileGetValidName($sString, $sPatern='[*?\\/|:<>"]', $sReplace='_')
    If StringStripWS($sString, 8) = '' Then Return $sString
    
    $sString = StringRegExpReplace($sString, $sPatern, $sReplace)
    Return SetExtended(@extended, StringRegExpReplace($sString, '(' & $sReplace & '+)', $sReplace))
EndFunc

I hope that someone will find it usefull

Edited June 12, 2009 by MrCreatoR

[MCP]

I hope that someone will find it usefull

Indeed, thx a lot

[goldenix]

very nice, but why do you need this line?

#include <Date.au3>
$sFileName = _Now() & "_File.txt"

Thanx for UDF.

[KaFu]

Only to create a filename containing invalid characters (":") for the example.

Edited June 4, 2009 by KaFu

[MrCreatoR]

Oops, forgot to use $sFileName instead of $sString in the function call