función de interceptación de cadenas asp
'************************************************ * *********
'Función: cutStr[str(strlen)]
'Parámetros: str, cadena a procesar, strlen, longitud interceptada
'Autor: Mumu
'Fecha: 2007/7/12
'Descripción: intercepta una cadena de longitud especificada
'Ejemplo: <%=cutStr("Bienvenido a Alixixi",5)%>
'************************************************ * *********
función cortarCadena(cadena,cadena)
Si cadena = "" Entonces
cutStr = "excepción de la función cutStr: la cadena está vacía"
función de salida
Terminar si
'------------Comprobación de longitud de fuente
Si strlen = "" Entonces
cutStr = "excepción de la función cutStr: longitud no especificada"
función de salida
Terminar si
Si CInt(stren) = 0 Entonces
cutStr = "excepción de la función cutStr: la longitud es 0"
función de salida
Terminar si
'----------Detectar longitud de caracteres de origen
tenue l,t,c,i
l=len(cadena)
t=0
'---------- Bucle para interceptar caracteres
para i=1 a l
c=Abs(Asc(Medio(str,i,1)))
'------Determina si es un carácter chino
si c>255 entonces
t=t+2
demás
t=t+1
final si
'------Determina si se alcanza la longitud especificada
si t>=strelen entonces
cutStr=izquierda(cadena,i)&".."
salida para
demás
cortarcadena=cadena
terminar si
próximo
cutStr=reemplazar(cutStr,chr(10),"")
función final
''************************************************ *********
'Función: strlen[cadena]
'Parámetro: str, cadena a procesar
'Autor: Mumu
'Fecha: 2007/7/12
'Descripción: Determine la longitud de la cadena, la longitud de los caracteres chinos es 2
'Ejemplo: <%=strlen("Bienvenido a Alixixi")%>
'************************************************ * *********
Función strlen(cadena)
p_len tenue
p_len=0
strlen=0
si recortar(cadena)<>"" entonces
p_len=len(recortar(cadena))
para xx=1 a p_len
si asc(mid(str,xx,1))<0 entonces
cadena=int(cadena) + 2
demás
cadena=int(cadena) + 1
terminar si
próximo
terminar si
Función final
Intercepta los n caracteres de la izquierda '****************************************** * ****************
'Función: LeftTrue(cadena,n)
'Parámetros: str, cadena a procesar, n, longitud interceptada
'Autor: Mumu
'Fecha: 2007/7/12
'Descripción: Muestra la función n caracteres a la izquierda (reconocimiento automático de caracteres chinos)
'Ejemplo: <%=LeftTrue("Bienvenido a Alixixi",6)%>
'************************************************ * *********
Función LeftTrue(cadena,n)
Si len(cadena)<=n/2 Entonces
VerdaderoIzquierdo=cadena
Demás
TStr tenue
tenue l,t,c
Yo tenue
l=len(cadena)
t=l
TStr=""
t=0
para i=1 a l
c=asc(medio(cadena,i,1))
Si c<0 entonces c=c+65536
Si c>255 entonces
t=t+2
Demás
t=t+1
Terminar si
Si t>n Entonces salga para
TStr=TStr&(medio(cadena,i,1))
próximo
VerdaderoIzquierdo = TStr
Terminar si
Función final
Artículos que te pueden interesar: