ASP UTF-8 인코딩에서 문자열 가로채기 및 길이 획득 기능

가로채기 텍스트 길이 기능은 문자열을 가로채는 대부분의 친구들을 만족시킬 수 있는 UTF-8을 지원합니다. 다음과 같이 코드 코드를 복사합니다.

'************************************

'텍스트 길이 가로채기 기능, UTF-8 지원

'입력 매개변수:

' 1. 텍스트 내용

' 2. 최대 텍스트 길이

'************************************

공개 함수 Cut_Title(Title,TLen)

희미한 k,i,d,c

ikB

Dim ForTotal

CDbl(TLen) > 0이면

k=0

d=StrLen(제목)

iStr=

ForTotal = Len(제목)

i=1의 경우 ForTotal로

c=Abs(AscW(Mid(제목,i,1)))

c>255이면

k=k+2

또 다른

k=k+1

종료 조건

iStr=iStr&Mid(제목,i,1)

CLng(k)>CLng(TLen)이면

iStr=iStr..

종료 대상

종료 조건

다음

Cut_Title=iStr

또 다른

컷_제목=

종료 조건

기능 종료

'********************************

'텍스트 길이 감지 기능, UTF-8 지원

'입력 매개변수:

' 1. 텍스트 내용

'********************************

공용 함수 StrLen(strText)

희미한 k,i,c

Dim ForTotal

k=0

ForTotal = Len(strText)

i=1의 경우 ForTotal로

c=Abs(AscW(Mid(strText,i,1)))

c>255이면

k=k+2

또 다른

k=k+1

종료 조건

다음

StrLen=k

기능 종료