Что нового

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

sasha1304

Новичок
Сообщения
41
Репутация
0
Здравствуйте. есть текстовой файл такого содержания:
Код:
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

AutoIT Гуру
Сообщения
1,010
Репутация
408
Код:
$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 Гуру
Сообщения
616
Репутация
205
Код:
;~ 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)
 
Верх