Ao usar ASP para processar texto. A função de detecção do comprimento da string que acompanha o sistema às vezes não é muito útil. Por exemplo, um caractere chinês contará apenas como um byte. Se forem todos caracteres chineses durante a composição, é fácil dizer que não há diferença de qualquer maneira. No entanto, se a string a ser manipulada contiver caracteres chineses e letras inglesas, será inconveniente. As três funções a seguir podem substituir as funções relacionadas que vêm com o ASP.
Há também algo a ser observado. Se usado em um loop, o invariante i também é uma variável comumente usada em loops. Quando a função a seguir for executada, o valor de i mudará se a mesma variável for usada no loop que chama. isso, ocorrerão valores desconhecidos. Se o resultado for encontrado, use outro nome de variável.
O uso a seguir é igual a len(), left(), right().
código do programa
Copie o código do código da seguinte forma:
FunçãoStrlength(Str)
Temp_Str=Len(Str)
Para I = 1 para Temp_Str
Test_Str=(Médio(Str,I,1))
Se Asc(Test_Str)>0 Então
Comprimento = Comprimento + 1
Outro
Comprimento = Comprimento +2
Terminar se
Próximo
Função final
Função Strleft(Str,L)
Temp_Str=Len(Str)
Para I = 1 para Temp_Str
Test_Str=(Médio(Str,I,1))
Strleft=Strleft&Test_Str
Se Asc(Test_Str)>0 Então
lente=lente+1
Outro
lente=lente+2
Terminar se
Se lente>=L, então saia para
Próximo
Função final
FunçãoStrright(Str,L)
Temp_Str=Len(Str)
Para i = Temp_Str para 1 passo -1
Test_Str=(Médio(Str,I,1))
Strright=Test_Str&Strright
Se Asc(Test_Str)>0 Então
lente=lente+1
Outro
lente=lente+2
Terminar se
Se lente>=L, então saia para
Próximo
Função final