2012년 3월 24일 토요일

classic asp contents image find soruce

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

댓글 없음:

댓글 쓰기