18 lines
977 B
Plaintext
18 lines
977 B
Plaintext
on mouseUp
|
|
put empty into fld "taskurls"
|
|
put URL "http://rosettacode.org/mw/api.php?action=query&list=categorymembers&cmtitle=Category:Programming_Tasks&cmlimit=10&format=xml" into apixml
|
|
put revXMLCreateTree(apixml,true,true,false) into pDocID
|
|
put "/api/query/categorymembers/cm" into pXPathExpression
|
|
repeat for each line xmlnode in revXMLEvaluateXPath(pDocID, pXPathExpression)
|
|
put revXMLAttribute(pDocID,xmlnode,"title") into pgTitle
|
|
put revXMLAttribute(pDocID,xmlnode,"pageid") into pageId
|
|
put "http://www.rosettacode.org/w/index.php?title=" & urlEncode(pgTitle) & "&action=raw" into taskURL
|
|
put URL taskURL into taskPage
|
|
filter lines of taskPage with "=={{header|*"
|
|
put the number of lines of taskPage into taskTotal
|
|
put pgTitle & comma & taskTotal & cr after fld "tasks"
|
|
add taskTotal to allTaskTotal
|
|
end repeat
|
|
put "Total" & comma & allTaskTotal after fld "tasks"
|
|
end mouseUp
|