A função de comprimento de texto de interceptação suporta UTF-8, o que pode satisfazer a maioria dos amigos que interceptam strings. Copie o código do código da seguinte forma:
'************************************
'Função de interceptação de comprimento de texto, suporta UTF-8
'Parâmetros de entrada:
' 1. Conteúdo do texto
'2. Comprimento máximo do texto
'************************************
Função Pública Cut_Title(Título,TLen)
Dim k,i,d,c
ikB
Dim ForTotal
Se CDbl(TLen) > 0 Então
k=0
d=StrLen(Título)
iStr =
ForTotal = Len(Título)
Para i=1 para ForTotal
c=Abs(AscW(Mid(Título,i,1)))
Se c>255 então
k=k+2
Outro
k=k+1
Terminar se
iStr=iStr&Mid(Título,i,1)
Se CLng(k)>CLng(TLen) Então
iStr=iStr..
Sair para
Terminar se
Próximo
Cut_Title=iStr
Outro
Cortar_Título=
Terminar se
Função final
'******************************
'Função de detecção de comprimento de texto, suporta UTF-8
'Parâmetros de entrada:
' 1. Conteúdo do texto
'******************************
Função pública StrLen(strText)
Dim k, eu, c
Dim ForTotal
k=0
ForTotal = Len(strTexto)
Para i=1 para ForTotal
c=Abs(AscW(Mid(strTexto,i,1)))
Se c>255 então
k=k+2
Outro
k=k+1
Terminar se
Próximo
StrLen=k
Função final