2011-08-30 51 views

回答

2

没有像您在ASP中描述的集成功能。
但是你可以用正则表达式来做。 可以如下:

Function FileNameEncode(ByVal strFileName) 
    Dim oReg 
    Set oReg = New RegExp 
    oReg.IgnoreCase = True 
    oReg.Global = True 
    oReg.Pattern = "[^a-z\d\s.]+" 
    FileNameEncode = Replace(oreg.Replace(strFileName, ""), " ", "_") 
    Set oReg = Nothing 
End Function 

'FileNameEncode("letters é$- 123ÖÇ.bat") returns "letters__123.bat" 

如果你通过文件名不带扩展名作为参数,你可以从图形中删除点焦炭。

+0

不错,我正在寻找类似的东西,没有一堆替换..谢谢。 –

相关问题