функция перехвата строки asp
'********************************************** * *********
'Функция: CutStr[str(strlen)]
'Параметры: str, строка для обработки, strlen, перехваченная длина
'Автор: Муму
'Дата: 12 июля 2007 г.
'Описание: перехватить строку указанной длины
'Пример: <%=cutStr("Добро пожаловать в Alixixi",5)%>
'********************************************** * *********
функция CutStr(str,strlen)
Если ул = "" Тогда
CutStr = "Исключение функции CutStr: строка пуста"
функция выхода
Конец, если
'------------Проверка длины источника
Если стрлен = "" Тогда
CutStr = "Исключение функции CutStr: длина не указана"
функция выхода
Конец, если
Если CInt(strlen) = 0 Тогда
CutStr = "Исключение функции CutStr: длина равна 0"
функция выхода
Конец, если
'----------Определить длину исходного символа
дим л, т, с, я
л=лен(стр)
т=0
'----------Цикл для перехвата символов
для я = от 1 до л
c=Abs(Asc(Mid(str,i,1)))
'------Определите, является ли это китайским иероглифом
если с>255, то
т=т+2
еще
т=т+1
конецЕсли
'------Определить, достигнута ли указанная длина
если t>=strlen тогда
CutStr=left(str,i)&".."
выход для
еще
CutStr=str
конец, если
следующий
CutStr = заменить (cutStr, chr (10), "")
конечная функция
''************************************************ *********
'Функция: strlen[str]
'Параметр: str, строка для обработки
'Автор: Муму
'Дата: 12 июля 2007 г.
'Описание: Определить длину строки, длина китайских иероглифов равна 2
'Пример: <%=strlen("Добро пожаловать в Alixixi")%>
'********************************************** * *********
Функция стрлен(стр)
дим п_лен
p_len=0
стрлен=0
если обрезка(строка)<>"" тогда
p_len=len(обрезать(строка))
от xx=1 до p_len
если asc(mid(str,xx,1))<0, то
стрлен=интервал(стрлен) + 2
еще
стрлен=интервал(стрлен) + 1
конец, если
следующий
конец, если
Конечная функция
Перехватите n символов слева '****************************************** * ****************
'Функция: LeftTrue(str,n)
'Параметры: str, строка для обработки, n, перехваченная длина
'Автор: Муму
'Дата: 12 июля 2007 г.
'Описание: функция отображения n символов слева (автоматическое распознавание китайских иероглифов).
'Пример: <%=LeftTrue("Добро пожаловать в Alixixi",6)%>
'********************************************** * *********
Функция LeftTrue(str,n)
Если len(str)<=n/2 Тогда
LeftTrue=str
Еще
Тусклый TStr
Дим л,т,с
Дим я
л=лен(стр)
т=л
ТСтр=""
т=0
для я = от 1 до л
c=asc(mid(str,i,1))
Если c<0, то c=c+65536
Если с>255, то
т=т+2
Еще
т=т+1
Конец, если
Если t>n, то выходим для
TStr=TStr&(mid(str,i,1))
следующий
ЛевоеИстина = TStr
Конец, если
Конечная функция
Статьи, которые могут вас заинтересовать: