aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

tasks a-s

Browse source
This commit is contained in:
Ingy döt Net 2013-04-10 23:57:08 -07:00
parent 47bf37c096
commit b83f433714
12433 changed files with 156208 additions and 123 deletions
Download patch file Download diff file Expand all files Collapse all files

25
Task/Rosetta-Code-Count-examples/PureBasic/rosetta-code-count-examples.purebasic Normal file
View file

@ -0,0 +1,25 @@
OpenConsole()
URLDownloadToFile_( #Null, "http://www.rosettacode.org/w/api.php?action=query&list=categorymembers&cmtitle=Category:Programming_Tasks&cmlimit=500&format=xml", "tasks.xml", 0, #Null)
ReadFile(0, "tasks.xml")
x1$ = ReadString(0)
Repeat
x2 = FindString(x1$, "title=", x2 + 1)
If x2
title$ = Mid(x1$, x2 + 7, 99)
title$ = Left(title$, FindString(title$, ">", 1) - 4)
URLDownloadToFile_( #Null, "http://www.rosettacode.org/w/index.php?title=" + title$ + "&action=raw", "task.xml", 0, #Null)
ReadFile(1, "task.xml")
While Not Eof(1)
y1$ = ReadString(1)
If FindString(y1$, "=={{header|", 1)
j + 1
EndIf
Wend
PrintN( title$ +": " + Str(j) + " examples")
k + j
j = 0
CloseFile(1)
EndIf
Until x2 = 0
PrintN("Total: " + Str(k) + " examples")
Input()