Récuperer texte page web

**hugo7** · 30/11/2010, 16h16

Bonjour à tous.
Alors en faite j'ai un site web avec une page qui contiendra juste un chiffre ou un nombre et je voudrais pouvoir récupérer ce nombre ou ce chiffre.

Ce nombre ou ce chiffre sera afficher sur la page soit dans une textbox ou directement dans le code Html ou autrement je ne sais pas mais il sera bien là.

D'avance merci

**Skalp** · 30/11/2010, 16h25

**hugo7** · 30/11/2010, 20h28

Il me récupère tous le code html en faite ...
Comment je fais ensuite pour récuperer juste mon nombre?

**Mario Rousson** · 30/11/2010, 21h25

Variable string
.contains
.indexof
.chars

si ta page est toujours pareil ça devrait être facile

ciao

**hugo7** · 01/12/2010, 22h32

Oui met avec indexof je test si le nombre est la mais je sais pas lequel est-ce , je dois donc tester tous les nombres?

**Jerede** · 01/12/2010, 22h39

A coup de Regex ou de .indexOf et Substring comme dit plus haut.
Montre nous le code de la page si tu veut qu'on soit plus précis

**Mario Rousson** · 02/12/2010, 00h59

Je te donne un exemple de ce que je fait

je recherche une serie de caractère unique qui se retrouve avant l'information que je cherche genre

InfoTbl.Contains(valItem)
InfoTbl est ma pageweb et valItem est la série recherché
ValItem = <div class=""last"">
ensuite je prend l'index de cette endroit et je conte combien de caractère je doit passer avant l'information que je veux que j'ajoute à l'index ...

**yonpo** · 02/12/2010, 11h45

j'ai un site web avec une page qui contiendra juste un chiffre ou un nombre et je voudrais pouvoir récupérer ce nombre ou ce chiffre.

Tu peux faire ça pour récupérer ce que tu veux:

Code VB :

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

1
2
3
4
 
intNb1 = InStr(1, strCodeSource, ">") 'Position du caractère ">" dans le code source
intNb2 = InStr(intNb1, strCodeSource, "<") 'Position du caractère "<" dans le code source à partir de la position précédente (intNb1)
strRecup = Mid(strCodeSource, intNb1, intNb2 - intNb1) 'Récupère le string qu'il y a entre les deux positions (intNb1 et intNb2)

Où
intNb1/intNb2 sont des integer
strCodeSource est un string contenant le code source de la page web
strRecup est un string récupérant les données que tu veux.

Bien entendu, c'est à toi d'identifier les caractères html qui entour le chiffre que tu veux récupérer.

**hugo7** · 02/12/2010, 18h22

Merci pour les réponses j'arrive à ca

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
22
23
24
25
26
  Dim webRequest As WebRequest
        Dim webResponse As WebResponse
 
        webRequest = HttpWebRequest.Create("http://www.google.com/webhp?hl=fr")
        webResponse = webRequest.GetResponse()
 
        Using stream As StreamReader = New StreamReader(webResponse.GetResponseStream)
            Dim r As New Regex("(?<word>\d)", RegexOptions.Multiline Or RegexOptions.IgnoreCase)
 
            Dim input As String
            Do While stream.Peek >= 0
                input = stream.ReadLine
                Dim matches As MatchCollection = r.Matches(input)
 
                If matches.Count > 0 Then
                    ' Console.WriteLine("{0} ({1} matches):", input, matches.Count)<br/>
                    For Each match As Match In matches
                        TextBox1.Text += match.Value
                        Dim strCodesource = TextBox1.Text
                        Dim intNb1 = InStr(1, strCodesource, "10") 'Position du caractère ">" dans le code source
                        Dim intNb2 = InStr(intNb1, strCodesource, "15") 'Position du caractère "<" dans le code source à partir de la position précédente (intNb1)
                        Dim strRecup = Mid(strCodeSource, intNb1, intNb2 - intNb1) 'Récupère le string qu'il y a entre les deux positions (intNb1 et intNb2)
                    Next
                End If
            Loop
        End Using

Problème j'ai l'erreur suivante

L'argument 'Start' doit être supérieur à zéro.

sur la ligne

Code :

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

 Dim intNb2 = InStr(intNb1, strCodesource, "15")

**Jerede** · 02/12/2010, 18h42

Bonsoir,

intNb1 donc sûrement être égal à -1 car il n'a pas trouvé la chaîne de caractères.

**hugo7** · 03/12/2010, 17h43

Pourtant quand j'enlève

Code :

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

1
2
3
4
     Dim strCodesource = TextBox1.Text
                        Dim intNb1 = InStr(1, strCodesource, "10") 'Position du caractère ">" dans le code source
                        Dim intNb2 = InStr(intNb1, strCodesource, "15") 'Position du caractère "<" dans le code source à partir de la position précédente (intNb1)
                        Dim strRecup = Mid(strCodeSource, intNb1, intNb2 - intNb1) 'Récupère le string qu'il y a entre les deux positions (intNb1 et intNb2)

La textbox m'affiche cette suite de nombre :
885917553127213272137553127213204101000110100010500038081720362
000049645812341113122719711024100010001971363627100115009955551
312252312340023611427255181432177717773044520131119999993027150
003000012032000000000055180000271111111139660222221222223222210
033326379443340028031110276777162147000258859132402048571999999
000182505806039258335101919767676820100844448321114641052200300
30030033084113000
la chaîne n'est donc pas vide ...
Une erreur de code?

**yonpo** · 03/12/2010, 21h04

Le code que j'ai donné permet d'isoler le chiffre que tu veux récupérer dans le code source récupéré.
Par exemple, tu récupères un code source de ce style:
<div>
<p class="bidule">23413</p>
</div>

Si tu veux récupérer le chiffre 23413, tu fais comme ça:

Code :

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

1
2
3
4
5
 
intNb1 = InStr(1, strCodeSource, "<p class=""bidule"">") 
intNb1 = InStr(intNb1, strCodeSource, ">")
intNb2 = InStr(intNb1, strCodeSource, "</p>")
strRecup = Mid(strCodeSource, intNb1, intNb2 - intNb1)

Mais bon, je me demande si tu as besoin de faire ça au vu de ton code précédent........

**hugo7** · 03/12/2010, 22h37

J'ai essayer comme ça pour récupérer le 3eme 0 en partant de la fin mais toujours la même erreur ...

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 strCodesource = TextBox1.Text
                            Dim intNb0 = InStr(1, strCodesource, 
 
"885915482776227867277622786754827762278672041010001101000105000
3808172036200004964581234111312271971102410001000197136362710011
5009955551312252312340023611427255181432177717773044520131119999
9930271500030000120320000000000551800002711111111396602222212222
2322221003332637944334002803111027677716214700025885913240204857
1999999000182505806039258335101919767676820100844448321114641052
20030030030033084113000")
                            Dim intNb1 = InStr(intNb0, strCodesource, 
 
"885915482776227867277622786754827762278672041010001101000105000
3808172036200004964581234111312271971102410001000197136362710011
5009955551312252312340023611427255181432177717773044520131119999
9930271500030000120320000000000551800002711111111396602222212222
2322221003332637944334002803111027677716214700025885913240204857
1999999000182505806039258335101919767676820100844448321114641052
20030030030033084113") 'Position du caractère ">" dans le code source
                            Dim intNb2 = InStr(intNb0, strCodesource, "00") 'Position du caractère "<" dans le code source à partir de la position précédente (intNb1)
                            Dim strRecup = Mid(strCodesource, intNb0, intNb2 - intNb1) 'Récupère le string qu'il y a entre les deux positions (intNb1 et intNb2)

**yonpo** · 04/12/2010, 01h03

Tu n'as pas compris ce que fait le code donné.
Que veux-tu faire réellement car ton code change à chaque fois?

**hugo7** · 04/12/2010, 13h48

Ba j'aimerais pas exemple récupérer le 3eme 0 en partant de la fin

**Jerede** · 06/12/2010, 23h01

Envoyé par yonpo

Tu n'as pas compris ce que fait le code donné.
Que veux-tu faire réellement car ton code change à chaque fois?

Envoyé par hugo7

Ba j'aimerais pas exemple récupérer le 3eme 0 en partant de la fin

Envoyé par hugo7

Personne?

Tant que tu n'aura pas explicité ce que tu recherche, le contexte de la recherche, on ne pourra pas t'aider

**yonpo** · 07/12/2010, 01h00

Envoyé par hugo7

Ba j'aimerais pas exemple récupérer le 3eme 0 en partant de la fin

C'est quand bizarre de connaître la valeur de ce qu'on doit récupérer.... Un type oui mais une valeur précise.... Car si tu connais la valeur, pas besoin de la récupérer parce que tu la connais déjà.......
Que veux-tu faire: récupérer un chiffre dans le code source d'une page web ou bien récupérer un caractère dans une chaine?
Expliques ce que tu veux réellement!

**hugo7** · 07/12/2010, 18h03

Bon j'ai une textbox dans une page web contenant un chiffre ou un nombre que je ne connais pas .
Je voudrais le récupérer .
D'avance merci

**yonpo** · 07/12/2010, 18h08

D'accord.
Dans le 9ième poste tu récupères un string dans input. Montres nous ce qu'il contient.

**hugo7** · 07/12/2010, 18h46

Tu parles de cet imput?

Code :

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

1
2
3
   Dim input As String
              Do While stream.Peek >= 0
                    input = stream.ReadLine

Si oui à la fin de la troisième ligne de code il contient tous le code html de la page chargeée , soit dans ce cas la page d'accueil de google.

Récuperer texte page web

VB.NET

Discussions similaires

Partager

Partager