XYplorer Beta Club

Code: Select all

"Make XSPF Playlist and Open : xspf"
  $q = chr(34);
  $lt = chr(60);
  $gt = chr(62);
  $xspf = "$lt".'?xml version='."$q".'1.0'."$q".' encoding='."$q".'UTF-8'."$q".'?'."$gt".<crlf>."$lt".'playlist version='."$q".'1'."$q".' xmlns='."$q".'http://xspf.org/ns/0/'."$q"."$gt".<crlf>.'  '."$lt".'trackList'."$gt".<crlf>.'    ';
  
  foreach ($file, <selitems |>, "|") {
    selectitems $file;
    $xspf = $xspf."$lt".'track'."$gt".<crlf>.'      '."$lt".'title'."$gt".<curbase>."$lt".'/title'."$gt".<crlf>.'      '."$lt".'location'."$gt".<curitem_dos>."$lt".'/location'."$gt".<crlf>.'    '."$lt".'/track'."$gt".<crlf>.'    ';
    
  }
  $xspf = $xspf."$lt".'/trackList'."$gt"."$lt".'/playlist'."$gt".<crlf>;
  writefile("%temp%\xy\playlist.xspf", $xspf,"o", "utf8bom");
  open "%temp%\xy\playlist.xspf";
  end 1==1;

Code: Select all

    + SC getpathcomponent(), gpc(): Added component value "dos" to convert a long
      path spec to DOS format (aka 8.3 format).
      Remarks:
        - Yes, that's a bit of an abuse of this function, but tolerable I think.
        - Only the valid (existing) part of the input path is returned.
        - The return is always without trailing backslash, even if the input had one.        
        - Note that in Windows the 8.3 file naming can be enabled/disabled per drive. If it is disabled 
          then this function returns the (valid part of the) input unchanged (apart from 
          removing any trailing backslash).
      Example:
        echo getpathcomponent("C:\Program Files", "dos"); //C:\PROGRA~1
    + SC getpathcomponent(), gpc(): Added component value "long" to convert a DOS/8.3 
      path spec into the long format.
      Remarks:
        - See above under "dos".
      Example: 
        echo getpathcomponent("C:\PROGRA~1", "long"); //C:\Program Files

Code: Select all

"Make XSPF Playlist and Open : xspf"
    $ver = "23.00.0208"; end compare(<xyver>, $ver, "v") == -1, "This script requires at least v$ver, terminating now!";
    $sel = <get SelectedItemsPathNames>;
    end (!$sel), "No item(s) selected, aborted!";

    $sp2  = "  ";
    $sp4  = $sp2 . $sp2;
    $sp6  = $sp4 . $sp2;
    $lb   = <crlf>;
    $xspf = <<<>>>
<?xml version="1.0" encoding="UTF-8"?>
<playlist version="1" xmlns="http://xspf.org/ns/0/">
  <trackList>

    >>>;

    // Build list of files (selected files and files in selected folders)
    $files = "";
    foreach($item, $sel, $lb, "e") {
        if     (exists($item) == 1) { $files .= $item . $lb; }
        elseif (exists($item) == 2) { $files .= quicksearch("/f", $item) . $lb; }
    }
    $files = formatlist($files, "se", $lb);

    // Build the playlist
    if ($files) {
        foreach ($item, $files, $lb) {
            $title = gpc($item, "base");
            $short = gpc($item, "full", 3:=8);
            $xspf .= $sp4 . "<track>" . $lb . $sp6 . "<title>" . $title . "</title>" . $lb . $sp6 . "<location>" . $short . "</location>" . $lb . $sp4 . "</track>" . $lb;
        }
        $xspf .= $sp2 . "</trackList>" . $lb . "</playlist>" . $lb;

        $plFile = "%TEMP%\xy\playlist.xspf";
        writefile($plFile, $xspf, "o", "utf8bom");
        open "$plFile";
    }

Code: Select all

    + SC getpathcomponent(), gpc(): Added flag values to convert a path to and from 
      DOS/8.3 format, and a new component value "full".
      Syntax: getpathcomponent([path], [component], [index=1], [flags])
        component: 
          full:   Return all components of the input path.
        flags: (bit field)
          8 = Convert long format to DOS/8.3
         16 = Convert DOS/8.3 to long format
      Examples:
        echo getpathcomponent("C:\Program Files", "full", 3:=8);  //C:\PROGRA~1
        echo getpathcomponent("C:\PROGRA~1", "full", 3:=16); //C:\Program Files
        echo getpathcomponent("C:\Program Files\AutoHotkey\AutoHotkeyU64.exe", "file", 3:=8);  //AUTOHO~3.EXE