gistfile1.bas

REM http://groups.google.com/group/jayrock/t/c16cb357aa2de12

Imports System.IO
Imports Jayrock.Json

Module MainModule

  Sub Main()

    Dim jsonText As String = _
      "[""Europe"", ""Asia"", ""Australia"", " _
      & """Antarctica"", ""North America"", ""South America"", " _
      & """Africa""]"

    Dim reader As JsonTextReader = New JsonTextReader( _
      New StringReader(jsonText))
    Try
      While reader.Read()
        If reader.TokenClass.Equals(JsonTokenClass.String) _
           AndAlso reader.Text.StartsWith("A") Then
           Console.WriteLine(reader.Text)
        End If
      End While
    Finally
      reader.Close()
    End Try

  End Sub
  
End Module