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

RENOMMER 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

RENOMMER UNE PAGE WEB
# 0000000567
ajouté le 12/05/2008 16:10:55 et modifié le 12/05/2008
consulté 6983 fois
Niveau débutant

Version(s) Foxpro :
VFP 6.0

Description

Renommer une page web doit obligatoirement s'accompagner du changement de tous les hyperliens pour le dossier associé <_fichiers> et qui contient tous les auxiliaires (images,scripts,objets,..).
C'est ce que fait la fonction du navigateur Iexplore moyennant sa boite de dialogue.
Ce programme est rédigé sous VFP6.0 5 (et j'oublie toujours de dire :" qui le plus peut le moins pour les autres versions")

benameuryousfi1@gmail.com

Code source :
*ysave_web_page.prg
*B.Yousfi 08/2006
messagebox("Renommer une page Web sans perte des liens et du répertoire éventuel associé(<_fichiers>)...identique à <enregistrer sous..d'IEXPLORE.>",0+64,"Page web")

afile=getfile('htm|html|mht')
if empty(afile)
return
endi

xnom="NOUVEAU.htm"       && nom désiré de la nouvelle page à transcrire ici (on peut le passer comme paramètre)
bfile=justpath(afile)+"\"+xnom
oldrep=justpath(afile)+"\"+juststem(afile)+"_fichiers"

ystr=lower(filetostr(afile))

x=lower(juststem(afile)+"_fichiers")
y=lower(juststem(bfile)+"_fichiers")

ystr=strtran(ystr,x,y)
=strtofile(ystr,bfile)
**************************
if directory(oldrep)
nouveauRep=justpath(afile)+"\"+juststem(bfile)+"_fichiers"
=ycopyrep(oldrep,nouveauRep)
endi
***************************
DECLARE INTEGER ShellExecute IN shell32.dll ;
  INTEGER hndWin, STRING cAction, STRING cFileName, ;
  STRING cParams, STRING cDir, INTEGER nShowWin
ShellExecute(0,"open",bfile,"","",1)
****************************

function ycopyrep()
lparameters oldrep,nouveaurep
clear
oFSO=CreateObject("Scripting.FileSystemObject")
oFSO.CopyFolder(oldrep,nouveauRep,.T.)
return
Commentaires
Aucun commentaire enregistré ...

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