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

멋진, 나는 바꿔 치기없이, 그런 것을 찾고 있었다. .. 고마워. –

관련 문제