Funktionen zum Abfangen von Zeichenfolgen und zur Längenerfassung unter ASP UTF-8-Kodierung

Die Funktion zum Abfangen von Textlängen unterstützt UTF-8, was die meisten Freunde zufriedenstellen kann, die Zeichenfolgen abfangen. Kopieren Sie den Codecode wie folgt:

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

'Textlängenfunktion abfangen, unterstützt UTF-8

'Eingabeparameter:

' 1. Textinhalt

' 2. Maximale Textlänge

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

Öffentliche Funktion Cut_Title(Title,TLen)

Dim k,i,d,c

ikB

Dimmen Sie ForTotal

Wenn CDbl(TLen) > 0, dann

k=0

d=StrLen(Titel)

iStr=

ForTotal = Len(Titel)

Für i=1 bis ForTotal

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

Wenn c>255, dann

k=k+2

Anders

k=k+1

Ende wenn

iStr=iStr&Mid(Titel,i,1)

Wenn CLng(k)>CLng(TLen) Dann

iStr=iStr..

Ausgang für

Ende wenn

Nächste

Cut_Title=iStr

Anders

Cut_Title=

Ende wenn

Funktion beenden

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

'Funktion zur Erkennung der Textlänge, unterstützt UTF-8

'Eingabeparameter:

' 1. Textinhalt

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

Öffentliche Funktion StrLen(strText)

Dim k,i,c

Dimmen Sie ForTotal

k=0

ForTotal = Len(strText)

Für i=1 bis ForTotal

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

Wenn c>255, dann

k=k+2

Anders

k=k+1

Ende wenn

Nächste

StrLen=k

Funktion beenden