mart.lua

--[[
 * ReaScript Name: Export regions as txt file
 * Description: See title.
 * Instructions: Save project. Have regions. Run.
 * Author: X-Raym
 * Author URI: http://extremraym.com
 * Repository: GitHub > X-Raym > EEL Scripts for Cockos REAPER
 * Repository URI: https://github.com/X-Raym/REAPER-EEL-Scripts
 * File URl: 
 * Licence: GPL v3
 * Forum Thread: Export regions as file
 * Forum Thread URI: http://forum.cockos.com/showthread.php?t=163363
 * REAPER: 5.0
 * Extensions: None
 * Version: 1.0
--]]

--[[
 * Changelog:
 * v1.0 (2016-01-04)
	+ Initial Release
--]]

 
--------------------------------------------------------
-- DEBUG
-- -----

-- Console Message
function Msg(g)
	reaper.ShowConsoleMsg(tostring(g).."\n")
end
function string:split(sep)
   local sep, fields = sep or ":", {}
   local pattern = string.format("([^%s]+)", sep)
   self:gsub(pattern, function(c) fields[#fields+1] = c end)
   return fields
end



---------------------------------------------------------
-- NUMBER
-- ------

-- Format Seconds
function Format(number)
	str = reaper.format_timestr_pos(number, "", 5)
	return str
end



--------------------------------------------------------
-- PATHS
-- -----

-- Get Path from file name
function GetPath(str,sep)
    return str:match("(.*"..sep..")")
end


-- Check if project has been saved
function IsProjectSaved()
	-- OS BASED SEPARATOR
	if reaper.GetOS() == "Win32" or reaper.GetOS() == "Win64" then
		-- user_folder = buf --"C:\\Users\\[username]" -- need to be test
		separator = "\\"
	else
		-- user_folder = "/USERS/[username]" -- Mac OS. Not tested on Linux.
		separator = "/"
	end

	--path = reaper.GetProjectPath("") -- E:\Bureau\Projet\Audio
	--path = path:gsub("Audio", "") -- E:\Bureau\Projet\

	retval, project_path_name = reaper.EnumProjects(-1, "")
	if project_path_name ~= "" then
		
		dir = GetPath(project_path_name, separator)
		--msg(name)
		name = string.sub(project_path_name, string.len(dir) + 1)
		name = string.sub(name, 1, -5)

		name = name:gsub(dir, "")
		--file = dir .. "HTML" .. separator .. name .. " - Items List.html"
		file = dir .. name .. " - Regions List.txt"
		--msg(name)
		project_saved = true
		return project_saved
	else
		display = reaper.ShowMessageBox("You need to save the project to execute this script.", "File Export", 1)

		if display == 1 then

			reaper.Main_OnCommand(40022, 0) -- SAVE AS PROJECT

			return IsProjectSaved()

		end
	end
end


------------------------------------------------------------------
-- COLOR FUNCTIONS
-- ---------------


--------------------------------------------------------------
-- CREATE FILE
-- -----------

-- New HTML Line
function export(f, variable)
	f:write(variable)
	f:write("\n")
end

-- Create File
function create(f)
	-- CREATE THE FILE
	io.output(file)
	
	i=0
	repeat
		iRetval, bIsrgnOut, iPosOut, iRgnendOut, sNameOut, iMarkrgnindexnumberOut, iColorOur = reaper.EnumProjectMarkers3(0,i)
		if iRetval >= 1 then
			if bIsrgnOut == true then
				start_time = reaper.format_timestr(iPosOut, "")
				end_time =  reaper.format_timestr(iRgnendOut, "")
				-- [start time HH:MM:SS.F] [end time HH:MM:SS.F] [name]
				seconds = iRgnendOut - iPosOut
				minutes = math.floor((seconds) / 60)
				seconds = math.floor(seconds - minutes * 60)
				if seconds < 9 then
					seconds = "0"..seconds
				end
				sNameOut = sNameOut:split("\\")[2]
				line = "<li><strong>"..sNameOut.."</strong>("..minutes .. ":" .. seconds .. ")</li>"
				export(f, line)
			end
			i = i+1
		end
	until iRetval == 0

	-- CLOSE FILE
	f:close() -- never forget to close the file

	Msg("Regions Lists exported to:\n" .. file .."\n")

end



----------------------------------------------------------------
-- MAIN FUNCTION
-- -------------

function main() -- local (i, j, item, take, track)

	local f = io.open(file, "w")

	-- HTML FOLDER EXIST
	if f ~= nil then
		create(f)
	end

end -- ENDFUNCTION MAIN


----------------------------------------------------------------------
-- RUN
-- ---

-- Check if there is selected Items
retval, count_markers, count_regions = reaper.CountProjectMarkers(0)

if count_regions > 0 then

	project_saved = IsProjectSaved() -- See if Project has been save and determine file paths
	if project_saved then
		main() -- Execute your main function
	end

else
	Msg("No regions in the project.")
end -- ENDIF Item in project