fonction d'interception de chaîne asp
'************************************************ * *********
'Fonction : cutStr[str(strlen)]
'Paramètres : str, chaîne à traiter, strlen, longueur interceptée
'Auteur : Mumu
'Date : 2007/7/12
'Description : intercepter une chaîne de longueur spécifiée
'Exemple : <%=cutStr("Bienvenue chez Alixixi",5)%>
'************************************************ * *********
fonction cutStr(str,strlen)
Si str = "" Alors
cutStr = "Exception de fonction cutStr : la chaîne est vide"
fonction de sortie
Fin si
'------------Vérification de la longueur de la source
Si strlen = "" Alors
cutStr = "exception de fonction cutStr : longueur non spécifiée"
fonction de sortie
Fin si
Si CInt(strlen) = 0 Alors
cutStr = "exception de fonction cutStr : la longueur est 0"
fonction de sortie
Fin si
'--------------Détecter la longueur des caractères source
faible l, t, c, je
l=len(chaîne)
t=0
'--------------Boucle pour intercepter les caractères
pour i=1 à l
c=Abs(Asc(Mid(str,i,1)))
'------Déterminez s'il s'agit d'un caractère chinois
si c>255 alors
t=t+2
autre
t=t+1
finSi
'------Détermine si la longueur spécifiée est atteinte
si t>=strlen alors
cutStr=gauche(str,i)&".."
sortie pour
autre
cutStr=str
finir si
suivant
cutStr=remplacer(cutStr,chr(10),"")
fonction de fin
'' ************************************************* *********
'Fonction : strlen[str]
'Paramètre : str, chaîne à traiter
'Auteur : Mumu
'Date : 2007/7/12
'Description : Déterminez la longueur de la chaîne, la longueur des caractères chinois est de 2
'Exemple : <%=strlen("Bienvenue chez Alixixi")%>
'************************************************ * *********
Fonction strlen(str)
dim p_len
p_len=0
strlen=0
si trim(str)<>"" alors
p_len=len(trim(str))
pour xx=1 à p_len
si asc(mid(str,xx,1))<0 alors
strlen=int(strlen) + 2
autre
strlen=int(strlen) + 1
finir si
suivant
finir si
Fonction de fin
Interceptez les n caractères à gauche '****************************************** * ****************
'Fonction : GaucheVrai(str,n)
'Paramètres : str, chaîne à traiter, n, longueur interceptée
'Auteur : Mumu
'Date : 2007/7/12
'Description : Fonction Afficher les n caractères à gauche (reconnaissance automatique des caractères chinois)
'Exemple : <%=LeftTrue("Bienvenue chez Alixixi",6)%>
'************************************************ * *********
Fonction LeftTrue(str,n)
Si len(str)<=n/2 Alors
GaucheVrai=str
Autre
Faible TStr
Faible l,t,c
Faible je
l=len(chaîne)
t = l
TStr=""
t=0
pour i=1 à l
c=asc(milieu(str,i,1))
Si c<0 alors c=c+65536
Si c>255 alors
t=t+2
Autre
t=t+1
Fin si
Si t>n Alors quittez pour
TStr=TStr&(milieu(str,i,1))
suivant
GaucheVrai = TStr
Fin si
Fonction de fin
Articles qui pourraient vous intéresser :