Parsing multiple string form website into listview.

BlackShawarma · 2013-08-16T18:41:03.000Z

So guys i need small help here. i got already this working but its parsing only one string, but in my website the strings are duplicated. i mean by i got on website like this. [gq_hostname] => Something random [gq_hostname] => Something random 2 so in the listview its shows me only the first parsing, not all strings. so here is the source code: Dim code As String Using client As New WebClient code = client.DownloadString("http://127.0.0.1/servers/examples/list.php") Dim gametype As String = Split(Split(code, "[gq_type] => ")(1), "[hostname]")(0) Dim servername As String = Split(Split(code, "[gq_hostname] => ")(1), "[gq_mapname]")(0) Dim map As String = Split(Split(code, "[gq_mapname] => ")(1), "[gq_maxplayers]")(0) Dim players As String = Split(Split(code, "[gq_numplayers] => ")(1), "[gq_online]")(0) Dim maxplayers As String = Split(Split(code, "[gq_maxplayers] => ")(1), "[gq_mod]")(0) Dim ip As String = Split(Split(code, "[gq_address] => ")(1), "[gq_dedicated]")(0) Dim port As String = Split(Split(code, "[gq_port] => ")(1), "[gq_protocol]")(0) Dim item = ListView1.Items.Add(Trim(gametype)) For cnt As Integer = 1 To ListView1.Columns.Count item.SubItems.Add(Trim(servername)) Next item.SubItems(2).Text = Trim(map) item.SubItems(3).Text = Trim(players) + "/" + Trim(maxplayers) End Using Catch ex As Exception End Try look like: http://i.imgur.com/NnwOjVI.png but its should be like this http://i.imgur.com/uUOjt9A.png please if someone can help me i will glad. thanks.

Code:

here its is. this how the webpage displays itself.

I think this should work, I tested it and the results were correct.
(I hope you understand why I'm storing the information in a Structure? ..just for convenience)

[VB.NET] Parse server output - Pastebin.com

The Code

Code:

    Public Function ParseServerData(ByRef webPageContent As String) As GameServer()
        Dim _rtns As New List(Of GameServer)
        Dim _aGameServer As New GameServer
        Dim _contentLines() As String = webPageContent.Split(CChar(Environment.NewLine))
        Dim _tmpLine As String = ""

        For xx As Int32 = 0 To _contentLines.Length - 1
            _tmpLine = _contentLines(xx).Trim()
            If _tmpLine.StartsWith("[server") Then
                'this is the start of a server info region
                Do Until _tmpLine.StartsWith("[version]") '' [version] is currently the last item in the list.
                    xx += 1
                    If xx = _contentLines.Length Then
                        ''array out of bounds, [version] never found, invalid server output!
                        Throw New Exception("ParseServerData:: [version] not found at end of server info. Invalid server data. Contact game server administrator.")
                        ''I hate throwing exceptions - this shouldn't happen unless the server gives bad output.
                    End If
                    _tmpLine = _contentLines(xx).Trim()
                    If _tmpLine.StartsWith("[hostname]") Then
                        _aGameServer.HostName = Split(_tmpLine, "=> ")(1)
                    ElseIf _tmpLine.StartsWith("[gq_mapname]") Then
                        _aGameServer.MapName = Split(_tmpLine, "=> ")(1)
                    ElseIf _tmpLine.StartsWith("[gq_numplayers]") Then
                        _aGameServer.CurrentPlayers = CInt(Split(_tmpLine, "=> ")(1))
                    ElseIf _tmpLine.StartsWith("[gq_maxplayers]") Then
                        _aGameServer.MaxPlayers = CInt(Split(_tmpLine, "=> ")(1))
                    ElseIf _tmpLine.StartsWith("[game_descr]") Then
                        _aGameServer.GameDescription = Split(_tmpLine, "=> ")(1)
                    ElseIf _tmpLine.StartsWith("[gq_address]") Then
                        _aGameServer.HostAddress = Split(_tmpLine, "=> ")(1)
                    ElseIf _tmpLine.StartsWith("[gq_port]") Then
                        _aGameServer.HostPort = CInt(Split(_tmpLine, "=> ")(1))
                    End If
                Loop
                _rtns.Add(_aGameServer)
                _aGameServer.Reset() '' reset values to defaults - clear old data.
            End If
        Next

        Return _rtns.ToArray
    End Function

Code:

    Public Structure GameServer
        Public GameDescription As String
        Public HostName As String
        Public MapName As String
        Public MaxPlayers As Int32
        Public CurrentPlayers As Int32
        Public HostAddress As String
        Public HostPort As Int32

        Public Sub Reset()
            GameDescription = ""
            HostName = ""
            MapName = ""
            MaxPlayers = 0
            CurrentPlayers = 0
            HostAddress = ""
            HostPort = 0
        End Sub
    End Structure

-----------------------------------------------------
I'm copy-pasting your original code, and modifying it to use my function/structure.

Code:

 Dim code As String
 Dim _servers() As GameServer '' An array of 'server' objects. Each has info like .Address, .Port, .NumPlayer , .MapName etc.

            Using client As New WebClient

                code = client.DownloadString("http://127.0.0.1/servers/examples/list.php")

                _servers = ParseServerData(code)
                ''After this point, each item in the "_servers" array is filled with valid data.

                For Each _host As GameServer In _servers
                '' Add each server info to the list view, or
                MsgBox(_host.HostName & ":" & _host.HostPort & Environment.newLine _
                          & "Map: " & _host.MapName & Environment.NewLine _
                          & "Players: " & _host.CurrentPlayers.ToString() & "/" &  _host.MaxPlayers.ToString())
                ''TODO: Erase the MsgBox() and add the info to a list view.
                Next

            End Using

^^I think this solves the issue about 'User defined values' (name, server descrip., etc) containing any of the hard-coded strings.

edit: made 1 small last change, still functionally equivalent.
http://pastebin.com/221yPu04

Test and let me know? Copy-Paste the Structure + Function, test, and see if works. ? At first you should just get a msgbox for each server, then change the code to add them to list view : )

Parsing multiple string form website into listview.

Post a Reply

Similar Threads

Tags for this Thread