Workflow and/ or script to rename finder items using a .txt or a .csv file as a reference?

Question

Can someone assist me, I am looking for a workflow and/ or script that would allow me to rename finder items using a .txt or a .csv file as a reference for the new naming convention?

Answer 1

THANK YOU!!!! 
I have taken your recommendation and enabled the script menubar item.  I also tweeked the script as you recommended, I will play with both options to see which I prefer.   I thank you again for the quick turn around on this. 
If I am to understand your comment correctly about placing the .csv file in the same folder as the files to be renamed I should modify the script as such.
REMOVE:    
                    set csvFile to choose file with prompt "Select the CSV file." of type "public.text"
                    set workingFolder to (choose folder "Select the folder to be processed") as text
                    set fileList to (POSIX path of (files of folder workingFolder whose visible is true and name begins with "untitled"))
REPLACE WITH:     
                    set csvList to paragraphs of (read "/path/to/csvfile.csv")
                      set fileList to (POSIX path of (files of folder "/pah/to/folder" whose visible is true andname begins with "untitled"))
After reading this and attempting to modify it I am missing one piece of markup or the arrangement of the markup.
Please find the modified script with options:
-- change this to specify the correct csv delimiter
set splitDelimiter to ","
-- change this to specify the file name join character
set recombineDelimiter to "_"
-- choose the csv file
set csvFile to choose file with prompt "Select the CSV file." of type "public.text"
-- choose the folder
set workingFolder to (choose folder "Select the folder to be processed") as text
-- csv contents as list
set csvList to paragraphs of (read csvFile)
--set csvList to paragraphs of (read "/path/to/csvfile.csv")
tell application "System Events"
-- list of files in alphabetical order
     set fileList to (POSIX path of (files of folder workingFolder whose visible is true and name begins with "untitled"))
  -- set fileList to (POSIX path of (files of folder "/path/to/folder" whose visible is true and name begins with "untitled"))
     repeat with i from 1 to count of fileList
-- get a file from the file list and note its extension
          set currentFile to file (item i of fileList)
          set fileExtension to name extension of currentFile
-- get a line from the csv list, split it at the delimiter,  and recombine it
          set {oldTID, my text item delimiters} to {my text item delimiters, splitDelimiter}
          set newFileNamePieces to text items of (item i of csvList)
          set my text item delimiters to recombineDelimiter
          set newFileName to newFileNamePieces as text
          set my text item delimiters to oldTID
-- write the new name back out to the file
          set name of currentFile to (newFileName & "." & fileExtension)
     end repeat
end tell