Discussion :

[hugo7]

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]

[hugo7]

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

[Mario Rousson]

Variable string
.contains
.indexof
.chars

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

ciao

[hugo7]

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]

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]

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]

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]

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]

Bonsoir,

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

[hugo7]

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?