[vb.net] SAlvare dati su un textbox invece che su un file txt

[binos1979]

Salve, grazie a quanto trovato sul forum (a vote sapere cercare e cercare conviene) sono riuscito a creare una form che legge un file html e lo salva su un file CODE.TXT.

Vorrei ora salvare quanto caricato in memoria in un textbox senza passare dal file code.txt. Come posso fare?

Qui il codice vb.net già testato e funzionante per salvare il codice html di un pagina su un TXT.


Sub saveResponse(ByVal readStream As Stream, ByVal filename As String)

Dim writeStream As New FileStream(filename, FileMode.Create)
Dim Length As Integer = 256
Dim buffer As [Byte]() = New [Byte](Length) {}
Dim bytesRead As Integer = readStream.Read(buffer, 0, Length)
While bytesRead > 0
writeStream.Write(buffer, 0, bytesRead)
bytesRead = readStream.Read(buffer, 0, Length)
End While
readStream.Close()
writeStream.Close()

End Sub



Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim request As HttpWebRequest = DirectCast(WebRequest.Create("http://www.monclick.it"), HttpWebRequest)
Dim response As HttpWebResponse = DirectCast(request.GetResponse(), HttpWebResponse)
saveResponse(response.GetResponseStream(), "code.txt")

Me.TextBox1.Text = response.Headers.ToString

End Sub

[binos1979]

La soluzione è qua :

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim url As String = String.Empty

url = TextBox1.Text




Dim pagesource As String = getHtml(url)

TextBox1.Text = pagesource


End Sub


Private Function getHtml(ByVal url As String) As String

Dim myWebRequest As HttpWebRequest = DirectCast(HttpWebRequest.Create(url), HttpWebRequest)



' make request for web page

Dim myWebResponse As HttpWebResponse = DirectCast(myWebRequest.GetResponse(), HttpWebResponse)

Dim myWebSource As New StreamReader(myWebResponse.GetResponseStream())

Dim myPageSource As String

myPageSource = myWebSource.ReadToEnd()

myWebResponse.Close()

Return myPageSource

End Function