Function ReplaceFunc(srcString, patrn, replStr)
	Dim regEx            ' 변수를 만듭니다.
	Set regEx = New RegExp        ' 정규식을 만듭니다.
	regEx.Pattern = patrn            ' 패턴을 설정합니다.
	regEx.IgnoreCase = True           ' 대/소문자를 구분하지 않도록 합니다.
	regEx.Global = True
	ReplaceFunc = regEx.Replace(srcString, replStr)   ' 문자열을 대체합니다.
End Function


 	Dim a
	
	a="010-1234-1234sdfdsf-dsfs"
	a=ReplaceFunc(a,"[^0-9]","")
	Response.write a



결과) 01012341234

+ Recent posts