create cursor c_urls ( url c(100), thetime t DEFAULT DATETIME()) PRIVATE lcAll, ln ,aUrl lcAll = filetostr( 'index.dat' ) * next line is for test *lcAll='AAhttp://1'+CHR(0)+'fsdfsdSDFFSDFSDFfhttp://2'+CHR(0)+'sdsdfBFGHDGHGHDGHsdf' *FOR K=1 TO 5 *lcAll=m.lcAll+m.lcAll * NEXT *? LEN(lcAll) ** END SET ESCAPE ON t = seconds() for ln = 2 to ALINES(aUrl, SUBSTR(m.lcAll, AT('http://',m.lcAll)),'http://') STORE AT(CHR(0),aUrl[m.ln]) TO lnNIL if m.lnNIL > 1 insert into c_urls values ( "http://"+LEFT(aUrl[m.ln],m.lnNIL-1), datetime() ) ENDIF next ? ln -1, seconds() - tFabio