Как поменять местами строки

[sasha1304]

Здравствуйте. есть текстовой файл такого содержания:

acestream://59d6a51f5bdcdf2f8d861e0bf14856172a7fcbdc 
#EXTINF:-1,24Техно

acestream://84f8cdc56625e9ea5ac73bc1a89df72872cf21a4 
#EXTINF:-1,365 дней ТВ

acestream://9f0801c4c1ca4f41aaef98a30a1ea492966fc424 
#EXTINF:-1,Animal Family HD

acestream://815daf9ba05ea77cf0fc67771359548eb08a41cd 
#EXTINF:-1,Animal Planet HD

acestream://f9d10e6fa938417babd0311b5558762c5427cd24 
#EXTINF:-1,Discovery Россия HD

acestream://16af01541aa6c0bd281658af2b289c4960252946 
#EXTINF:-1,Eureka HD

acestream://468433bee3cb168902e2515557b91563491923c3 
#EXTINF:-1,HD-Life

Нужно чтобы скрипт переставил строки, чтобы название канала было сверху, а затем шла ссылка на канал. вот так:

#EXTINF:-1,24Техно
acestream://59d6a51f5bdcdf2f8d861e0bf14856172a7fcbdc 

#EXTINF:-1,365 дней ТВ
acestream://84f8cdc56625e9ea5ac73bc1a89df72872cf21a4 

#EXTINF:-1,Animal Family HD
acestream://9f0801c4c1ca4f41aaef98a30a1ea492966fc424

подскажите пожалуйста как это сделать.

 

[sngr]

$file=ClipGet()
$str=StringRegExp($file,'(acestream:[^\r\n]+)\r\n([^\r\n]+)',3)
$a=''
For $i = 0 To UBound($str)-1 Step 2
	$a&=$str[$i+1]& @CRLF &$str[$i]& @CRLF & @CRLF
Next
FileWrite(@ScriptDir&'\123.txt',$a)

 

[Tempo]

;~ AutoIt Version: 3.3.14.5
Local $sIn = "acestream://59d6a51f5bdcdf2f8d861e0bf14856172a7fcbdc " & @CRLF & _
		"#EXTINF:-1,24Техно" & @CRLF & _
		@CRLF & _
		"acestream://84f8cdc56625e9ea5ac73bc1a89df72872cf21a4 " & @CRLF & _
		"#EXTINF:-1,365 дней ТВ" & @CRLF & _
		@CRLF & _
		"acestream://9f0801c4c1ca4f41aaef98a30a1ea492966fc424 " & @CRLF & _
		"#EXTINF:-1,Animal Family HD" & @CRLF & _
		@CRLF & _
		"acestream://815daf9ba05ea77cf0fc67771359548eb08a41cd " & @CRLF & _
		"#EXTINF:-1,Animal Planet HD" & @CRLF & _
		@CRLF & _
		"acestream://f9d10e6fa938417babd0311b5558762c5427cd24 " & @CRLF & _
		"#EXTINF:-1,Discovery Россия HD" & @CRLF & _
		@CRLF & _
		"acestream://16af01541aa6c0bd281658af2b289c4960252946 " & @CRLF & _
		"#EXTINF:-1,Eureka HD" & @CRLF & _
		@CRLF & _
		"acestream://468433bee3cb168902e2515557b91563491923c3 " & @CRLF & _
		"#EXTINF:-1,HD-Life"
MsgBox(0, Default, $sIn)

Local $sOut = StringRegExpReplace($sIn, "(?i)(acestream://.*)(\R)(#EXTINF:.*)", "\3\2\1")
MsgBox(0, Default, $sOut)