快速获取网址一法

当我们看到有价值的链接时，我们总是希望保存它们的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