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]
laQuotes[4] = chrtran(laQuotes[4], "'", chr(13))
=alines(laNameYear, laQuotes[4])
If alines(laNameYear, laQuotes[4]) > 1
lcYear = left(laNameYear[2], 2)
lcSortYear = "19" + lcYear
lcYear = "'" + lcYear
Else
lcYear = ''
lcSortYear = ''
Endif
lcName = rtrim(laNameYear[1])
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( "Albert - " + str(lnSeconds, 12, 3) + vfCRLF, "results.txt", .t. )
Release ALL
Clear ALL
