#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.2.2.0
 Author:         Jeff Wilder

 Script Function:
    Reads artist directory names in music folder and creates play commands For
    them in commands.xml.  When compiled, you will be able to say, for example,
    "play The Rolling Stones".
    
Note:
    This script assumes music folder directory structure of <artist>/<album>/<song>,
    or just <artist>/<song>.
    
Note:
    commands_in.xml contains other voice commands for other features.  I made
    it by copying the original commands.xml and deleting the last 4 lines
    (they are added back in at the end of this code).  This script basically
    reads in every line of commands_in.xml and writes them to commands.xml, 
    then writes the artist commands, then the last 4 lines to terminate the XML
    tags.
    
Note:
    The voice tag will be identical to the directory name.  You may want to tweak
    the artist directory names to make this more convenient, or you can make custom
    exceptions in the code, like I did for "Beethoven".
    
Note:
    There are some characters in artist names that cause the Grammar compiler To
    fail.  The most common is "&".  Just manually replaces these with "and" in 
    you artist directory names.

#ce ----------------------------------------------------------------------------

; Shows the filenames of all files in the current directory.
$search = FileFindFirstFile("p:\music\*.*")
$in_file = FileOpen("c:\program files\road runner\commands_in.xml", 0)
$out_file = FileOpen("c:\program files\road runner\commands.xml", 2)

; Check if file opened for reading OK
If $in_file = -1 Then
    MsgBox(0, "Error", "Unable to open input file.")
    Exit
EndIf

; Check if file opened for writing OK
If $out_file = -1 Then
    MsgBox(0, "Error", "Unable to open output file.")
    Exit
EndIf

; Copy contents of xml input file to new commands file
While 1
    $line = FileReadLine($in_file)
    If @error Then ExitLoop
    FileWrite($out_file, $line & @CRLF)
WEnd

; Check if the search was successful
If $search = -1 Then
    MsgBox(0, "Error", "No files/directories matched the search pattern")
    Exit
EndIf

; Loop through directories and files in music folder, and write voice command to xml output file.
While 1
    $file_name = FileFindNextFile($search) 
    If @error Then ExitLoop
    $tag = $file_name
    If StringInStr($tag, "m3u") Then
        ; Found a playlist instead of artist directory, just strip off the .m3u for the voice tag
        $tag = StringLeft($tag, StringLen($tag) - 4)
    EndIf
    If StringInStr($tag, "beethoven") Then
        ; Custom hack: some artist names are too long and I just want to abbreviate the voice tag
        $tag = "Beethoven"
    EndIf
    $line = StringFormat ("     <P VALSTR=""LOADLIST;C:\\music\\" & "%s;%s"">play %s</P>" & @CRLF, $file_name, $file_name, $tag)
    FileWrite($out_file, $line)
    ;MsgBox(4096, "File:", $file_name)
WEnd

; Write end of file stuff
FileWrite($out_file, "    </L>" & @CRLF)
FileWrite($out_file, "   <O>percent</O>" & @CRLF)
FileWrite($out_file, "  </RULE>" & @CRLF)
FileWrite($out_file, "</GRAMMAR>" & @CRLF)

; Close the file handles
FileClose($search)
FileClose($in_file)
FileClose($out_file)

"SEARCHSONGARTIST","RUNQW;wscript.exe" "$rrpath$\SmartPlayLists\queryWinamp.vbs" "$winamppath$" "artist HAS "$MySearch$"" "||RELOADLIST||Load;Audio_player.skin"