[Webinar] Streamline your web hosting managementRegister Today

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 194
  • 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

Featured Post

Free Tool: Subnet Calculator

The subnet calculator helps you design networks by taking an IP address and network mask and returning information such as network, broadcast address, and host range.

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