가로채기 텍스트 길이 기능은 문자열을 가로채는 대부분의 친구들을 만족시킬 수 있는 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
기능 종료