2010 Tekst ophalen uit een bestand op een webhost

[gast0323]

Hallo iedereen,

Ik ben begonnen met het maken van een programma waarbij je een website kan invullen en je de code te zien krijgt. Zo moet je in een balk de URL van de website invoeren bijvoorbeeld:

http://Mijnwebsite.nl

Dan haalt hij de code van de website op in een textbox. Alleen ik weet niet hoe ik dit moet maken. Dit heb ik wel eens gemaakt alleen ik ben het verleerd. Hopelijk kan iemand me hiermee helpen? Ik gebruik Visual Basic 2010.

Met vriendelijke groet,
:: Tamajpm

 

[gast0323]

Kan iemand me helpen?

 

[MartinJM]

Hoi,

Je mag iets geduldiger zijn. We zijn hier om jou te helpen en vragen hiervoor niks terug. Meestal zal het ook langer duren voordat je een reactie krijgt.

Dan: Volgens mij gaat dat zo het makkelijkst (en kortst):
[CPP]TbHTML.Text = (New System.Net.WebClient).DownloadString(TbURL.Text)[/CPP]
Vervang wel de namen van de textboxen, en je moet uitkijken, want hierbij zit geen check op "http://"... Dus er is een kans dat het fout gaat.

Nettere code (met check):
[CPP]Imports System.Net

Public Class Form1

Private Sub BtnGetHTML_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnGetHTML.Click
Dim WbClient As New WebClient

If Not TbURL.Text.StartsWith("http://") And Not TbURL.Text.StartsWith("https://") Then
TbURL.Text = "http://" & TbURL.Text
End If
If Not TbURL.Text.EndsWith("/") Then
TbURL.Text &= "/"
End If

TbHTML.Text = WbClient.DownloadString(TbURL.Text)
End Sub
End Class
[/CPP]

Succes! :thumb:
MartinJM



[edit]
Kan ook zo op een regel, met check voor "http" of "https", maar hierbij komt het niet in de TbUrl te staan...
[/edit]
[CPP]TbHTML.Text = (New System.Net.WebClient).DownloadString(If(Not TbURL.Text.StartsWith("http://") And Not TbURL.Text.StartsWith("https://"), "http://" & TbURL.Text, TbURL.Text))[/CPP]

 

[gast0323]

Bedankt, sorry voor mijn ongeduldigheid.

 

[MartinJM]

Is goed, soms zal het daardoor alleen langer duren...

Druk je ook nog even op "vraag opgelost" rechtsboven in je eerste post?

MartinJM