função de interceptação de string asp
'********************************************** *********
'Função: cutStr[str(strlen)]
'Parâmetros: str, string a ser processada, strlen, comprimento interceptado
'Autor: Mumu
'Data: 12/07/2007
'Descrição: intercepta uma string de comprimento especificado
'Exemplo: <%=cutStr("Bem-vindo ao Alixixi",5)%>
'********************************************** *********
função cutStr(str,strlen)
Se str = "" Então
cutStr = "exceção da função cutStr: string está vazia"
função de saída
Terminar se
'-----------Verificação do comprimento da fonte
Se strlen = "" Então
cutStr = "exceção da função cutStr: comprimento não especificado"
função de saída
Terminar se
Se CInt(strlen) = 0 Então
cutStr = "exceção da função cutStr: comprimento é 0"
função de saída
Terminar se
'----------Detectar o comprimento do caractere de origem
escurecer l,t,c,i
eu=len(str)
t=0
'----------Loop para interceptar caracteres
para eu = 1 para eu
c=Abs(Asc(Médio(str,i,1)))
'------Determine se é um caractere chinês
se c>255 então
t=t+2
outro
t=t+1
fimSe
'------Determina se o comprimento especificado foi alcançado
se t>=strlen então
cutStr=esquerda(str,i)&".."
saída para
outro
cortarStr=str
terminar se
próximo
cutStr=substituir(cutStr,chr(10),"")
função final
''************************************************ *********
'Função: strlen[str]
'Parâmetro: str, string a ser processada
'Autor: Mumu
'Data: 12/07/2007
'Descrição: Determine o comprimento da string, o comprimento dos caracteres chineses é 2
'Exemplo: <%=strlen("Bem-vindo ao Alixixi")%>
'********************************************** *********
Função strlen(str)
dim p_len
p_len=0
strlen=0
se trim(str)<>""então
p_len=len(cortar(str))
para xx=1 para p_len
se asc(mid(str,xx,1))<0 então
strlen=int(strlen) + 2
outro
strlen=int(strlen) + 1
terminar se
próximo
terminar se
Função final
Intercepte os n caracteres à esquerda '****************************************** *******************
'Função: LeftTrue(str,n)
'Parâmetros: str, string a ser processada, n, comprimento interceptado
'Autor: Mumu
'Data: 12/07/2007
'Descrição: Função exibir os n caracteres à esquerda (reconhecimento automático de caracteres chineses)
'Exemplo: <%=LeftTrue("Bem-vindo ao Alixixi",6)%>
'********************************************** *********
Função LeftTrue(str,n)
Se len(str)<=n/2 Então
EsquerdaVerdade=str
Outro
Escurecer TStr
Dim l,t,c
Escureça eu
eu=len(str)
t = eu
TStr=""
t=0
para eu = 1 para eu
c=asc(meio(str,i,1))
Se c<0 então c=c+65536
Se c>255 então
t=t+2
Outro
t=t+1
Terminar se
Se t>n Então saia para
TStr=TSr&(meio(str,i,1))
próximo
EsquerdaVerdade = TStr
Terminar se
Função final
Artigos que podem lhe interessar: