Listbox Items Text

latika singh

Hi,

I have a listbox with lstPartnumber as it's name. It displays multiple number items with quotation marks as: "abc".

I want to remove these quotation marks from each item in the listbox. Which property should I use to remove these quotation marks from the text of each item.

Thank you!

6 Replies

Know the answer? Post it — somebody with the same question will find it here.

Satyapriya Nayak15y ago
Hi latika,

Try this......

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For i As Integer = 0 To ListBox1.Items.Count - 1
            ListBox1.Items(i) = ListBox1.Items(i).Replace(Chr(34), "" & "")
        Next i
    End Sub
End Class

Thanks
If this post helps you mark it as answer
Vulpes15y ago
latika,

Can you clarify what exactly is displayed in the ListBox?

If it's "abc" then this 'if' statement should be true:

If item.StartsWith("""") AndAlso item.EndsWith("""") Then

because the first and last characters of the string are double quote characters and because they need to be doubled when used in a VB string literal.

The following code definitely works as I've tried it myself to make absolutely sure:

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim items As String() = {"""abc""", "def", """ghi"""}
lstPartnumber.Items.AddRange(items)

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
For i As Integer = 0 To lstPartnumber.Items.Count - 1
Dim item As String = lstPartnumber.Items(i).ToString()
If item.StartsWith("""") AndAlso item.EndsWith("""") Then
item = item.Substring(1, item.Length - 2)
lstPartnumber.Items(i) = item
End If
Next i
End Sub

End Class
latika singh15y ago
The If condition evaluates to false.
Vulpes15y ago
If they're actually displayed in the ListBox as "abc", then the code I posted earlier should remove the quotes.

If they're displayed as ""abc"", then the code to remove them will be:

For i As Integer = 0 To lstPartnumber.Items.Count - 1
Dim item As String = lstPartnumber.Items(i).ToString()
If item.StartsWith("""""") AndAlso item.EndsWith("""""") Then
item = item.Substring(2, item.Length - 4)
lstPartnumber.Items(i) = item
End If
Next i

Basically, when you include a double quote character in a string, you have to double it so the VB Compiler doesn't think it's reached the end of the string.

Notice that the code won't remove any embedded (as opposed to leading or trailing quotes) if there are any.
latika singh15y ago
When we store all the items of the listbox in a string it surrounds them with an additional ""abc"" instead of "abc".

So with items = items.Substring(1, items.Length - 3) it takes out the double quotation but displays them as "abc" since it is stored as string.
Vulpes15y ago
This code should do it:

For i As Integer = 0 To lstPartnumber.Items.Count - 1
Dim item As String = lstPartnumber.Items(i).ToString()
If item.StartsWith("""") AndAlso item.EndsWith("""") Then
item = item.Substring(1, item.Length - 2)
lstPartnumber.Items(i) = item
End If
Next i