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é 7740 fois
Niveau
débutant
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 .
&&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 ifparameters()#1 messagebox("do ysearch_word_web with <mot à remplacer>",0+64,"Syntaxe de la commande") return
endi
ll=len(mot)
xx=getfile("htm|html") ifempty(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
Retour à la liste
Algérie
Fiche personnelle
Note des membres
Niveau
débutant
Télécharger le ZIP