[vbscript] 문자열 앞,뒤의 White Space를 제거하는 TrimEx 함수

VBScript의 문자열 처리 함수 중 Trim이란게 있다. 문자열 앞,뒤의 스페이스를 제거해주는 함수이다. 이 함수는 스페이스만 제거를 해서 스페이스 외에 탭, 뉴라인 등도 같이 제거를 해주는 함수가 필요했다. 다음의 TrimEx 함수이다.

Function TrimEx(sStr)
 Dim oRegExp, sBuffer


 Set oRegExp = New RegExp
 oRegExp.Pattern = “^\s*”
 sBuffer = oRegExp.Replace(sStr, “”)


 oRegExp.Pattern = “\s*$”
 sBuffer = oRegExp.Replace(sBuffer, “”)


 Set oRegExp = Nothing


 TrimEx = sBuffer
End Function