La función de interceptación de longitud de texto admite UTF-8, lo que puede satisfacer a la mayoría de los amigos que interceptan cadenas. Copie el código de código de la siguiente manera:
'************************************
'Función de interceptación de longitud de texto, compatible con UTF-8
'Parámetros de entrada:
' 1. Contenido del texto
' 2. Longitud máxima del texto
'************************************
Función pública Cut_Title(Título,TLen)
Dim k,i,d,c
ikB
Atenuado para total
Si CDbl(TLen) > 0 Entonces
k=0
d=StrLen(Título)
iStr=
ParaTotal = Len(Título)
Para i=1 Para Total
c=Abs(AscW(Medio(Título,i,1)))
Si c>255 Entonces
k=k+2
Demás
k=k+1
Terminar si
iStr=iStr&Mid(Título,i,1)
Si CLng(k)>CLng(TLen) Entonces
iStr=iStr..
Salir por
Terminar si
Próximo
Cut_Title=iStr
Demás
Título_corte=
Terminar si
Función final
'******************************
'Función de detección de longitud de texto, admite UTF-8
'Parámetros de entrada:
' 1. Contenido del texto
'******************************
Función pública StrLen (strText)
tenue k,i,c
Atenuado para total
k=0
ParaTotal = Len(strText)
Para i=1 Para Total
c=Abs(AscW(Medio(strText,i,1)))
Si c>255 entonces
k=k+2
Demás
k=k+1
Terminar si
Próximo
StrLen=k
Función final