classic asp contents image find soruce
내용에서 이미지 찾기 소스이다
정규식으로 하나의 이미지만 건져와서 게시하여 사용한다'******************************************************
' 이미지 찾기
'******************************************************
Function UFGetImageContent(var)
Dim regEx, Matches, d_Match, Match
Set regEx = New RegExp ' 정규식을 작성합니다.
regEx.IgnoreCase = True ' 대/소문자 구분 안함을 설정합니다.
regEx.Global = True ' 전역을 설정합니다.
regEx.Pattern = "[^= ']*\.(gif|jpg|bmp)"
Set Matches = regEx.Execute(var) ' 찾기를 실행합니다.
d_Match = ""
For Each Match in Matches ' Matches 컬렉션을 반복합니다.
d_Match = Match.value
d_Match = Replace(d_Match,"""","")
Exit for
Next
UFGetImageContent = d_Match
End Function
Function UFGetImageContent_jpg(var)
Dim regEx, Matches, d_Match, Match
Set regEx = New RegExp ' 정규식을 작성합니다.
regEx.IgnoreCase = True ' 대/소문자 구분 안함을 설정합니다.
regEx.Global = True ' 전역을 설정합니다.
regEx.Pattern = "[^= ']*\.(jpg|png|bmp)"
Set Matches = regEx.Execute(var) ' 찾기를 실행합니다.
d_Match = ""
For Each Match in Matches ' Matches 컬렉션을 반복합니다.
d_Match = Match.value
d_Match = Replace(d_Match,"""","")
Exit for
Next
UFGetImageContent_jpg = d_Match
End Function
