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() - t