Advertisement
Guest User

Untitled

a guest
Jun 16th, 2019
107
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.77 KB | None | 0 0
  1. Private Function returnPlayerNames(val As String) As List(Of PlayerClass)
  2. Dim ex As String = """id"":(.*?),?""name"":""(.*?)"",""ping"":(.*?)}" ''"id":(.*?),|"name":"(.*?)","ping":(.*?)}
  3. Dim mc As MatchCollection = Regex.Matches(val, ex)
  4. Dim ma As Match
  5. Dim data As List(Of String) = New List(Of String)
  6. Dim pclass As List(Of PlayerClass) = New List(Of PlayerClass)
  7.  
  8. For Each ma In mc
  9. Dim s() As String = Split(ma.Groups(1).Value, ",")
  10.  
  11. Dim player As PlayerClass = New PlayerClass With {
  12. .id = s(0),
  13. .Name = ma.Groups(2).Value,
  14. .Ping = ma.Groups(3).Value
  15. }
  16.  
  17. pclass.Add(player)
  18. Next
  19.  
  20. Return pclass
  21. End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement