how to concat with multiple dots..

i have a field testimonial in database, need to concat the total characters to some extent and then it should displays with ...(multiple dots)

Like this
Testimonial(in db )
Testimonials are in the form of letters and ad copy featured very commonly in the advertising of patent medicines in the 19th and 20th centuries. The pages of almanacs and other promotional literature filled up with multiple testimonials,some with accompanying photographs, that tell of the healing powers of the products in question. Dr. R. V. Pierce, marketer of Pierce's Golden Medical Discovery, published

page should be displayed in this format....

Testimonials are in the form of letters and ad copy featured
 very commonly in the advertising........


While (dr.Read())
              <span><%=dr.Item("testimonial")%></span>

Open in new window

LVL 18
Rajar AhmedConsultantAsked:
Who is Participating?
 
JPJ78Commented:
A function like this should do it.
This function cuts the string at a given amount of characters.
The function searches for the closest " ", "?", "!", ".", "," to avoid cutting in the midle of a word.


    Protected Function CutString(ByVal str As String, ByVal maxLength As Integer) As String
        If Not String.IsNullOrEmpty(str) Then
            If str.Length > maxLength Then
                Dim tempStr As String = str.Substring(0, maxLength)
                Dim breakIndex As Integer = 0
 
                Dim index As Integer = tempStr.LastIndexOf(" ")
                If index > breakIndex AndAlso index < maxLength - 3 Then breakIndex = index
 
                index = tempStr.LastIndexOf(".")
                If index > breakIndex AndAlso index < maxLength - 3 Then breakIndex = index
 
                index = tempStr.LastIndexOf(",")
                If index > breakIndex AndAlso index < maxLength - 3 Then breakIndex = index
 
                index = tempStr.LastIndexOf("!")
                If index > breakIndex AndAlso index < maxLength - 3 Then breakIndex = index
 
                index = tempStr.LastIndexOf("?")
                If index > breakIndex AndAlso index < maxLength - 3 Then breakIndex = index
 
                If breakIndex = 0 Then breakIndex = maxLength - 3
 
                Return str.Substring(0, breakIndex) + "..."
            Else
                Return str
            End If
        End If
 
        Return ""
    End Function
 
 
While (dr.Read())
              <span><%= CutString(dr.Item("testimonial"), 80)%></span>

Open in new window

0
 
Rajar AhmedConsultantAuthor Commented:
Thanks for a nice and clean functions...
0
 
Rajar AhmedConsultantAuthor Commented:
thx<input id="gwProxy" type="hidden"><!--Session data--><input onclick="jsCall();" id="jsProxy" type="hidden">
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.