Discussion :

[khamett]

salut,

j'ai une appli dans lquelle je souhaite afficher des infos qui viennent d'internet.

j'utilise ce script (VB.net 2005)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
 
Dim Web As New WebClient
Dim Str As New StreamReader(Web.OpenRead("http://www.allocine.fr"))
Dim ligne As String
Dim trouve As Boolean
txtweb.Text = Str.ReadLine
 
        Do
            ligne = Str.ReadLine()
            Console.WriteLine(ligne)
 
            If ligne.Contains("truc") Then
              ...
 
            trouve = True
 
            End If
 
        Loop Until trouve = True Or ligne Is Nothing
        Str.Close()

Le pb c'est que c très long avant d'obtenir ce que je veux.

de plus, le traitement que je fais dans la boucle consiste a faire de la manip de chaine, donc c assez fastideux;

Quelqu'un peut il me proposer une methode facile ou bien documentée pour récuperer des info d'une pages web ?

Merci

[Thomas Lebrun]

Ta technique est très bien, après pour les problèmes de lenteur, cela dépend de ta connexion et aussi du contenu exact de ta boucle

[khamett]

Merci.

je pense pas que ca vienne de ma connexion (je suis en ADSL 6 M)
Par contre c vrai que cela peut venir du traitement.

N'y aurait-il pas un autre moyen que de faire un balayage par ligne ???

[Thomas Lebrun]

Non, je ne pense pas.

Tu peux toujours essayer de charger tout le contenu dans un variable de type string et ensuite, de lire, ligne à ligne, cette variable.

A voir si cela est efficace.....

[Mehdi Feki]

Merci.

je pense pas que ca vienne de ma connexion (je suis en ADSL 6 M)
Par contre c vrai que cela peut venir du traitement.

N'y aurait-il pas un autre moyen que de faire un balayage par ligne ???

Il est bien ton code juste pour faire plus beau :

Code VB.Net :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Dim ligne As String
While Not rdr.EndOfStream
        ligne = rdr.ReadLine()
        If ligne.Contains("truc") Then
 
             Exit While
        End If
End While

[khamett]

Re,

Merci Mehdi pour ton astuce,

la page s'ouvre quasi instantané...

C vrai que c plus clair...

par contre, quand je met à l'interieur de ma boucle, une conditionnelle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
If ligne.Contains("truc") Then
                    'MsgBox(ligne.Substring("truc", 14))
                    Microsoft.VisualBasic.Right(ligne, 6)
                    Exit While
                End If

j'obtiens ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Une exception de première chance de type 'System.InvalidCastException' s'est produite dans Microsoft.VisualBasic.dll
Une exception de première chance de type 'System.InvalidOperationException' s'est produite dans truc.exe

il me conseille de verifier la propriété "innerexception", mais moi ca ne me dit rien...

Merci encore

[Thomas Lebrun]

Alors là, désolé mais les fonctions VB, je ne connais pas donc il faut espérer que medhi saura t'aider plus que moi

[khamett]

salut,

c'est bon j'ai trouvé mon erreur...

j'ai refais ma condition, ca fonctionne mais j'en suis pas tres satisfait.

Je vous explique:
dans ma boucle, il y a plusieurs conditions, et pour chaque condition, un traitement. Dans chaque if j'ai du mettre un
"exit while" et surtout un "str.close" sinon ca merdait, jusqu'ici ca vous parait bien ??

Mon pb est que je manipule des chaines pour en extraire un nombre, or j'utilise pour l'instant un "mid", puis un replace...

mais le pb c 'est que le nombre de chifrre peut varier et donc la traitement peut être erronné.
j'avais pensé le remplacer par un boucle qui balaie caractère par caractère et enregistrer les chiffres dans une variable.

Qu'en pensez vous ?

Merci d'avance

[Mehdi Feki]

Désolé mais j'ai rien compris, si tu nous montrais ton code ?

[Thomas Lebrun]

Désolé mais j'ai rien compris, si tu nous montrais ton code ?

Pareil, je suis un peu perdu là

[khamett]

lol

désolé...

bon voici un bout de code que j'ai mis dans mon "while" celui que Mehdi m'a donné:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
If ligne.Contains("bidule") And cbotruc.Text = cbotruc.Items(1) Then
                    machin = Mid(ligne, 67, 6)
                    machin = Replace(machin, ".", ",")
                    txtbidule.Text = machin
                    Str.Close()
                    Exit Sub

voili voilou...

J'espère que c plus clair...

PS: j'ai posté une autre question rapport à un pb sur un "tooltip" dont la propriété "isballoon" empêche son affichage depuis que j'ai réinstallé mon système... Si vous aviez un tuyau ce serait sympa...

[Mehdi Feki]

Oui l'dée est de passer par les expressions regulieres, mais il faut expliciter le format de la donner à extraire.