문자열을 원하는 길이만큼 자르기 > 온라인강의

본문 바로가기
 
 
 
오늘 1,079
어제 1,706
최대 2,526
전체 3,395,598

최근 방문자

1011
1853
1775
1756
1706
1079
18 19 20 21 22 23
비즈니스의 시작 비즈명함 ~ 가격, 품질, 배송 3가지 만족을 드리는 비즈명함 / 즉석명함 / 급행서비스 / 서울 전지역 수도권일부 3시간배송

select * from g5_menu where me_use = '1' and me_link like '%lecture%'
온라인강좌 홈 > 온라인강좌 > 온라인강좌

ClassicASP | 문자열을 원하는 길이만큼 자르기 (update. 2015-08-18)

페이지 정보

작성일2013-10-09 22:56 조회4,563회 댓글0건

본문

utf-8 페이지의 한글을 자르기할때는 asc 함수의 오류가 발생합니다.
이유는 http://www.devpia.com/MAEUL/Contents/Detail.aspx?BoardID=56&MAEULNo=22&no=128882&ref=128821 를 참고

utf-8 일때는 http://www.happyjung.com/bbs/board.php?bo_table=lecture&wr_id=638 를 사용하세요

<%
' --------------------------------------------------------
' 문자열을 원하는 길이만큼 자르기 < euc-kr 전용 / utf-8 일때는 asc 함수 오류발생>
' --------------------------------------------------------
function Cut_Str(long_str, cutting_len)
  dim i, short_str, tail, kor, eng

  tail = "..."
  long_str = trim(long_str)
  for i = 0 to cutting_len-1
    if asc(mid(long_str, i+1, 1)) >= 128 then
       kor = kor + 1
    else
      eng = eng + 1
    end if
  next
  if len(long_str) > cutting_len then
    if kor mod 2 = 1 then
      cutting_len = cutting_len - 1
    end if
    short_str = mid(long_str, 1, cutting_len)
    Cut_Str = short_str & tail
  else
    short_str = mid(long_str, 1, cutting_len)
    Cut_Str = short_str
  end if
end function

%>

사용방법
<%=Cut_Str(rs_title, 45)%>


참고자료
http://jongjongbari.tistory.com/entry/ASP-함수-문자열을-원하는-길이만큼-자르기
  • 페이스북으로 보내기
  • 트위터로 보내기
  • 구글플러스로 보내기

댓글목록

등록된 댓글이 없습니다.


목록

Total 2,005건 1 페이지
온라인강의 목록
번호 제목
2005
2004
2003
2002
2001
2000
1999
1998
1997
1996
1995
1994
1993
1992
1991
1990
1989
1988
1987
1986
1985
1984
1983
1982
1981
게시물 검색
 
 
상호: 해피정닷컴 대표:정창용 사업자등록번호:119-05-36414 (08394) 서울시 구로구 디지털로 242 한화비즈메트로1차 1502호
전화: 070-7600-3500 팩스:02-865-3528 개인정보관리:정창용 mail@happyjung.com 에스크로확인
개인정보취급방침
COPYRIGHT 2001~2017 해피정닷컴. All rights reserved. 부가통신사업신고:서울체신청-1217 통신판매신고:2014-서울구로-0074
 
모바일 버전으로 보기