hhc=openfile "e:/temp/chm/Luna_beta_archive.hhc" htmlfile=createfile "e:/temp/chm/Luna_beta_archive.html" pos=0 retString="" ss=" \n \n \n" while not eof hhc do ( if (skiptostring hhc "root.html\"")!=undefined do ( pos=(filepos hhc)-70 --print pos seek hhc pos skiptostring hhc "\"Local\" value=\"" retString=readDelimitedString hhc "\">\"" ss=ss+" "+ retString + "

\n" flush htmlfile ) ) print ss to:htmlfile close htmlfile