[Solved] Show 100 Char's for GridHTMLEditorColumn ?

[Madhu Palakurthi]

Hi,

I am binding html content to GridHTMLEditorColumn  in the radgrid.

aspx :

<telerik:GridHTMLEditorColumn ShowSortIcon="true" SortExpression="Message" FilterControlAltText="Filter Message column"
                                        DataField="Message" FilterControlWidth="250px" DataType="System.String" UniqueName="Message"
                                        HeaderText="Email Message">
                                    </telerik:GridHTMLEditorColumn>

I would like to show only 100 char's for GridHTMLEditorColumn.
example : Miss X, please identify who is the most adapt in using the system.Then prepare for an online demonstration during...

If I am using SearchGrid_ItemDataBound then it's not working...

If TypeOf e.Item Is GridDataItem Then
                            Dim dataBoundItem As GridDataItem = TryCast(e.Item, GridDataItem)
                            If dataBoundItem("Message").Text.Length > 100 Then
                                dataBoundItem("Message").Text = dataBoundItem("Message").Text.Substring(0, 100) & "..."
                            End If
                        End If

Please help me on this.. .Thanks

[Princy]

Hi,

Please try the following code snippet to warp the text.

VB:

Protected Sub RadGrid1_ItemDataBound(sender As Object, e As GridItemEventArgs)
    If TypeOf e.Item Is GridDataItem Then
        Dim dataBoundItem As GridDataItem = TryCast(e.Item, GridDataItem)
        If dataBoundItem("Message").Text.Length > 100 Then
            dataBoundItem("Message").Text = (dataBoundItem("Message").Text).Substring(0, 100) + "..."
        End If
    End If
End Sub

Thanks,
Princy.

[Madhu Palakurthi]

Hi,

Still the same problem...

If TypeOf e.Item Is GridDataItem Then
                           Dim dataBoundItem As GridDataItem = TryCast(e.Item, GridDataItem)
                           If dataBoundItem("Message").Text.Length > 100 Then
                               dataBoundItem("Message").Text = (dataBoundItem("Message").Text).Substring(0, 100) + "..."
                           End If
                       End If

Should be get converted text ( not html ) .

Thanks in advance..

[Princy]

Hi,

Unfortunately I couldn't replicate the issue. Please check the screen shot.

Thanks,
Princy.

[Madhu Palakurthi]

There is another way to do is :

Dim message As String = HtmlRemoval.StripTagsRegex(item("Message").Text).Replace(".", "").ToString()
                        item("Message").Text = message.Substring(0, 100) + "..."

 Public Shared Function StripTagsRegex(ByVal source As String) As String
        Return Regex.Replace(source, "<.*?>", String.Empty)
    End Function

It's removng HTML but It's not removing VML in HTML Code.

v\:* {behavior:url(#default#VML);}
o\:* {behavior:url(#default#VML);}
w\:* {behavior:url(#default#VML);}
.shape {behavior:url(#default#VML);}

How to remove above VML from HTML ?

Thank you..