[megaloman]

MultiMax,

Не претендую на элегантность, прямолинейно и без извратов

Код:

@Echo Off
	Set "FileIn=Z:\Box_In\Artist and song.txt" 
	Set "Sep= - "
	Set "FileOut1=Z:\Box_In\Artist.txt" 
	Set "FileOut2=Z:\Box_In\Song.txt"
 
	Del "%FileOut1%" >nul 2>&1
	Del "%FileOut2%" >nul 2>&1

	FOR /F "usebackq delims=" %%s IN (`2^>nul More "%FileIn%"`) DO Set "S1=%%s" &Call :Separ "%%s" "%%S1:*%Sep%=%%"
GoTo :Eof

:Separ
	Set "Str=%~1"
	Call Set "Str=%%Str:%Sep%%~2=%%"
	If "%~1"=="%~2" (
		>>"%FileOut1%" (Echo %~1)
		>>"%FileOut2%" (Echo:)
	) Else (
		>>"%FileOut1%" (Echo %Str%)
		>>"%FileOut2%" (Echo %~2)
	)
GoTo :Eof