ChopLastWord Function
page 1 of 3
Published: 02 Nov 2003
Unedited - Community Contributed
Abstract
Sometimes you need to limit the length of a string by truncating it, but you don't want to leave a fraction of a word behind. Using this VBScript function, you can limit the length of a string while retaining only complete words.
by Topher Jentoft
Feedback
Average Rating: This article has not yet been rated.
Views (Total / Last 10 Days): 18774/ 30
Article Contents:

Introduction
For the front page of the aspalliance.com site, we were trying to show a substring of article descriptions truncated after so many characters and then followed by "...more!" as a link for people to click to read the full article. Since I only wrote the thing using the VBScript "Left" function, it was indiscriminately cutting off the description in mid-word. This didn't really bother me too much, but it wasn't ideal. Well, it bothered one of our readers enough for them to do something about it, and so they sent in a function to truncate the description, but to ensure that no words are cut off.

View Entire Article

User Comments

Title: ASP.NET Version   
Name: Martin Jansen
Date: 2009-02-03 9:10:56 AM
Comment:
I've created a .NET Version of the function (Both VB.NET as C#)

VB.NET:

Function truncLine(ByVal inputString As String, ByVal maxlength As Integer) As String
If inputString.Length > maxlength Then
inputString = inputString.Substring(0, maxlength)
inputString = inputString.Substring(0, inputString.LastIndexOf(" "))
End If
truncLine = inputString
End Function

C#

public string truncLine(string inputString, int maxlength)
{
if (inputString.Length > maxlength) {
inputString = inputString.Substring(0, maxlength);
inputString = inputString.Substring(0, inputString.LastIndexOf(" "));
}
return inputString;
}
Title: ASP.NET Version   
Name: Martin Jansen
Date: 2009-02-03 9:08:40 AM
Comment:
I've created a .NET Version of the function (Both VB.NET as C#)

VB.NET:

Function truncLine(ByVal inputString As String, ByVal maxlength As Integer) As String
If inputString.Length > maxlength Then
inputString = inputString.Substring(0, maxlength)
inputString = inputString.Substring(0, inputString.LastIndexOf(" ")) & "..."
End If
truncLine = inputString
End Function
Title: Bothe Great Solutions   
Name: David Johndrow
Date: 2007-02-02 12:15:59 PM
Comment:
Thanks, very fast and easy to implement.
Title: satish   
Name: satish
Date: 2005-05-21 2:29:04 AM
Comment:
thank you
Title: ChopLastWord Function   
Name: ChopLastWord Function
Date: 2004-07-09 7:32:41 PM
Comment:
Thank you so much for this!

Product Spotlight
Product Spotlight 





Community Advice: ASP | SQL | XML | Regular Expressions | Windows


©Copyright 1998-2024 ASPAlliance.com  |  Page Processed at 2024-03-28 9:00:57 AM  AspAlliance Recent Articles RSS Feed
About ASPAlliance | Newsgroups | Advertise | Authors | Email Lists | Feedback | Link To Us | Privacy | Search