Problem with ListBox

Dev Shed Forums Sponsor:

July 20th, 2012, 04:43 PM

darkhacks

Registered User

Join Date: Jul 2012

Posts: 2

Time spent in forums: 1 h 4 m 48 sec
Reputation Power: 0

Problem with ListBox

Hi i have some problem with my ListBox, after I've browsed a txt file by means of OpenFileDialog to ListBox, all words except the 1-st one are preceded by "square". I don't know how to fix it. Maybe you have any ideas....

(When I open it in RichTextBox it's all fine no square or something)

This is my code:

Code:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
OpenFileDialog1.ShowDialog() 
streamer = IO.File.OpenText(OpenFileDialog1.FileName)
Dim mystring() As String = streamer.ReadToEnd.Split(vbNewLine)
 ListBox1.Items.AddRange(mystring) 
End Sub

My text file and Screen:

Code:

http://speedy.sh/UXgrd/file.rar

This code have been testing on another computer and worked, so I didn't have any ideas to resolve my problem.

July 20th, 2012, 08:22 PM

Doug G

Grumpier Old Moderator

Dev Shed God 19th Plane (14000 - 14499 posts)

Join Date: Jun 2003

Posts: 14,239

Time spent in forums: 1 Month 4 Weeks 15 h 20 m 7 sec
Reputation Power: 4445

Usually a strange character indicates some kind of encoding mismatch, like a utf8 character in an ascii control.

It's hard to look at your code when it's all on one line.

__________________
======
Doug G
======
It is a truism of American politics that no man who can win an election deserves to. --Trevanian, from the novel Shibumi

July 21st, 2012, 04:44 AM

darkhacks

Registered User

Join Date: Jul 2012

Posts: 2

Time spent in forums: 1 h 4 m 48 sec
Reputation Power: 0

Ok sorry, now it's better.

I have a solution (i've changed my code a little bit)

Now now looks like this:

Code:

OpenFileDialog1.ShowDialog() 
streamer = IO.File.OpenText(OpenFileDialog1.FileName) 
Dim delimiters() As Char = New Char() {vbCr, vbLf} 
Dim mystring() As String = streamer.ReadToEnd.Split(delimiters, StringSplitOptions.RemoveEmptyEntries) 
ListBox1.Items.AddRange(mystring)

I have this:

Code:

ListBox1.SelectedIndex = 0 
Dim login As String = ListBox1.SelectedItem.ToString.Split(":")(0) 
Dim hasło As String = ListBox1.SelectedItem.ToString.Split(":")(1) 
WebBrowser1.Document.GetElementById("log").SetAttribute("value", login) 
WebBrowser1.Document.GetElementById("pwd").SetAttribute("value", hasło) 
WebBrowser1.Document.GetElementById("wp-submit").InvokeMember("click")

Now nicely put in field of the login and password information that is in the first listbox (They are separated by ":" ex login:password)
Only now I do not know how to do loops to repeat this action , until it logged in or address will change. :/

Problem with ListBox

Developer Shed Advertisers and Affiliates