RS Grand Exchange info Grabber [Source]

[Cody8295]

  Dim Name, GuidePrice, Change, ChangeParsed, Gold As String
  Dim wc As New Net.WebClient
  Dim Source As String = wc.DownloadString("http://services.runescape.com/m=itemdb_rs/results.ws?query=rune&price=all&members=")
  For i As Integer = 6 To 65 Step 3
    Name = Split(Source, "alt=""")(i).Split("""")(0)
    ListView1.Items.Add(Name)
    GuidePrice = Split(Source, Name)(2).Split("</td")(3)
    ListView1.Items.Item(ListView1.Items.Count - 1).SubItems.Add(GuidePrice.Substring(GuidePrice.IndexOf(">") + 1))
    Change = Split(Source, Name)(2).Split("class=""")(1)
    ChangeParsed = Split(Change, ">")(1).Split("<")(0)
    ListView1.Items.Item(ListView1.Items.Count - 1).SubItems.Add(ChangeParsed)
    Gold = Split(Source, Name)(2).Split(""">")(5)
    ListView1.Items.Item(ListView1.Items.Count - 1).SubItems.Add(Gold)
  Next

Enjoy.

 

[Covey]

nice first post

 

[Cody8295]

nice first post

Thanks bro, I really do love VB.NET.

 

[Saphir Dice]

So nice BRO!

 

[Cody8295]

So nice BRO!

Thanks for the comment.

 

[rally]

very nice, i might use this for something im working on

 

Lol I like how you didn't use Mid() or InStr() once

 

[SiiLeNtaLK]

Looks sweet ;O

 

[Cody8295]

Lol I like how you didn't use Mid() or InStr() once

Haha, I love the Split() method..

 

[hellohippo]

I'm new to VB.

I made a listview with these Columns, but where do I put the code? Cus i've put it in form load and it works with no errors but the listview doesn't display anything.

Please help :S

 

[Cody8295]

Are you sure the ListView's display property is on "details".

 

[hellohippo]

yep :S

 

[itsjustme]

just the source. No tutorial
I think you just copy/paste.