[ASP] 한글, 영문 문자열 자르기

<%

Function simpleCut(ByVal cutString, num) ' 한글,영문을 같이 쓸경우 정확하지 않다

If len(cutString) > num Then

simpleCut = left(cutString,num - 1) & "..."

End If

End Function

Function strCutting(Str, Num)

strLength = 0

For strNum = 1 To Len(str) ' strNum이 0부터 시작하면 오류가 발생한다.

Temp = Asc(Mid(Str, strNum, 1))

strCut  = strCut & Mid(Str, strNum, 1)

If Temp < 0 Then '(-) 가 나오면 한글

strLength = strLength + 1.4

Else         

strLength = strLength + 1

End If

If strLength >= Num Then ' Num 이상일경우 잘라준다

strCut = strCut & "..."

Exit For 

End If

Next

strCutting = strCut

End Function

aa = "변환할 문자열입니다. asdasd!!!!테스트"

Response.write "simpleCut=" & simpleCut(aa, 15) & "<br>" '출력 : simpleCut=변환할 문자열입니다. as...

Response.write "strCutting=" & strCutting(aa, 15) & "<br>" '출력 : strCutting=변환할 문자열입니다. ...

%>