묻고답하기
page_full_width" class="col-xs-12" |cond="$__Context->page_full_width">
제목에서 글자수 제한할 때 영문일 경우와 한글일 경우를 나눠서 제한하고 싶습니다.
2003.10.28 15:37
안녕하세요~ ASP 로 코딩을 하다가
제목에서 글자수 제한할 때 영문일 경우와 한글일 경우를 나눠서 제한을
해야 할 것 같은데..
어떻게 손 보면 좋을까요?
//------------------------------------------------------------------------------------
Function cutStrContents(strValue,num)
'html내용 걸러내서 출력해 주기..
cursor1 = 1
cursor2 = 1
if InStr(1,strValue,"<body") <> 0 OR InStr(1,strValue,"<BODY") <> 0 then
'body가 있는경우....
if InStr(1,strValue,"<body") <> 0 then
cursor1 = InStr(1,strValue,"<body")
else
cursor1 = InStr(1,strValue,"<BODY")
end if
cursor2 = inStr(cursor1,strValue,">")
' response.write InStr(1,strValue,"<body")
if len(strValue)-(cursor1+cursor2) <> 0 then
strValue = right(strValue,len(strValue)-cursor2)
end if
end if
cursor1 = 1
cursor2 = 1
while inStr(cursor1,strValue,"<") <> 0
cursor1 = inStr(cursor1,strValue,"<")
cursor2 = inStr(cursor1,strValue,">")
strTemp = mid(strValue, cursor1, cursor2-cursor1+1)
strValue = replace(strValue, strTemp, "")
cursor1 = 1
wend
if len(strValue) > num then
strValue = left(strValue, num) & ".."
end if
cutStrContents = strValue
end Function
//--------------------------------------------------------------------------------
컷팅 함수 입니다. 이렇게 하면 글자수를 5 로 제한할 경우, 한글도 5, 영문도 5글자만 나오는군요..
- - ; 영문은 2배 더 나와야 한글이랑 길이가 비슷 하잖아욤.. ㅠ_ㅠ
이걸 조절해야 하는데.. 어찌 하면 좋을지...
제목이라서, 한/영이 섞일 수도 있고 따로 받을 수도 없답니다... ㅠ_ㅠ
제목에서 글자수 제한할 때 영문일 경우와 한글일 경우를 나눠서 제한을
해야 할 것 같은데..
어떻게 손 보면 좋을까요?
//------------------------------------------------------------------------------------
Function cutStrContents(strValue,num)
'html내용 걸러내서 출력해 주기..
cursor1 = 1
cursor2 = 1
if InStr(1,strValue,"<body") <> 0 OR InStr(1,strValue,"<BODY") <> 0 then
'body가 있는경우....
if InStr(1,strValue,"<body") <> 0 then
cursor1 = InStr(1,strValue,"<body")
else
cursor1 = InStr(1,strValue,"<BODY")
end if
cursor2 = inStr(cursor1,strValue,">")
' response.write InStr(1,strValue,"<body")
if len(strValue)-(cursor1+cursor2) <> 0 then
strValue = right(strValue,len(strValue)-cursor2)
end if
end if
cursor1 = 1
cursor2 = 1
while inStr(cursor1,strValue,"<") <> 0
cursor1 = inStr(cursor1,strValue,"<")
cursor2 = inStr(cursor1,strValue,">")
strTemp = mid(strValue, cursor1, cursor2-cursor1+1)
strValue = replace(strValue, strTemp, "")
cursor1 = 1
wend
if len(strValue) > num then
strValue = left(strValue, num) & ".."
end if
cutStrContents = strValue
end Function
//--------------------------------------------------------------------------------
컷팅 함수 입니다. 이렇게 하면 글자수를 5 로 제한할 경우, 한글도 5, 영문도 5글자만 나오는군요..
- - ; 영문은 2배 더 나와야 한글이랑 길이가 비슷 하잖아욤.. ㅠ_ㅠ
이걸 조절해야 하는데.. 어찌 하면 좋을지...
제목이라서, 한/영이 섞일 수도 있고 따로 받을 수도 없답니다... ㅠ_ㅠ
strlen=len(str)
for k = 1 to strlen
strCut = mid(str, k, 1)
char = asc(strcut)
char = left(char, 1)
if char = "-" then
strbyte = strbyte + 2
else
strbyte = strbyte + 1
end if
if cutlen < strbyte then
strres = strres & ".."
exit for
else
strres = strres & strcut
end if
next
cutstr = strres
end function