快速获取网址一法

看到有价值的链接，我们总想将其网址保存起来，以便将来访问。用手工的方法提取网页中的网址是一件单调乏味的事，需要反复复制、粘贴。 　　笔者利用VFP的低级文件函数编了一个小程序，可以快速提取HTML文件中的所有网址。源程序如下： 　　＊html2url.prg 　　SET COMPATIBLE ON ＆＆ 针对FSIZE():ON返回文件大小 OFF返回字段大小 　　SourceFileName=′c:\tszz\shtml.htm′ 　　＆＆源文件名 　　TargetFileName=′c:\tszz\turl.htm′ 　　＆＆目标文件名 　　IF FILE(SourceFileName) ＆＆ 文件存在吗？ nUrlFile=FSIZE(SourceFileName) 　　＆＆ 返回文件大小,最大64KB UrlFile = FOPEN(SourceFileName,12) ContentUrlFile=FREAD(UrlFile,nUrlFile) 　　＆＆ 返回文件内容 　　ELSE WAIT ′源文件不存在′ WINDOW NOWAIT 　　ENDIF 　　NewUrlFile = FCREATE(TargetFileName) 　　str1=ContentUrlFile ＆＆ 源文件内容串 　　str2=′′ ＆＆ 目标文件内容串 　　centi=INT(NUrlFile/100) 　　i=1 　　FOR i=1 TO nUrlFile ＆＆在源文件中由文件头至文件尾进行搜索 IF INT(i/centi)=i/centi THEN WAIT ′请稍候！正在转换...,已完成′＋ALLTRIM(STR(ROUND(i/nUrlFile＊100,0)))＋′％′ WINDOW NOWAIT ENDIF IF SUBSTR(str1,i,2)=′〈A′ OR SUBSTR(str1,i,2)=′〈a′ THEN j=i＋1 DO WHILE SUBSTR (str1,j,4)〈〉′〈/A〉′ AND SUBSTR (str1,j,4)〈〉′〈/a〉′ j=j＋1 ENDDO str2=str2＋SUBSTR(str1,i,j－i＋4)＋′〈br〉′＋CHR(13)＋CHR(10) ENDIF 　　NEXT 　　IF UrlFile 〈 0 ＆＆ 检查打开文件错误 WAIT ′不能打开文件′ WINDOW NOWAIT 　　ELSE ＆＆如果没有错误，关闭文件 =FCLOSE(UrlFile) ＆＆ 关闭文件 　　ENDIF 　　IF NewUrlFile 〈 0 THEN WAIT ′不能打开或创建输出文件′WINDOW NOWAIT 　　ELSE =FWRITE(NewUrlFile,str2) 　　＆＆写目标文件 =FCLOSE(NewUrlFile) 　　ENDIF 　　RETURN 　　摘自《赛迪网》　王建疆/文