Pages internet

Question

bonjour &#224; tous,

j'ai une form avec un webbrowser.

j'aimerai savoir comment copier des &#233;l&#233;ments "texte" d'une page internet :
- soit quand je double clic sur un texte :  
- soit quand je selectionne, puis appuie sur une touche (par ex qd plusieurs mots)

 = je voudrais en qq sorte automatiser le copier coller d'une s&#233;lection...

je n'ai aucune id&#233;e de comment faire &#231;a !

merci &#224; tous !

cs_Jack · Answer

Salut
Le plus simple serait de charger le source de la page avec un composant iNet et de d&#233;pouiller le texte pour en extraire les valeurs int&#233;ressantes ...
TexteSource = iNet.OpenURL ("http://www.lesite.fr")

Vala
Jack
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

cs_etniqs · Answer

euh, tu parles de parser la page ? : c'est trop le merdier pour &#231;a (je l'ai fait pour autre chose)

"le garde-meuble mais ne se rend pas" (CanardPC, que je vous conseille b&#233;n&#233;volement)

thethor · Answer

bonjour,

comment peut-on utiliser un composant inet ?

merci

cs_etniqs · Answer

bon, 

vu que cette demande a cr&#233;&#233;e des passions, j'ai trouv&#233; tout seul comme un grand, et c'&#233;tait pas du g&#226;teau,  &#231;a &#224; pris 2 jours pleins pour en faire trois lignes de codes, 

alors, voil&#224;, je ne sais pas si &#231;a int&#233;resse beaucoup de monde, mais j'ai sacr&#232;ment envie de vous faire mariner  , donc : si je n'ai pas de r&#233;ponses sur ce forum d&#251;ment motiv&#233;es et en nombre (allez 10), je me le garde pour moi, , na !.

Etniqs   *<:-)

(et ceux qui ne comprendront pas ma d&#233;marche n'ont pas d&#251; suer sang et eaux pour trouver une solution &#224; leur probl&#232;me (de programmation j'entend ))
-------------------------------------------------------------------------------------------------------------
r&#226;&#226;&#226;&#226;&#226;&#226;......lovely

visualbasiceur · Answer

T reloud. Parceque moi j'ai sué et j'ai pas trouvé

visualbasiceur · Answer

A moi aussi j'ai trouvé...

visualbasiceur · Answer

Si vous voulez faire la sélection avec la souris:

Private Function copier()
Web.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT
Text1.text = Clipboard.GetText
End Function

pour tout sélectionner puis copier:
Private Function copier()
Web.ExecWB OLECMDID_SELECTALL, OLECMDEXECOPT_DODEFAULT
Web.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT
Text1.text = Clipboard.GetText
End Function

et si vous voulez placez votre fonction dans un bouton:

Private Sub Command1_Click()
copier
End Sub

Et voilà...

cs_etniqs · Answer

beuu  pas drole ...

coïto ergo sum

Pages internet

8 réponses

Discussions similaires