Подскажите пожулауйста готовый код для такой задачи.

Если длина текста в переменной больше n символов, то её обрезать, но если граница выпадет на середину слова, то обрезать по окончании этого слова.

Не совсем понял про границу

Вот примерный код:

Код

<% Dim n : n = 5 Dim str : str = "Обрезание текста по количеству символов" If Len(str) > n Then  str = Left(str, n) End If Response.Write(str) Response.End %>

Или ещё проще:

Код

Dim str str = "Обрезание текста по количеству символов" Response.Write(Left(str, 5))

Добавлено @ 15:31
Объясни подробнее, что там с серединой, тогда напишу!

Например переменная содержит "абв где жзи"
Если просто обрезать по пяти левым символам, то получится "авб г".

Есть ли возможность такого условия: обрезать пять символов, но если такая обрезка разрежет слово, то захватывать это слово до конца.

Попробуй так, я в слепую написал, так что не проверял в работе.

Код

<% Response.Write fCut("абв где жзи", 5) '------------------------------------------------------- Function fCut(str, intCount)  Dim strOutput  Dim i : i = 1  Do  strOutput = Left(str, intCount + i)  If Right(strOutput, 1) = " " Then   fCut = strOutput   Exit Function  End if  i = i + 1  Loop End Function %>

Это я был! Вроде пашет!
Добавлено @ 20:38
Может можно было и проще написать, но пока только это в голову пришло!