Gegevens uit website InnerHtml

[Schipperjte]

Hoi,

Uit een website haal ik deze gegevens met deze code.

Een andere manier gaat niet want dit wordt op mijn werk tegen gehouden ,ivm beveiligingen van het net werk.

Ik deed het eerst via een form webbrowser dat gaat niet .

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Using wb As New System.Windows.Forms.WebBrowser


            wb.Navigate("http://www.marinetraffic.com/ais/nl/shipdetails.aspx?MMSI=246758000")
            Do Until wb.ReadyState = Windows.Forms.WebBrowserReadyState.Complete
                System.Windows.Forms.Application.DoEvents()
            Loop
            TextBox1.Text = (wb.Document.Body.InnerHtml)
        End Using
    End Sub

.

Dit komt dan tevoorschijn

<DIV style="CLEAR: both"></DIV>
<DIV id=detailtext>
<H1>WATERSTRAAT</H1><A href="generic_form.aspx?mode=update&amp;datasource=SHIP_WIKI&amp;aa=38889">Edit this vessel</A>&nbsp;&nbsp;&nbsp;<A href="generic_form.aspx?mode=update&amp;datasource=WIKI_SALES&amp;aa=38889">Vessel for Sale?</A>
<HR>

<H2>Scheepsdetails</H2><B>Scheepstype:</B> Tug<BR><B>Lengte x Breedte:</B> 31 m X 10 m<BR><B>Geregistreede Snelheid (Max / Gem):</B> 8.2 / 6.9 knots<BR><B>Vlag:</B> Netherlands [NL]&nbsp;<IMG style="BORDER-BOTTOM: #aaa 1px solid; BORDER-LEFT: #aaa 1px solid; BORDER-TOP: #aaa 1px solid; BORDER-RIGHT: #aaa 1px solid" src="flags/NL.gif"><BR><B>Roepnaam:</B> PCIV<BR><B>IMO:</B> 9428059, <B>MMSI:</B> 246758000<BR>
<HR>

<H2>Laatst Ontvangen Positie</H2><B>Gebied:</B> North Sea<BR><B>Latitude / Longitude:</B> <A href="default.aspx?mmsi=246758000&amp;centerx=6.824111&amp;centery=53.44492&amp;zoom=10&amp;type_color=3">53.44496˚ / 6.824117˚ (Map)</A><BR><B>Momenteel in Haven:</B> <A href="default.aspx?centerx=6.833&amp;centery=53.45085&amp;zoom=15">EEMSHAVEN</A><BR><B>Laatst Bekende Haven:</B> </B><A href="default.aspx?centerx=6.833&amp;centery=53.45085&amp;zoom=15">EEMSHAVEN</A><BR><B>Ontvangen Gegevens:</B> 0d 0h 0min 45s ago<BR>
<TABLE>
<TBODY>
<TR>
<TD>&nbs

Nog wel wat meer , maar het gaat me om dit

<B>Vlag:</B> Netherlands [NL]&nbsp[CODE]

Als ik deze bovenstaande gegevens in een textbox laat verschijnenn , hoe filter ik dit er uit ? [B]"Netherlands"[/B]

En het is natuurlijk niet altijd het zelfde , als het een andere vlag heeft staat er natuurlijk wat anders.

 

[CaptainBri]

Probeer het eens op deze manier:

TextBox1.Text = New System.Net.WebClient().DownloadString("pad naar de pagina")

Om van dit;

<B>Vlag:</B> Netherlands [NL]&nbsp

Naar dit

Netherlands

Te gaan moet je de overige text eruit filteren met replace, of je gebruikt Regex. Hier even voorbeeltje met replacen:

Dim a As String = "<B>Vlag:</B> Netherlands [NL]&nbsp"
a = a.Replace("<B>Vlag:</B> ").Replace(" [NL]&nbsp")

 

[Schipperjte]

Ik ga dit proberen op mijn werk

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


TextBox1.Text = New System.Net.WebClient().DownloadString("http://marinetraffic.com/ais/nl/shipdetails.aspx?MMSI=269108000")

Dim A As String = TextBox1.Text
Dim B As String = A.Substring(A.IndexOf("<b>Vlag:</b>") + 12, 25)
TextBox2.Text = (B)

End Sub

Als dit werkt heb ik waarschijnlijk ook iets voor het filteren

wordt vervolgd