回复 7楼 TonyDeng
如果要换页,我同意T版这个说法
个性太多,无法显示
CLEAR CLOSE ALL CREATE CURSOR DHTQ (电话 C(20),地址 C(150)) HANDLE=FOPEN([DH01.TXT],10) =FSEEK(HANDLE,0,0) DO WHILE NOT FEOF(HANDLE) CSTR=FGETS(HANDLE,512) IF OCCURS([电话:],CSTR)>0 =ALINES(AA,STRTRAN(CSTR,[电话:],[]),[地址:]) INSERT INTO DHTQ VALUES(AA(1),AA(2)) ENDIF ENDDO =FCLOSE(HANDLE) BROWSE只提取了第一页的内容,见下图
*--- 转换为文本文件 CLEAR CLOSE ALL HANDLE=FOPEN([DH01.TXT],10) =FSEEK(HANDLE,0,0) CSTR1=[] DO WHILE NOT FEOF(HANDLE) CSTR=FGETS(HANDLE,512) IF OCCURS([电话:],CSTR)>0 =ALINES(AA,STRTRAN(CSTR,[电话:],[]),[地址:]) CSTR1=CSTR1+AA(1)+[|]+AA(2)+CHR(13)+CHR(10) ENDIF ENDDO =FCLOSE(HANDLE) STRTOFILE(CSTR1,[DH.TXT])
CLEAR CLOSE ALL CREATE CURSOR DHTQ (电话 C(20)) HANDLE=FOPEN([DH01.TXT],10) =FSEEK(HANDLE,0,0) CSTR1=[] DO WHILE NOT FEOF(HANDLE) CSTR=FGETS(HANDLE,512) IF OCCURS([电话:],CSTR)>0 =ALINES(AA,STRTRAN(CSTR,[电话:],[]),[地址:]) INSERT INTO DHTQ VALUES(AA(1)) CSTR1=CSTR1+AA(1)+[|]+CHR(13)+CHR(10) ENDIF ENDDO =FCLOSE(HANDLE) =STRTOFILE(CSTR1,[DH.TXT]) &&生成文本文件 BROWSE只要是这个网页上的电话号码,都通用。