>I was able to speed up the results to .05 seconds by switching from using strtofile to using FREAD, etc. The other problem with the algorithm is that it, well, doesn't work. It misses some entries.
>So, if nothing else the VB's guys beat us to a solution that is correct.
set safety off
local vfCRLF, lc3CRs
vfCRLF = chr(13) + chr(10)
lc3CRs = chr(13) + chr(13) + chr(13)
Local lcSafety, lnSeconds, lcBrownAlums, lnTagStart, ;
lcAlum, lnFirstQuote, lcURL, lnYearQuote, ;
lcName, lcYear, lcSortYear, lcOutput
local array laTags[1]
local array laQuotes[1]
lnSeconds = SECONDS()
lcBrownAlums = FILETOSTR("BrownAlpha.html")
lcBrownAlums = chrtran(lcBrownAlums, chr(13), "")
lcBrownAlums = chrtran(lcBrownAlums, chr(10), "")
lnTagStart = AT("<UL>", lcBrownAlums)
lcBrownAlums = SUBSTR(lcBrownAlums, lnTagStart )
lcBrownAlums = strtran(lcBrownAlums, "<A HREF=", chr(13) + "<A HREF=")
lcBrownAlums = strtran(lcBrownAlums, "<AHREF=", chr(13) + "<A HREF=")
lcBrownAlums = strtran(lcBrownAlums, "</A>", "</A>" + chr(13))
lcFileStr = "<ALUMLIST>" + vfCRLF
for i = 1 to alines(laTags, lcBrownAlums)
If laTags[i] = "<A HREF="
laTags[i] = chrtran(laTags[i], '"><', lc3CRs)
=alines(laQuotes, laTags[i])
lcURL = laQuotes[3]
lcName = laQuotes[4]
lnYearQuote = AT("'", laQuotes[4])
If lnYearQuote > 0
lcName = left(laQuotes[4], lnYearQuote - 1)
lcYear = SUBSTR(laQuotes[4], lnYearQuote)
lcSortYear = "19" + SUBSTR(lcYear, 2, 2)
Else
lcName = laQuotes[4]
lcYear = ''
lcSortYear = ''
Endif
lcName = rtrim(lcName)
lcFileStr = lcFileStr + " <ALUM>" + vfCRLF + ;
" <NAME>" + lcName + "</NAME>" + vfCRLF + ;
" <SHOWYEAR>" + lcYear + "</SHOWYEAR>" + vfCRLF + ;
" <SORTYEAR>" + lcSortYear + "</SORTYEAR>" + vfCRLF + ;
" <URL>" + lcURL + "</URL>" + vfCRLF + ;
" </ALUM>" + vfCRLF
Endif
Endfor
Strtofile(lcFileStr+"</ALUMLIST>", "browna.xml")
lnSeconds = SECONDS() - lnSeconds
=strtofile( "Albert2 - " + str(lnSeconds, 12, 3) + vfCRLF, "results.txt", .t. )
Release ALL
Clear ALL
