ChopLastWord Function
page 2 of 3
by Topher Jentoft
Feedback
Average Rating: This article has not yet been rated.
Views (Total / Last 10 Days): 18916/ 42
Article Contents:

Code

Below is the function that is used to accomplish this task:

' Copyrights (c) 2000, Martin Jansen
' This function chops the last word of a given string.
Function ChopLastWord( Line, Length )
 Dim S1, S2, I
 ChopLastWord = ""
 S1 = Left( Line, Length )
 S2 = Left( Line, Length )
 For I = Len(S1) to 1 step -1
  if Mid(S1,I,1) = " " then
   S2 = Left(S1,I)
   I = 0
  end if
 Next
 ChopLastWord = S2
End Function  
 

This function is used just like Left(), taking an input string and a length. The length is the maximum length that the result can be, but typically the result will be LESS than this length because it will chop off entire words until the full string is less than the provided length.


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-02-22 6:43:14 AM  AspAlliance Recent Articles RSS Feed
About ASPAlliance | Newsgroups | Advertise | Authors | Email Lists | Feedback | Link To Us | Privacy | Search