extraire du texteRésolu

Question

Bonjour a tous.
J ai une petite question:
j extrais le code html d une page sur internet avec un controle inet, qui le mets dans un textbox.
je vous donne un extrait :

Donc, voila, c'est plein de lignes avec ce genre de donnée, je connais les donnes "name" pour chaque lignes.
Quelle est la maniere la plus simple d'extraire le champs "value" ?
Si quelqu'un peux me repondre ca serait sympa, je suis crevé là, et je suis en train de mettre pleins d'erreurs dans mon code.
Help !!

cs_Willi · Accepted Answer

Salut,
Le plus simple tu mets toute tes lignes dans un tableau
Ensuite tu fait une itération sur ligne en pointant sur la position du mot value.

Sa te donnes quelque chose comme ca.

For i = LBound(TableauLignes) to UBound(TableauLignes)
   Dim iPos as Integer
   iPos = InstrRev(TableauLignes(i), "value=")

   If iPos <> 0 Then
      MsgBox "Value=" & Mid$(TableauLignes(i), iPos + Len("value=") + 1, Len(TableauLignes(i) - InStrRev(" />") - 1 )
   End If
Next

fabulofr · Answer

ok merci, je testerais dans la soirée, mais peut tu me donner une explication sur la commande instrrev ?
je conaissais instr mais pas instrrev ?

cs_Willi · Answer

InstrRev c'est un Instr mais en partant de la fin de ta chaine.

fabulofr · Answer

ok merci.
Et meme si la value="123456789" ca va tout prendre ton exemple ?

cs_Willi · Answer

Si toute tes lignes sont de cette forme ci-dessous alors oui sa marche

fabulofr · Answer

ben y a juste l'attribut name qui change sinon c'est tout du type hidden et les value change mais le format reste dans le meme genre.
De toute facon j'essaye ce soir.
Merci je te tiens au courant !

fabulofr · Answer

slt !
ok ca fonctionne a peu pres, mais j'obtiens les guillemets avec ????
donc comme je veux mettre ca en variable public de type long, ca me donne une erreur.....

cs_Willi · Answer

Une fois récupéré le contenu de value tu peux supprimer les doubles cotes avec un
Replace$(tonresultatavecguillement, chr$(34),"")

fabulofr · Answer

Je te remercie vraiment ca fonctionne !!
Merci !!
Allez dis moi ou je peux te verser 1 000 000 d'euros ????
LOL !!

cs_Willi · Answer

Lol pour le million d'euros 
Bonne continuation ++

Extraire du texte

10 réponses

Votre réponse

Discussions similaires