Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim GridView1 As New GridView
GridView1.ID = "GridView1"
GridView1.EmptyDataText = "No data"
Page.Form.Controls.Add(GridView1)
Dim GetWebData As New Net.WebClient
Dim XmlText As String = GetWebData.DownloadString("http://news.google.com/news?ned=us&topic=h&output=rss")
GridView1.DataSource = XmlText2DataView(XmlText, "item")
GridView1.DataBind()
End Sub
Function XmlText2DataView(ByVal XmlText As String, Optional ByVal TableName As String = "") As Data.DataView
Dim XmlDataSet As New Data.DataSet
Dim CharacterEncoding As New UTF8Encoding
Dim ByteData As Byte() = CharacterEncoding.GetBytes(XmlText)
Dim MemoryStreamData As New IO.MemoryStream(ByteData)
Dim StreamData As IO.Stream = CType(MemoryStreamData, IO.Stream)
Try
XmlDataSet.ReadXml(StreamData)
Catch
End Try
If (TableName = "") And (XmlDataSet.Tables.Count > 0) Then
TableName = XmlDataSet.Tables(0).TableName
End If
Dim XmlDataView As New Data.DataView(XmlDataSet.Tables(TableName))
Return XmlDataView
End Function |
No comments:
Post a Comment