###################################################################
## 此脚本读取某文件夹中的所有双声道mp3文件，将其中1个声道另存为wav文件。
## Written by Qibin Ran (ranqibin@126.com).
## 2019-02-09
###################################################################

form 读取双声道mp3文件，另存为单声道wav文件
   comment Directory path of input files:
   text input_directory  C:\Users\ran\Desktop\test\mp3
   comment Directory path of resampled files (old files will be overwritten!):
   text output_directory  C:\Users\ran\Desktop\test\mp3\wav
endform

if left$(input_directory$,1)<>"\"
	input_directory$=input_directory$+"\"
endif

if left$(output_directory$,1)<>"\"
	output_directory$=output_directory$+"\"
endif

createDirectory: output_directory$

Create Strings as file list... fileList 'input_directory$'*.mp3
numberOfFiles = Get number of strings
for ifile to numberOfFiles
	select Strings fileList
	fileName$ = Get string... 'ifile'
	Read separate channels from sound file... 'input_directory$''fileName$'
	simpName$ = fileName$-".mp3"
	chanName1$ = simpName$+"_ch1"
	chanName2$ = simpName$+"_ch2"
	select Sound 'chanName1$'
	Write to WAV file... 'output_directory$''simpName$'.wav
	plus Sound 'chanName2$'
	Remove
endfor

select all
Remove

exit OK!所有mp3文件已经转换另存为单声道wav文件！