#pragma rtGlobals=1	// Use modern global access method.

Menu "Macros"
	Submenu "IR data "
		"Load .txt Files", LoadMultipleFiles()
	End
End
	
Function/S LoadMultipleFiles()
	Variable refNum
	String message = "Select one or more file"
	String outputPaths
	String fileFilters = "Data Files (*.txt,*.dat):.txt,.dat;"
	
	fileFilters += "All Files:.*;"
 
	Open /D /R /MULT=1 /F=fileFilters /M=message refNum
	outputPaths = S_fileName

	if (strlen(outputPaths) == 0)
		Print "Cancelled"
	else
		Variable numFilesSelected = ItemsInList(outputPaths, "\r")
		Variable i
		variable points, newfirstx, newlastx
		for(i=0; i<numFilesSelected; i+=1)
			String path = StringFromList(i, outputPaths, "\r")
			Printf "%d: %s\r", i, path
			
			// Load the actual waves.
			String name = ParseFilePath(3, path, ":", 0, 0)	// Extract the file name without extension.
 			name = CleanupName(name, 0)
			LoadWave/A=$name/D/J/W/K=0/V={" "," $",0,0}/L={0,0,0,1,1} path
			Print S_waveNames
			
			String first = StringFromList(0, S_waveNames)  // Name of first wave created by LoadWave=first
			String second = StringFromList(0, S_waveNames)  // Name of second wave created by LoadWave=second
			
			// additional treaments: scalling and duplicate
			String AbstrN="N"
			String newIR=second
			String newIRN=second+AbstrN
			Setscale /I x, 5000, 700, " ", $newIR
			Duplicate/O $newIR $newIRN
			KillWaves/Z first
		endfor
	endif
 
	return outputPaths		// Will be empty if user canceled
End


// Define custom style//

Proc IR_SDStyle() : GraphStyle
	PauseUpdate; Silent 1		// modifying window...
	Label/Z left "Absorption coeff."
	Label/Z bottom "Wavenumber (cm\\S-1\\M)"
	SetAxis/Z/A/R bottom
	SetAxis/R bottom 4000,2500
	SetAxis left -0.01,1
	ModifyGraph tick=2,mirror=1,minor=1,standoff=0
EndMacro