Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > ASP > Обрезание текста по количеству символов

Автор: rum 11.3.2005, 15:23

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

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

Автор: ReFleX 11.3.2005, 15:29

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

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

Код


<%
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
Объясни подробнее, что там с серединой, тогда напишу!

Автор: rum 11.3.2005, 16:29

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

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

Автор: Guest 14.3.2005, 11:13

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

Код


<%
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
%>

Автор: ReFleX 14.3.2005, 20:37

Это я был! smile

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