SetDirectory["C:\\wamp\\www\\qctags"]

(*If[!DirectoryQ["taglists"],CreateDirectory["taglists"]]*)

tags=Import["alltags.txt","CSV"];
max=Length[tags];
Export["max.txt",max];
alltags=Tally[Flatten[tags]][[All,1]];
DeleteFile[FileNames["taglists/*.txt"]];
taglist={};
Do[
poslist=Position[tags,tag][[All,1]];
taglist=Append[taglist,Join[{tag},poslist]];
(*Export["taglists/"<>tag<>".txt",poslist];*)
,{tag,alltags}
];
Export["alltaglists.txt",taglist,"CSV"];

archives=Import["http://questionablecontent.net/archive.php"];
title[num_]:=Switch[num,
878,"878: One Flew Over the Cuckoo's Nest",
1645,"1645: Unexpected Windfall",
570,"570: She Missed It All",
569, "569: Cocoa is a Good Peace Offering",
2770,"2770: Plans Gone Awry",
_, StringCases[archives,RegularExpression[ToString[num]<>": .+"]][[-1]]
];
titletab=Table[title[i],{i,1,max}];
Export["alltitles.txt",titletab]

title[max]