Rosetta Code/Find unimplemented tasks: Difference between revisions

Line 2,908:
 
gettaskslist "about:/wiki/Category:Programming_Tasks" ,True
WScript.Echoprint odic.Count
gettaskslist "about:/wiki/Category:Draft_Programming_Tasks",True
WScript.Echoprint "total tasks " & odic.Count
gettaskslist "about:/wiki/Category:"&lang,False
print "total tasks not in " & lang & " " &odic.Count & vbcrlf
WScript.Echo odic.Count
For Each d In odic.keys
print d &vbTab & Replace(odic(d),"about:", start)
next
 
WScript.Quit(1)
 
subSub print(s): wscript.stdout.writeline(s) : end Sub
On Error Resume Next
 
WScript.stdout.WriteLine (s)
If err= &h80070006& Then WScript.echo " Please run this script with CScript": WScript.quit
End Sub
 
Function getpage(name)
38

edits