문자열을 원하는 길이(글자수)에서 끊어(자르기) 말줄임표로 보이기 > 기술자료

• 목록

방법.1
<% 
' =========================================================
' ASP 글자수 체크하기  문자열을 원하는 길이만큼 자르기
' 사용법 : title = nleft(rs("title"),40)
' =========================================================
Function nLeft(nLeftStrk,nLeftStrcut)
  dim bytesize, nLeft_count
  bytesize = 0
  For nLeft_count = 1 to len(nLeftStrk)
    If asc(mid(nLeftStrk,nLeft_count,1)) > 0 Then '한글값은 0보다 작다
      bytesize = bytesize + 1 '한글이 아닌경우 1Byte
    Else
      bytesize = bytesize + 2 '한글인 경우 2Byte
    End If
    If CInt(nLeftStrcut) >= CInt(bytesize) Then
      nLeft = nLeft & mid(nLeftStrk,nLeft_count,1)   
    End If
  Next
  If len(nLeftStrk) > len(nLeft) Then
    nLeft=left(nLeft,len(nLeft)) &"..."
  End if
End Function
%>

사용방법은
<% title = nleft(rs("title"),40) %>


참고사이트
http://blog.naver.com/absenteye?Redirect=Log&logNo=100048289644 
http://magic.littleworld.net/ai/kmod.asp?no=492&isn=&mymsg 
http://kin.naver.com/qna/detail.nhn?d1id=1&dirId=1040204&docId=71082593 



방법.2

일정글자를 호출해서 사용하고자 할때 유용
특히 우편번호를 6자리만 디비에 저장후 호출할때 유용함

' zip : 우편번호 데이타
zipcode1 = Mid(zip,1,3)
zipcode2 = Mid(zip,4,7)



 

The Mid function returns a specified number of characters from a string.
Tip: Use the Len function to determine the number of characters in a string.

Syntax

Mid(string,start[,length])

 

Parameter	Description
string	Required. The string expression from which characters are returned
start	Required. Specifies the starting position. If set to greater than the number of characters in string, it returns an empty string ("")
length	Optional. The number of characters to return

Example 1

dim txt txt="This is a beautiful day!" document.write(Mid(txt,1,1)) Output: T

Example 2

dim txt txt="This is a beautiful day!" document.write(Mid(txt,1,11)) Output: This is a b

Example 3

dim txt txt="This is a beautiful day!" document.write(Mid(txt,1)) Output: This is a beautiful day!

Example 4

dim txt txt="This is a beautiful day!" document.write(Mid(txt,10)) Output: beautiful day!

참고사이트
http://starplatina.tistory.com/entry/ASP-Substring 
http://www.w3schools.com/vbscript/