Solved

how to concat with multiple dots..

Posted on 2009-05-08
3
171 Views
Last Modified: 2013-11-07
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
Comment
Question by:Rajar Ahmed
  • 2
3 Comments
 
LVL 10

Accepted Solution

by:
JPJ78 earned 500 total points
ID: 24335374
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
 
LVL 18

Author Closing Comment

by:Rajar Ahmed
ID: 31579389
Thanks for a nice and clean functions...
0
 
LVL 18

Author Comment

by:Rajar Ahmed
ID: 24335600
thx<input id="gwProxy" type="hidden"><!--Session data--><input onclick="jsCall();" id="jsProxy" type="hidden">
0

Featured Post

What Is Threat Intelligence?

Threat intelligence is often discussed, but rarely understood. Starting with a precise definition, along with clear business goals, is essential.

Join & Write a Comment

Wouldn’t it be nice if you could test whether an element is contained in an array by using a Contains method just like the one available on List objects? Wouldn’t it be good if you could write code like this? (CODE) In .NET 3.5, this is possible…
International Data Corporation (IDC) prognosticates that before the current the year gets over disbursing on IT framework products to be sent in cloud environs will be $37.1B.
When you create an app prototype with Adobe XD, you can insert system screens -- sharing or Control Center, for example -- with just a few clicks. This video shows you how. You can take the full course on Experts Exchange at http://bit.ly/XDcourse.
You have products, that come in variants and want to set different prices for them? Watch this micro tutorial that describes how to configure prices for Magento super attributes. Assigning simple products to configurable: We assigned simple products…

707 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

17 Experts available now in Live!

Get 1:1 Help Now