긴 문자열 자르기

목록을 출력할때, 제목이 너무 길면 보기 않좋다. 그럴 때 줄임표시 " ..." 로 처리하는 방법.

FUNCTION SplitString(strValue, nLength)
 DIM nCurLen, nCnt
 nCurLen = 0
 
 FOR nCnt = 1 TO Len(strValue)
  nCurLen = nCurLen + CharLength(Mid(strValue, nCnt, 1))
  
  IF nCurLen >= nLength THEN
   EXIT FOR
  END IF
 NEXT
 
 IF nCnt < Len(strValue) THEN
  SplitString = Left(strValue, nCnt) & ".."
 ELSE
  SplitString = Left(strValue, nCnt)
 END IF
END FUNCTION

FUNCTION CharLength(strChar)
 DIM strTmp
 strTmp = Server.URLEncode(strChar)
 
 IF Len(strTmp) = 6 THEN
  CharLength = 2
 ELSE
  CharLength = 1
 END IF
END FUNCTION

예>
SplitString("블로그 연말 결산", 10)

결과>

블로그 연말..