게시판 본문 ASP, ASP.NET, IIS & Script - Read Only

정규식 질문인데요...
작성자: 오마르 작성일시: 2005-01-05 12:14, 조회수: 1,028
이 함수좀 봐주세요.. http:로 시작 하는 것을 자동링크 하려구 하는데요.. '## 함수 uAutolink(내용) function uAutolink(contents) dim Matches, Match dim patrn patrn = "[^='"">]" <== 이부분 patrn = patrn & "(http\|https\|ftp\|mms):\/\/[0-9a-z-]+(\.[_0-9a-z-]+)+(:[0-9]{2,4})?\/?" '++ domain+port patrn = patrn & "([\.~_0-9a-z-]+\/?)" '++ sub roots patrn = patrn & "(\S+\.[_0-9a-z]+)?" '++ file & extension string patrn = patrn & "(\?[_0-9a-z각-힣#%&=\-\+]+)" '++parameters set Matches = RegExpExec(patrn, contents, true) For Each Match In Matches contents = replace(contents, Match.Value, "<a href='"&Match.Value&"' target='new'>"&Match.Value&"</a>") Next uAutolink = contents end function response.write uAutolink("http://omar.snbsoft.co.kr")&" " response.write uAutolink("http://omar.snbsoft.co.kr")&" " response.write uAutolink(" http://omar.snbsoft.co.kr afasdf 그래서 나는 므하하") 이부분을 보시면요... 무엇을 하려고 한거냐면요.. ^-^;; http:// 어쩌구 저쩌구 이렇게 이미 태그로 감싸진건 자동링크를 안걸려구 했는데요... 흠... 다른 태그들 까지 다 막히구... 아궁.. " 로 시작하지 않는" 라고 패턴은 정했는데요.. 이게 잘 안돼네요.. =ㅅ=;;;; " 로 시작하지 않는" 이걸 어캐 구현 해야 하나요?? 아참.. RegExpExec 는 일치한 패턴을 돌려주는 함수에요... Public Function RegExpExec(Patrn, TestStr, bGlobal) Dim ObjRegExp Set ObjRegExp = New RegExp ObjRegExp.Pattern = Patrn '++ 정규 표현식 패턴 ObjRegExp.Global = True '++ 문자열 전체를 검색함 ObjRegExp.IgnoreCase = bGlobal '++ 대.소문자 구분 안함 Set RegExpExec = ObjRegExp.Execute(TestStr) Set ObjRegExp = Nothing End Function 즐거운 하루 되세요 ^^
IP 주소: 222.108.201.184

정규식 질문인데요...

작성자: 오마르

작성일시: 2005-01-05 12:14, 조회수: 1,028

이 함수좀 봐주세요..

http:로 시작 하는 것을 자동링크 하려구 하는데요..


'## 함수 uAutolink(내용)
function uAutolink(contents)
	dim Matches, Match
	dim patrn
	patrn = "[^='"">]"            <== 이부분

	patrn = patrn & "(http|https|ftp|mms):\/\/[0-9a-z-]+(\.[_0-9a-z-]+)+(:[0-9]{2,4})?\/?"       '++ domain+port
	patrn = patrn & "([\.~_0-9a-z-]+\/?)*"                    '++ sub roots
	patrn = patrn & "(\S+\.[_0-9a-z]+)?"                     '++ file & extension string
	patrn = patrn & "(\?[_0-9a-z각-힣#%&=\-\+]+)*" '++parameters

	set Matches = RegExpExec(patrn, contents, true)
	For Each Match In Matches
		contents = replace(contents, Match.Value, "<a href='"&Match.Value&"' target='new'>"&Match.Value&"</a>")
	Next

	uAutolink = contents
end function

response.write uAutolink("http://omar.snbsoft.co.kr")&"
"
response.write uAutolink("http://omar.snbsoft.co.kr")&"
"
response.write uAutolink(" http://omar.snbsoft.co.kr afasdf 그래서 나는 므하하")

이부분을 보시면요...

무엇을 하려고 한거냐면요.. ^-^;;
http:// 어쩌구 저쩌구 이렇게 이미 태그로 감싸진건 자동링크를
안걸려구 했는데요... 흠...

다른 태그들 까지 다 막히구... 아궁..

" 로 시작하지 않는"
라고 패턴은 정했는데요.. 이게 잘 안돼네요.. =ㅅ=;;;;

" 로 시작하지 않는" 이걸 어캐 구현 해야 하나요??

아참..
RegExpExec 는 일치한 패턴을 돌려주는 함수에요...

Public Function RegExpExec(Patrn, TestStr, bGlobal)  
	Dim ObjRegExp
	Set ObjRegExp = New RegExp

	ObjRegExp.Pattern = Patrn                      '++ 정규 표현식 패턴
	ObjRegExp.Global = True                        '++ 문자열 전체를 검색함
	ObjRegExp.IgnoreCase = bGlobal           '++ 대.소문자 구분 안함

	Set RegExpExec = ObjRegExp.Execute(TestStr)
	Set ObjRegExp = Nothing
End Function

즐거운 하루 되세요 ^^

IP 주소: 222.108.201.184

목록으로

이전 다음

전체 2,095 건의 게시물, 84 페이지로 구성된 ASP, ASP.NET, IIS & Script 게시판의 48 페이지입니다.

번호	게시물 제목	작성자	작성일시	조회수
950	re: FileCube에서 화일 업로드 문제...	송원석	2005-01-12	4,760
949	re: FileCube에서 화일 업로드 문제...	전찬석	2005-01-12	2,487
948	smtp 메일관련 질문 입니다.	홍완식	2005-01-07	2,695
947	re: smtp 메일관련 질문 입니다.	송원석	2005-01-07	2,549
946	re: smtp 메일관련 질문 입니다.	송원석	2005-01-10	2,698
	정규식 질문인데요...	오마르	2005-01-05	1,028
944	re: 정규식 질문인데요... [1]	송원석	2005-01-05	2,576
943	익스플로러에서 이미지 비율 조정 인데요..	오마르	2005-01-04	921
942	re: 익스플로러에서 이미지 비율 조정 인데요..	송원석	2005-01-04	2,634
940	Filecube 소스에 EnableSessionState=False 에 대해서...	이쁜이	2004-12-31	3,043
939	re: Filecube 소스에 EnableSessionState=False 에 대해서...	송원석	2005-01-02	2,677
938	추가 질문입니다.	이쁜이	2005-01-03	2,760
937	re: 추가 질문입니다.	송원석	2005-01-03	2,675
936	답변에 진심으로 감사드립니다.(냉무)	이쁜이	2005-01-03	2,510
935	[질문] ABC 업로드에서 고용량 파일 업로드?	ASaP	2004-12-31	2,488
934	re: [질문] ABC 업로드에서 고용량 파일 업로드?	송원석	2004-12-31	5,802
933	Application 이 먹지를 않네요~	궁금이	2004-12-29	2,648
932	re: Application 이 먹지를 않네요~	송원석	2004-12-29	2,575
931	파일큐브0.0.7 Prepare 에 대한 질문입니다.	이쁜이	2004-12-28	3,062
930	re: 파일큐브0.0.7 Prepare 에 대한 질문입니다.	송원석	2004-12-29	2,709
929	쿼리 질문입니다.	궁금이	2004-12-27	886
928	re: 쿼리 질문입니다. [1]	송원석	2004-12-27	2,415
927	안녕하세요~ 자바스크립트 질문인데요.. ^^	오마르	2004-12-27	957
926	re: 안녕하세요~ 자바스크립트 질문인데요.. ^^ [1]	송원석	2004-12-27	2,770
925	정규식 질문입니다. 테그 안에 있는 이것(' or ") 없애기	포카포카	2004-12-22	904

첫 페이지 이전 페이지

다음 페이지 끝 페이지