XYplorer Beta Club

Code: Select all

fsutil 8dot3name query

Code: Select all

02/10/2004  11:52    <DIR>          REGIST~2     RegisteredPackages
31/12/2004  02:38    <DIR>          REGIST~1     Registration

Code: Select all

    // Convert long to short name
    $item = <curitem>;
    $base = gpc($item, "base");
    $ext = gpc($item, "ext");

    // Get the base name if it's less or equal to 8 chars or the condensed name
    // with 6 chars, all spaces and dots removed
    $short = (strlen($base) <= 8) ? $base : substr(regexreplace($base, "[ .]*"), 0, 6);
    if ($short == $base) { $shortFinal = $short; }
    else {
        // List all items of the same type (extension | folder)
        $type = (exists($item) == 1) ? "f" : "d";
        $query = ($type == "f") ? "*." . gpc($item, "ext") . " /nf" : "/nd";
        $sameType = quicksearch($query);

        $index = gettokenindex($item, $sameType, <crlf>, "i");
        // We need only the 1 - $index items, remove all following ones
        $sameType = gettoken($sameType, $index, <crlf>, , 1);

        // Now find all items that match our short name "enriched" with any amount
        // of spaces or dots after each character
        $pattern = regexreplace($short, "(.)", "$1[ .]*");
        $matches = regexmatches($sameType, $pattern, <crlf>);

        // The last index must be our new suffix "~<index>"...
        $shortFinal = recase($short . "~" . gettoken($matches, "count", <crlf>) . (($type == "f") ? ".$ext" : ""), "U");
    }
    text $shortFinal;