Paramètre en variable de l'instruction .Navigate

Version imprimable

Bonjour j'explique un peu, voici l'extrait de mon code qui va chercher des infos sur un page web, ça fonctionne bien sinon que je veux passer l'argument "http://www.monsite.be..." en variable, comment puis-je m'y prendre ?

merci
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Dim web, New WebBrowser Dim webrequest As string web.Navigate("http://www.monsite.be...") webrequest = web.Document.GetElementById("maDiv").InnerHtml While Not web.ReadyState = WebBrowserReadyState.Complete ' test l'affichage de la page est terminée Application.DoEvents() End While ...

02/08/2016, 16h48
jopopmk

Salut,

"en variable" ? Tu es sûr ? Tu veux dire en paramètre ? D'une fonction ? De ton prgramme ?
Et juste pour être sûr : tu parles bien de VB.NET, et pas de VB ?

PS : utilise les balises CODE (bouton '#') pour que ton code soit plus lisible.
02/08/2016, 17h19
road-runner

Citation:

Envoyé par jopopmk

Salut,

"en variable" ? Tu es sûr ? Tu veux dire en paramètre ? D'une fonction ? De ton prgramme ?
Et juste pour être sûr : tu parles bien de VB.NET, et pas de VB ?

PS : utilise les balises CODE (bouton '#') pour que ton code soit plus lisible.

c'est VB 2013 y-a-t-il une grande différence avec VB.NET?
02/08/2016, 17h44
jopopmk
Je peux me tromper mais à ma connaissance VB s'est arrêté avec la version 6.0 ... en 1998.
Je suppose donc que "Visual Basic 2013" te permet de faire du VB.NET et non du VB old school.
Pour les différences entre les deux y'en a un petit paquet mais du coup c'est pas le sujet.

Peux-tu donc préciser ta demande pour qu'on puisse t'aider ?
Tu aimerais faire une fonction qui prend une URL en paramètre ?
Ou que ton application accèpte une URL en argument ?

Si tu parles uniquement de variable (ce dont je doute) alors il s'agit juste d'écrire :
Code:

1 2 3 4 ' ... Dim url as String = "http://www.somesite.id/somepage.ext" web.Navigate(url) ' ...

Citation:
Envoyé par jopopmk
Je peux me tromper mais à ma connaissance VB s'est arrêté avec la version 6.0 ... en 1998.
Je suppose donc que "Visual Basic 2013" te permet de faire du VB.NET et non du VB old school.
Pour les différences entre les deux y'en a un petit paquet mais du coup c'est pas le sujet.

Peux-tu donc préciser ta demande pour qu'on puisse t'aider ?
Tu aimerais faire une fonction qui prend une URL en paramètre ?
Ou que ton application accèpte une URL en argument ?

Si tu parles uniquement de variable (ce dont je doute) alors il s'agit juste d'écrire :
Code:

1 2 3 4 ' ... Dim url as String = "http://www.somesite.id/somepage.ext" web.Navigate(url) ' ...
ce que je veux faire c'est de lire dans un fichier texte (lstsiteweb) une liste de pages à interroger, c'est à la dernière ligne que j'ai un message d'erreur web. est vide !!
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Dim webrequest As Object Dim nom_fichier As String Dim source As String = "C:\VB/cours/" ' déclarations nom_fichier = source & "lstsiteweb" & ".txt" Dim tablstsite() As Object = File.ReadAllLines(nom_fichier) ' lecture du fichier et place dans une table web.Navigate(tablstsite(0)) ' While Not web.ReadyState = WebBrowserReadyState.Complete ' test l'affichage de la page est terminée Application.DoEvents() End While webrequest = web.Document.GetElementById("nom de l'ID").InnerHtml ' selection de l'ID

Re,

j'ai codé un petit exemple fonctionnel en VB.NET (ça n'a pas été simple, c'est pas mon langage favori :mrgreen:)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Imports System.IO
 
Public Class frmMain
 
    ' j'ai mis la fonctionnalité dans l'event click d'un bouton
    Private Sub btnGo_Click(sender As Object, e As EventArgs) Handles btnGo.Click
        Dim fileName As String = "C:\Work\url.txt" ' le fichier contenant les URL (une par ligne)
        Dim fileLines() As String = File.ReadAllLines(fileName) ' la lecture du fichier
 
        ' on vérifie que le fichier n'était pas vide
        If (fileLines.Length > 0) Then
            Dim htmlElement As HtmlElement ' la variable dans laquelle sera mis la référence au HTML Element recherché
 
            ' on va requêter l'URL qui est dans la dernière ligne du fichier
            webBrowser.Navigate(fileLines(fileLines.Length - 1))
 
            ' je conserve ta méthode de synchronisation mais un callback serait peut-être plus propre
            While (Not webBrowser.ReadyState = WebBrowserReadyState.Complete)
                Application.DoEvents()
            End While
 
            ' c'est bon, le DOM est chargé on peut faire notre recherche
            htmlElement = webBrowser.Document.GetElementById("listing")
 
            ' on vérifie qu'on a bien trouvé le HTML Element
            If (Not htmlElement Is Nothing) Then
                MessageBox.Show("element innerHtml : " + htmlElement.InnerHtml)
            Else
                MessageBox.Show("element not found")
            End If
 
        Else
            MessageBox.Show("empty file")
        End If
 
    End Sub
End Class

Mon fichier url.txt contient en dernier ligne l'URL de la page d'accueil de ce site (http://www.developpez.com/).
L'élément identifié par listing est un TR contenant les articles du fils d'actualité.

Tu peux noter que je fais quelques tests pour cadrer un peu le truc, mais il en manque encore
(notamment la vérification de l'existence du fichier et la gestion exception).

Citation:

Envoyé par jopopmk

Re,

j'ai codé un petit exemple fonctionnel en VB.NET (ça n'a pas été simple, c'est pas mon langage favori :mrgreen:)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Imports System.IO
 
Public Class frmMain
 
    ' j'ai mis la fonctionnalité dans l'event click d'un bouton
    Private Sub btnGo_Click(sender As Object, e As EventArgs) Handles btnGo.Click
        Dim fileName As String = "C:\Work\url.txt" ' le fichier contenant les URL (une par ligne)
        Dim fileLines() As String = File.ReadAllLines(fileName) ' la lecture du fichier
 
        ' on vérifie que le fichier n'était pas vide
        If (fileLines.Length > 0) Then
            Dim htmlElement As HtmlElement ' la variable dans laquelle sera mis la référence au HTML Element recherché
 
            ' on va requêter l'URL qui est dans la dernière ligne du fichier
            webBrowser.Navigate(fileLines(fileLines.Length - 1))
 
            ' je conserve ta méthode de synchronisation mais un callback serait peut-être plus propre
            While (Not webBrowser.ReadyState = WebBrowserReadyState.Complete)
                Application.DoEvents()
            End While
 
            ' c'est bon, le DOM est chargé on peut faire notre recherche
            htmlElement = webBrowser.Document.GetElementById("listing")
 
            ' on vérifie qu'on a bien trouvé le HTML Element
            If (Not htmlElement Is Nothing) Then
                MessageBox.Show("element innerHtml : " + htmlElement.InnerHtml)
            Else
                MessageBox.Show("element not found")
            End If
 
        Else
            MessageBox.Show("empty file")
        End If
 
    End Sub
End Class

:lol: un grand merci je test cela très prochainement, te tiens au courant