Rosetta Code/Rank languages by number of users: Difference between revisions

m
m (correct output)
Line 31:
gen j = ustrpos(v1,char(34),i+1)
gen k = ustrpos(v1,char(34),j+1)
gen s = usubstr(v1,j+17,k-j-17)
replace i = ustrpos(v1,"title=")
replace j = ustrpos(v1,">",i+1)
Line 42:
local s
preserve
copy `"httphttps://rosettacode.org/mw/index.php?title=`=s[`i']'&redirect=no"' `i'.html, replace
import delimited `i'.html, delim("@") enc("utf-8") clear
count if ustrpos(v1,"/wiki/User")
Line 67:
5. | JavaScript 186 |
|---------------------|
6. | Javascript 186 PHP 163 |
7. | Perl PHP 163162 |
8. | Perl SQL 162 131 |
9. | UNIX Shell SQL 131120 |
10. | UNIX Shell C sharp 120 113 |
|---------------------|
11. | C sharpPascal 113109 |
12. | Pascal BASIC 109 102 |
13. | BASIC 102 |
+---------------------+</pre>
1,336

edits