XYplorer Beta Club

Code: Select all

    $content  = readfile("<xydata>\<xyini>");
    $cntLines = gettoken($content, "count", <crlf>);
    $section  = "";
    $log      = "";
    while ($i++ < $cntLines) {
        $line = gettoken($content, $i, <crlf>);
        if (regexmatches($line, "^\[\w+?\]")) { $section = regexreplace($line, "(\[|\])"); }
        $desc = regexmatches($line, "^; Tweak:.*?(?=\r?\n|$)");
        if ($desc) {
            $desc = regexreplace($desc, "; tweak:[ ]*");
            $log .= $section . "<:>" . $desc . "<:>" . gettoken($content, $i + 1, <crlf>) . <crlf>;
        }
        status "Parsing line " . $i . " / " . $cntLines, , "progress";
    }
    text $log;