2011-08-30 83 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

不錯,我正在尋找類似的東西,沒有一堆替換..謝謝。 –

相關問題