Improve company productivity with a Business Account.Sign Up

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 195
  • Last Modified:

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

0
Rajar Ahmed
Asked:
Rajar Ahmed
  • 2
1 Solution
 
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.

Join & Write a Comment

Featured Post

Free Tool: Path Explorer

An intuitive utility to help find the CSS path to UI elements on a webpage. These paths are used frequently in a variety of front-end development and QA automation tasks.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now