Функция длины текста перехвата поддерживает UTF-8, что может удовлетворить большинство пользователей, перехватывающих строки. Скопируйте код кода следующим образом:
'************************************
'Функция перехвата длины текста, поддерживает UTF-8
'Входные параметры:
' 1. Текстовое содержимое
' 2. Максимальная длина текста
'************************************
Открытая функция Cut_Title(Title,TLen)
Дим к, я, д, с
ИКБ
Тусклый для всего
Если CDbl(TLen) > 0 Тогда
к=0
d=StrLen(Название)
iStr=
ForTotal = Len(Название)
Для i=1 до ForTotal
c=Abs(AscW(Mid(Title,i,1)))
Если с>255 Тогда
к=к+2
Еще
к=к+1
Конец, если
iStr=iStr&Mid(Заголовок,i,1)
Если CLng(k)>CLng(TLen) Тогда
iStr=iStr..
Выход для
Конец, если
Следующий
Cut_Title=iStr
Еще
Cut_Title=
Конец, если
Конечная функция
'******************************
'Функция определения длины текста, поддерживает UTF-8
'Входные параметры:
' 1. Текстовое содержимое
'******************************
Открытая функция StrLen(strText)
Дим к, я, с
Тусклый для всего
к=0
ForTotal = Len(strText)
Для i=1 до ForTotal
c=Abs(AscW(Mid(strText,i,1)))
Если с>255 Тогда
к=к+2
Еще
к=к+1
Конец, если
Следующий
СтрЛен=к
Конечная функция