Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: Visual Basic
Expertise: Beginner
Aug 6, 1997

Get the Length of the Longest Word in a String

LenLongestWord finds the length of the longest word in a string where a word is defined to be bounded by spaces or the ends of the string.

It also illustrates a case where a recursive implementation works well in VB. For example, you would use it to decide how to spread a column heading over multiple lines:

 
Function LenLongestWord (ByVal src _
        As String) As Integer
        Dim i As Integer, j As Integer
        i = InStr(src, " ")
        If i > 0 Then
                j = LenLongestWord(Mid$(src, i _
                        + 1))
                If j > i - 1 Then _
                        LenLongestWord = j Else _
                        LenLongestWord = i - 1
        Else
                LenLongestWord = Len(src)
        End If
End Function



Pat Dooley
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date