asp 용 substring.

사내 NT 서버에서 쓰고자 만듬 ... ㅡㅡ.

asp 용 subtring .


php 라면 mb_ 내장함수 쓰면 만사 오케이~ 인데 --.


이 저주받은 스크립트 asp ㅡㅡ..........

아 자꾸 asp 만 하다가 자꾸 php 잊어버려.

php 조금 수정하려면 kr.php.net 들어가서 함수 뒤져봐야된다는.

후덜덜.......하긴 뭐 -ㅅ-.

asp 도 chm 파일 없으면 함수명도 모른다는 ㅋㅋ.

1. - 사용법
2.   Response.Write substring("동해물과 백두산이", 6, "...")
3. - 결과
4.   동해물...
5.  
6. Function substring(str, max_len, end_str)
7.     Dim i, cnt, return_str
8.     cnt = 0
9.     return_str = str
10.     for i = 1 to len(str)
11.         if Asc(mid(str, i,1)) <= 0 then
12.             cnt = cnt + 2
13.         else
14.             cnt =  cnt + 1
15.         end if
16.  
17.         if cnt >= max_len then
18.             return_str = mid(str, 1, i) & "..."
19.             exit for
20.         end if
21.     next
22.     substring = return_str
23. End Function

.