ASP-String-Interception-Funktion
'************************************************** * *********
'Funktion: cutStr[str(strlen)]
'Parameter: str, zu verarbeitende Zeichenfolge, strlen, abgefangene Länge
'Autor: Mumu
„Datum: 12.07.2007
'Beschreibung: Einen String mit der angegebenen Länge abfangen
'Beispiel: <%=cutStr("Willkommen bei Alixixi",5)%>
'************************************************** * *********
Funktion cutStr(str,strlen)
Wenn str = "" Dann
cutStr = „cutStr-Funktionsausnahme: Zeichenfolge ist leer“
Exit-Funktion
Ende wenn
'------------Quellenlängenprüfung
Wenn strlen = "" Dann
cutStr = „cutStr-Funktionsausnahme: Länge nicht angegeben“
Exit-Funktion
Ende wenn
Wenn CInt(strlen) = 0, dann
cutStr = „cutStr-Funktionsausnahme: Länge ist 0“
Exit-Funktion
Ende wenn
'----------Ermitteln Sie die Länge des Quellzeichens
dim l,t,c,i
l=len(str)
t=0
'----------Schleife zum Abfangen von Zeichen
für i=1 bis l
c=Abs(Asc(Mid(str,i,1)))
'------Bestimmen Sie, ob es sich um ein chinesisches Schriftzeichen handelt
wenn c>255 dann
t=t+2
anders
t=t+1
endIf
'------Bestimmen Sie, ob die angegebene Länge erreicht ist
wenn t>=strlen dann
cutStr=left(str,i)&".."
Ausgang für
anders
cutStr=str
Ende wenn
nächste
cutStr=replace(cutStr,chr(10),"")
Endfunktion
''************************************************** *********
'Funktion: strlen[str]
'Parameter: str, zu verarbeitende Zeichenfolge
'Autor: Mumu
„Datum: 12.7.2007
'Beschreibung: Bestimmen Sie die Länge der Zeichenfolge. Die Länge chinesischer Zeichen beträgt 2
'Beispiel: <%=strlen("Willkommen bei Alixixi")%>
'************************************************** * *********
Funktion strlen(str)
dim p_len
p_len=0
strlen=0
if trim(str)<>"" then
p_len=len(trim(str))
für xx=1 bis p_len
wenn asc(mid(str,xx,1))<0 dann
strlen=int(strlen) + 2
anders
strlen=int(strlen) + 1
Ende wenn
nächste
Ende wenn
Funktion beenden
Fangen Sie die n Zeichen auf der linken Seite ab: ***************************************** * ****************
'Funktion: LeftTrue(str,n)
'Parameter: str, zu verarbeitende Zeichenfolge, n, abgefangene Länge
'Autor: Mumu
„Datum: 12.07.2007
'Beschreibung: Funktion zur Anzeige der n Zeichen auf der linken Seite (automatische Erkennung chinesischer Zeichen).
'Beispiel: <%=LeftTrue("Willkommen bei Alixixi",6)%>
'************************************************** * *********
Funktion LeftTrue(str,n)
Wenn len(str)<=n/2 Dann
LeftTrue=str
Anders
Dim TStr
Dim l,t,c
Dim ich
l=len(str)
t=l
TStr=""
t=0
für i=1 bis l
c=asc(mid(str,i,1))
Wenn c<0, dann ist c=c+65536
Wenn c>255 dann
t=t+2
Anders
t=t+1
Ende wenn
Wenn t>n, dann beenden Sie für
TStr=TStr&(mid(str,i,1))
nächste
LeftTrue = TStr
Ende wenn
Funktion beenden
Artikel, die Sie interessieren könnten: