unerlaubte zeichen aus dateinamen umwandeln

Hallo

ich will sicherstellen, daß eine datei korrekt gespeichert wird und habe aus diesem grund folgende funktion gebastelt:

Global $String=""

For $i=1 to 255

$String&=Chr($i)

Next

MsgBox(0,"erlaubte zeichen",_FileNameEncode($String))

MsgBox(0,"TestDateiname",_FileNameEncode(" Test/Dateinaäme?Test<Test>.txt"))

Func _FileNameEncode($Filename)

Local Const $ValidChars[256] = _

[0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, _

0, 1, 0, 0, 1, 0, 0, 0, 1, 1, 0, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, _

0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 1, _

0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, _

0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, _

0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, _

0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, _

0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]

Local $sEncoded=""

For $i = 1 To StringLen($Filename)

Local $c = StringMid($Filename, $i, 1)

If Number($ValidChars[Asc($c)]) Then

$sEncoded &= $c

Else

$sEncoded &= StringFormat("_", Asc($c))

EndIf

Next

Return $sEncoded

EndFunc

aus dem ascii-satz werden nur folgende zeichen zugelassen (alle unerlaubten werden durch "_" ersetzt)

________________________________!__$___()_+,-._0123456789_______ABCDEFGHIJKLMNOPQRSTUVWXYZ______abcdefghijklmnopqrstuvwxyz_____________________________________________________________________________________________________________________________________

weiß zufällig jemand, welche zeichen erlaubt sind und welche dateinamen ungültig, dann könnte man diese funktion noch erweitern...
momentan lasse ich ja nicht alle gültigen zeichen zu...

und zb.: der dateiname "LPT1" wäre ungültig!?

falls sich damit jemand auskennt, dann bitte ich hiermit um ergänzungen

lgE

cool - dankeschön!

mit StringRegExpReplace hab ich zwar etwas herumprobiert, hab das aber nicht hinbekommn!