[Jack Eagles1]

Ok First how do I check if each listbox item in a listbox contains an expression (Regardless of how many items there are in the listbox) and secondly how would I replace that with text that I want

So, if the First item in the listbox contained "Http%$$" then how would I change that to "Http://" without affecting the rest of the text in the item

Here is the code I have so far:

For Each item in Listbox1.Items 
Dim Selected_Item As String = ListBox1.SelectedItem
			Dim Slash As String
			Dim pattern As String = "$"
			Slash = System.Text.RegularExpressions.Regex.Replace(Selected_Item, pattern, "/")
			ListBox1.Item = Slash
Next
 

But this doesn't work, I get an error saying "Input cannot be null"

This post has been edited by Jack Eagles1: 07 April 2009 - 03:26 PM

[mistyfyed]

You could try something like this

Dim dd As String
		For ee As Integer = 0 To ListBox1.Items.Count - 1
			If ListBox1.Items.Item(ee).ToString.Contains("http%$$") Then
				dd = ListBox1.Items.Item(ee).ToString.Substring(7)
				ListBox1.Items.RemoveAt(ee)
				ListBox1.Items.Insert(ee, "http://" & dd)
			End If
		Next

This post has been edited by mistyfyed: 07 April 2009 - 04:23 PM

[AdamSpeight2008]

A subroutine for you.
Code it after the all the items have be add to the listbox, pass it a reference to your listbox.

 Public Sub ListboxReplace(ByRef lb As ListBox)
  If lb.Items.Count = 0 Then Exit Sub
  For i As Integer = 0 To lb.Items.Count - 1
   ListBox1.Items(i) = System.Text.RegularExpressions.Regex.Replace(ListBox1.Items(i), "Http%\$\$" , "Http://")
  Next
 End Sub

Edit: Updated the regex

This post has been edited by AdamSpeight2008: 07 April 2009 - 04:39 PM

[Jack Eagles1]

TYSM WORKED A DREAM!

TYSM WORKED A DREAM!

[Jack Eagles1]

PLS See Below

This post has been edited by Jack Eagles1: 08 April 2009 - 02:54 PM

[Jack Eagles1]

PLS See Below

This post has been edited by Jack Eagles1: 08 April 2009 - 02:54 PM

[AdamSpeight2008]

Your regex is wrong $ on its own has a special meaning (End of string/line).

[Jack Eagles1]

PLS see Below

This post has been edited by Jack Eagles1: 08 April 2009 - 02:53 PM

[Jack Eagles1]

PLS See Below

This post has been edited by Jack Eagles1: 08 April 2009 - 02:53 PM

[Jack Eagles1]

PLS See Below

This post has been edited by Jack Eagles1: 08 April 2009 - 02:53 PM

[Jack Eagles1]

Ok, I now get only 1 type of error:

When I put the code in: http%¥¥www.google.com¥Maps
The output should be: http://www.google.com/Maps
But instead it is: http://www.google.com¥Maps


Here is my code to decode the coded adress:

  Dim TextboxText As String
	Dim info As IO.FileInfo
  Try
			Dim SelectedLstItem As String
			If first = 0 Then
				first = first + 1
			Else
				Me.ListBox1.SelectedIndex = Me.ListBox1.SelectedIndex + 1
			End If
			SelectedLstItem = ListBox1.SelectedItem.ToString
			If SelectedLstItem.Contains("¥") Then
				Dim Slash As String
				Dim pattern As String = "¥"
				Slash = System.Text.RegularExpressions.Regex.Replace(SelectedLstItem, pattern, "/")
				SelectedLstItem = Slash
			End If
			SelectedLstItem = ListBox1.SelectedItem.ToString
			If SelectedLstItem.Contains("¥¥") Then
				Dim Slash As String
				Dim pattern As String = "¥¥"
				Slash = System.Text.RegularExpressions.Regex.Replace(SelectedLstItem, pattern, "//")
				SelectedLstItem = Slash
			End If
			If SelectedLstItem.Contains("%") Then
				Dim Slash As String
				Dim pattern As String = "%"
				Slash = System.Text.RegularExpressions.Regex.Replace(SelectedLstItem, pattern, ":")
				SelectedLstItem = Slash
			End If
			ListBox1.Items.Remove(ListBox1.SelectedItem)
			ListBox1.Items.Add(SelectedLstItem)
		Catch ex As Exception

Any Ideas?

This post has been edited by Jack Eagles1: 08 April 2009 - 02:52 PM