PNRT
asked on
VB.Net - Getting data from streamreader
Hi Experts. I have used the following code from MSDN and correctly get the xml file as a response. I don't need the xml file as such but only need to get the values. Is there a way of extracting any required data contained in the streamreader before it is written to the xml file. Or maybe writing the xml file to memory and reading it from there. Writing the xml file to disk, extracting the data and then deleting the file, seems to be a waste. Many Thanks
' Create a 'WebRequest' object with the specified url
Dim myWebRequest As WebRequest = WebRequest.Create("www.contoso.com")
' Send the 'WebRequest' and wait for response.
Dim myWebResponse As WebResponse = myWebRequest.GetResponse()
' Call method 'GetResponseStream' to obtain stream associated with the response object
Dim ReceiveStream As Stream = myWebResponse.GetResponseS tream()
Dim encode As Encoding = System.Text.Encoding.GetEn coding("ut f-8")
' Pipe the stream to a higher level stream reader with the required encoding format.
Dim readStream As New StreamReader(ReceiveStream , encode)
Console.WriteLine(ControlC hars.Cr + "Response stream received")
Dim read(256) As [Char]
' Read 256 charcters at a time .
Dim count As Integer = readStream.Read(read, 0, 256)
Console.WriteLine("HTML... " + ControlChars.Lf + ControlChars.Cr)
While count > 0
' Dump the 256 characters on a string and display the string onto the console.
Dim str As New [String](read, 0, count)
Console.Write(str)
count = readStream.Read(read, 0, 256)
End While
Console.WriteLine("")
' Release the resources of stream object.
readStream.Close()
' Release the resources of response object.
myWebResponse.Close()
' Create a 'WebRequest' object with the specified url
Dim myWebRequest As WebRequest = WebRequest.Create("www.contoso.com")
' Send the 'WebRequest' and wait for response.
Dim myWebResponse As WebResponse = myWebRequest.GetResponse()
' Call method 'GetResponseStream' to obtain stream associated with the response object
Dim ReceiveStream As Stream = myWebResponse.GetResponseS
Dim encode As Encoding = System.Text.Encoding.GetEn
' Pipe the stream to a higher level stream reader with the required encoding format.
Dim readStream As New StreamReader(ReceiveStream
Console.WriteLine(ControlC
Dim read(256) As [Char]
' Read 256 charcters at a time .
Dim count As Integer = readStream.Read(read, 0, 256)
Console.WriteLine("HTML...
While count > 0
' Dump the 256 characters on a string and display the string onto the console.
Dim str As New [String](read, 0, count)
Console.Write(str)
count = readStream.Read(read, 0, 256)
End While
Console.WriteLine("")
' Release the resources of stream object.
readStream.Close()
' Release the resources of response object.
myWebResponse.Close()
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.