문자열을 원하는 길이만큼 자르기 > 기술자료

• 목록

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

utf-8 일때는 https://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-함수-문자열을-원하는-길이만큼-자르기