При использовании ASP для обработки текста. Функция определения длины строки, поставляемая с системой, иногда оказывается не очень полезной. Например, китайский символ будет считаться только одним байтом. Если при наборе текста все символы состоят из китайского языка, легко сказать, что разницы в любом случае нет. Однако если строка, которой нужно манипулировать, содержит как китайские символы, так и английские буквы, это будет неудобно. Следующие три функции могут заменить соответствующие функции, поставляемые с ASP.
Также следует отметить кое-что: если инвариант i используется в цикле, он также является переменной, обычно используемой в циклах. При выполнении следующей функции значение i изменится, если та же переменная используется в вызывающем цикле. это приведет к появлению неизвестных значений. Если результат найден, используйте другое имя переменной.
Следующее использование такое же, как и у len(), left(), right().
программный код
Скопируйте код кода следующим образом:
ФункцияStrдлина(Str)
Temp_Str=Len(Str)
Для I=1 до Temp_Str
Test_Str=(Середина(Str,I,1))
Если Asc(Test_Str)>0 Тогда
Длина=Длина+1
Еще
Длина=Длина+2
Конец, если
Следующий
Конечная функция
Функция Strleft(Str,L)
Temp_Str=Len(Str)
Для I=1 до Temp_Str
Test_Str=(Середина(Str,I,1))
Strleft=Strleft&Test_Str
Если Asc(Test_Str)>0 Тогда
линза=линза+1
Еще
линза=линза+2
Конец, если
Если линза>=L, то выйти за
Следующий
Конечная функция
ФункцияStrright(Str,L)
Temp_Str=Len(Str)
Для i = Temp_Str до 1 шаг -1
Test_Str=(Середина(Str,I,1))
Strright=Test_Str&Strright
Если Asc(Test_Str)>0 Тогда
линза=линза+1
Еще
линза=линза+2
Конец, если
Если линза>=L, то выйти за
Следующий
Конечная функция