SetDirectory["C:\\drorbn\\AcademicPensieve\\Classes\\OldNotebooks"]

pdb=StringSplit[Import["PageDatabase.php.txt"], "\n"];
pdb=Take[pdb, {3,-3}];
Take[pdb,5]

Length[pdb]

pages=StringTake[#, {4,-6}]& /@ pdb[[1;;2206;;5]];
Take[pages,3]

comments=StringTake[#, {19,-4}]& /@ pdb[[4;;2209;;5]];
comments = StringReplace[#, "\\'" -> "'"]& /@ comments;
Take[comments,3]

dirs = Union[First /@ (StringSplit[#, "_"]& /@ pages)]

PageComments[dir_String] := Select[
Thread[pages -> comments],
First@StringSplit[#[[1]], "_"]===dir &
]

PageComments["99-Mechanics"]