快速获取网址一法
当我们看到有价值的链接时,我们总是希望保存它们的URL以供将来访问。手工从网页中提取网址比较繁琐,需要反复复制粘贴。
笔者利用VFP的低级文件功能编写了一个小程序,可以快速提取HTML文件中的所有网址。源程序如下:
*html2url.prg
Set compatible on&&for FSIZE():ON返回文件大小,OFF返回字段大小。
source filename = ' c:\ tszz \ shtml . htm '
&源文件名
target filename = ' c:\ tszz \ turl . htm '
& &目标文件名
if文件(源文件名)是否存在?
nUrlFile=FSIZE(SourceFileName)
& &返回文件大小,64KB。
UrlFile = FOPEN(SourceFileName,12)
ContentUrlFile=FREAD(UrlFile,nUrlFile)
& &返回文件的内容
其他
等待源文件不存在
结束条件
new urlfile = FCREATE(target filename)
1 =内容urlfile &源文件内容字符串
STR =“& &目标文件内容字符串
centi=INT(NUrlFile/100)
i=1
对于I = 1,nurlfile & &从文件的开头到结尾搜索源文件。
如果INT(I/厘)= I/厘,则
等等,请等等!转变...,completed '+all trim(str(round(I/Nurl file * 100,0))+'%'windownowait。
结束条件
如果SUBSTR(str1,I,2)=′A′或SUBSTR(str1,I,2)=′A′则
j=i+1
DO WHILE SUBSTR (str1,j,4)《\'/ A \'和SUBSTR (str1,j,4)《\'/ A \'
j=j+1
结束循环
str2=str2+SUBSTR(str1,I,j-I+4)+′〈br〉′+CHR(13)+CHR(10)
结束条件
然后
Ifurlfile < 0&&检查文件打开错误
等待“无法打开文件”窗口
否则& &如果没有错误,关闭文件
= fclose (urlfile)&&关闭文件
结束条件
如果NewUrlFile 〈 0,则
“等待”无法打开或创建输出文件“WINDOW NOWAIT”
其他
=FWRITE(NewUrlFile,str2)
& &编写目标文件
=FCLOSE(NewUrlFile)
结束条件
RETURN
0条评论