-
vfp教程之用VFP管理网页文件
作者:何咏明、尹有仁
随着计算机技术的发展,Internet已经渗透到我们生活的各个方面中,如何管理和维护一个网站中的网页文件,对于网站来说至关重要。
笔者利用VFP的管理思想,将网站的一个目录树及其下面的所有网页文本保存到库中从而达到维护网页文件的功能,这样当某一个用户无意中删除了网页文件时可以借助于存放在库中的文件加以恢复。
功能介绍
利用VFP创建一个表单,在该表单中安排四个命令按钮,如图所示。选择站点目录是直接调用VFP的函数选定一个目录,并将选定的目录保存到一个历史表history_tab(字段:dir_name);保存网页文件则通过编写一个递归调用的遍历目录树的函数thisform.search(cur_directory)来遍历选定的一个目录,将该目录中所需要的网页文件获取到一个表data_asp;恢复网页文件则是直接从表data_asp中恢复所有的网页文件。
保存选定目录中的网页文件需要借助于递归调用的思想方法来遍历一个目录树,这可以使用数据结构中所谓“深度优先搜索”的算法来完成,表单中的方法程序search(current_dir)就是完成该功能。
实现代码
表单中的方法程序及命令按钮代码如下:
添加的表单方法程序:thisform.search,参数current_dir
parametercurrent_dir
locali,cur_dir,tempdir,file1(1,1),extens,ok,file2
chdir(current_dir)
=adir(file1,".","AD")&&&&将该目录下的所有文件保存到数组file1中
cur_dir=curdir()&&&&保存当前目录
fori=1toalen(file1,1)
若遇到一个子目录时则进行递归调用
ifalltrim(file1(i,1))!="."andalltrim(file1(i,1))!=".."and("D"$file1(i,5))
ifright(rtrim(cur_dir),1)="\"
tempdir=cur_dir+file1(i,1)
else
tempdir=cur_dir+"\"+file1(i,1)
endif
thisform.search(tempdir)
else
检测是否是网页扩展名
chdir(cur_dir)&&&&回退到父目录
ok=.f.&&&&一个文件目录是否为网页文件
ifat(".",fullpath(file1(i,1)))<>0
extens=right(fullpath(file1(i,1)),len(fullpath(file1(i,1)))-at(".",fullpath(file1(i,1))))
docase
caselower(extens)="asp"
ok=.t.
caselower(extens)="htm"
ok=.t.
caselower(extens)="html"
ok=.t.
caselower(extens)="php"
ok=.t.
caselower(extens)="htx"
ok=1
caselower(extens)=”js”
ok=.t.
caselower(extens)="idc"
ok=.t.
caselower(extens)="idx"
ok=.t.
endc
ifok=.t.
&&&&是网页文件则插入到表data_asp中
file2=fullpath(file1(i,1))
insertintodata_aspvalues(file2,"",thisform.cur_directory)
appememocontentfrom(file2)
endif
endif
endif
next
选择站点目录
thisform.cur_directory=getdir()
selecthistory_tab
locateallfordir_name=thisform.cur_directory
iffound()
insertintohistory_tabvalues(thisform.cur_directory)
else
selectdata_asp
deleallfordir_name=thisform.cur_directory
endif
保存网页文件
localchoice,defaultdir
ifalltrim(thisform.cur_directory)==""
choice=messagebox
("你应该选择一个站点目录",0)
else
defaultdir=curdir()
chdir(thisform.cur_directory)
=thisform.search(thisform.cur_directory)
chdir(defaultdir)
endif
恢复网页文件
selectdata_asp
setdeleteon
gotop
scan
copymemocontentto(filename)
endscan
return
*退出
selectdata_asp
pack
selecthistory_tab
pack
closeall
releasethisform
这里,我们仅实现了文本文件的保存和恢复,如果将通用型字段加入到表中,就可以实现对于图形文件的保存和恢复,那么该程序就更加完善了。
随着计算机技术的发展,Internet已经渗透到我们生活的各个方面中,如何管理和维护一个网站中的网页文件,对于网站来说至关重要。
笔者利用VFP的管理思想,将网站的一个目录树及其下面的所有网页文本保存到库中从而达到维护网页文件的功能,这样当某一个用户无意中删除了网页文件时可以借助于存放在库中的文件加以恢复。
功能介绍
利用VFP创建一个表单,在该表单中安排四个命令按钮,如图所示。选择站点目录是直接调用VFP的函数选定一个目录,并将选定的目录保存到一个历史表history_tab(字段:dir_name);保存网页文件则通过编写一个递归调用的遍历目录树的函数thisform.search(cur_directory)来遍历选定的一个目录,将该目录中所需要的网页文件获取到一个表data_asp;恢复网页文件则是直接从表data_asp中恢复所有的网页文件。
保存选定目录中的网页文件需要借助于递归调用的思想方法来遍历一个目录树,这可以使用数据结构中所谓“深度优先搜索”的算法来完成,表单中的方法程序search(current_dir)就是完成该功能。
实现代码
表单中的方法程序及命令按钮代码如下:
添加的表单方法程序:thisform.search,参数current_dir
parametercurrent_dir
locali,cur_dir,tempdir,file1(1,1),extens,ok,file2
chdir(current_dir)
=adir(file1,".","AD")&&&&将该目录下的所有文件保存到数组file1中
cur_dir=curdir()&&&&保存当前目录
fori=1toalen(file1,1)
若遇到一个子目录时则进行递归调用
ifalltrim(file1(i,1))!="."andalltrim(file1(i,1))!=".."and("D"$file1(i,5))
ifright(rtrim(cur_dir),1)="\"
tempdir=cur_dir+file1(i,1)
else
tempdir=cur_dir+"\"+file1(i,1)
endif
thisform.search(tempdir)
else
检测是否是网页扩展名
chdir(cur_dir)&&&&回退到父目录
ok=.f.&&&&一个文件目录是否为网页文件
ifat(".",fullpath(file1(i,1)))<>0
extens=right(fullpath(file1(i,1)),len(fullpath(file1(i,1)))-at(".",fullpath(file1(i,1))))
docase
caselower(extens)="asp"
ok=.t.
caselower(extens)="htm"
ok=.t.
caselower(extens)="html"
ok=.t.
caselower(extens)="php"
ok=.t.
caselower(extens)="htx"
ok=1
caselower(extens)=”js”
ok=.t.
caselower(extens)="idc"
ok=.t.
caselower(extens)="idx"
ok=.t.
endc
ifok=.t.
&&&&是网页文件则插入到表data_asp中
file2=fullpath(file1(i,1))
insertintodata_aspvalues(file2,"",thisform.cur_directory)
appememocontentfrom(file2)
endif
endif
endif
next
选择站点目录
thisform.cur_directory=getdir()
selecthistory_tab
locateallfordir_name=thisform.cur_directory
iffound()
insertintohistory_tabvalues(thisform.cur_directory)
else
selectdata_asp
deleallfordir_name=thisform.cur_directory
endif
保存网页文件
localchoice,defaultdir
ifalltrim(thisform.cur_directory)==""
choice=messagebox
("你应该选择一个站点目录",0)
else
defaultdir=curdir()
chdir(thisform.cur_directory)
=thisform.search(thisform.cur_directory)
chdir(defaultdir)
endif
恢复网页文件
selectdata_asp
setdeleteon
gotop
scan
copymemocontentto(filename)
endscan
return
*退出
selectdata_asp
pack
selecthistory_tab
pack
closeall
releasethisform
这里,我们仅实现了文本文件的保存和恢复,如果将通用型字段加入到表中,就可以实现对于图形文件的保存和恢复,那么该程序就更加完善了。
最新更新
显示/隐藏Excel网格线
用NPOI操作EXCEL--锁定列
组合行、列
用NPOI操作EXCEL--设置密码
用NPOI操作EXCEL--调整表单显示比例
打印相关设置
用NPOI操作EXCEL--插入图片
用NPOI操作EXCEL--画Grid
用NPOI操作EXCEL--画圆形
用NPOI操作EXCEL--画矩形
MySql索引原理与使用大全
Mysql命令大全(完整版)
Mysql常用命令行大全
mysql 索引类型以及创建
mysql命令详解
mysql的下载和命令行简单操作
mysql常用管理命令
MySQL命令大全
mysql命令行登录容易出现的错误
解决mysql的cmd命令错误及2003连接错误
数据类型之对象
数据类型之布尔型、整型、浮点型和字符
php教程之数据类型之数组
php教程之PHP 常量
php教程之变量
php教程之语法
PHP简介与安装
phpMyAdmin配置安装全攻略
PHP是什么
win2003 iis整合php后 环境变量无法读取到