ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

CHERCHER ET METTRE EN SURBRILLANCE UN MOT DANS UNE PAGE WEB   



L'auteur

ybenam
Algérie Algérie
Membre Simple
# 0000002080
enregistré le 21/04/2008


Fiche personnelle


Note des membres
pas de note

Contributions > 09 - Automation > Internet Explorer

CHERCHER ET METTRE EN SURBRILLANCE UN MOT DANS UNE PAGE WEB
# 0000000568
ajouté le 12/05/2008 16:15:24 et modifié le 12/05/2008
consulté 4332 fois
Niveau débutant

Version(s) Foxpro :
VFP 6.0


Télécharger le ZIP (10.43 Ko)
Description

Ce petit programme écrit en VFP6.0 effectue la recherche d'un mot sur une page WEB et le met en surbrillance dans la page web affichée.Il renvoie le nombre d'occurences de ce mot dans cette page.
Dans le zip ci joint ,vous trouverez une documentation sur .


téléchargez le zip benameuryousfi1@gmail.com

Code source :
&&rechercher un mot quelconque dans une page web et le mettre en surbrillance verte #00FF00 et retourner le nombre d'occurences.
*syntaxe : [do ysearch_word_web with <mot>]
*B.Yousfi  10/2007

lparameters mot   &&chaîne à rechercher
if parameters()#1
messagebox("do ysearch_word_web with <mot à remplacer>",0+64,"Syntaxe de la commande")
return
endi
ll=len(mot)

xx=getfile("htm|html")
if empty(xx)
return
endi

ystr=filetostr(xx)

******************
&&nbre d'occurences
xword=allt(str(occurs(mot,ystr)   ))
messagebox("Page web :"+xx+chr(13)+"Nbre d'occurences trouvées de ["+mot+"] = "+xword,0+32,"Occurences")
******************

xstr=""
nouv='<span style="background-color: #00FF00">'+mot+'</span>'
xstr=STRTRAN(ystr,mot , nouv)   &&ttes les occurences seront remplacées
&&Attention ,la recherche respecte la casse.
*******************
set safe off
afile="c:\asupprimer.htm"
=strtofile(xstr,afile)
set safe on

apIE=createObject('internetexplorer.application')
apIE.visible=.t.
apIE.navigate(afile)

if messagebox("Supprimer c:\asupprimer.html ?",4+64,"Nettoyage")=6
set safe off
dele file c:\asupprimer.html
endi
Commentaires
Aucun commentaire enregistré ...

Publicité

Les pubs en cours :

www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2019.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3