перемещение строк в блокноте

Global $j, $sData

$sFileIn  = "example.txt"
$sFileOut = "replace.txt"

$sText = FileRead($sFileIn)

; array with the names of songs
$aSongName = StringRegExp($sText, "(?<=\n)(\w.*)", 3)
; array of technical information about the songs
$aSongInfo = StringRegExp($sText, "FILE.*|\s+TRACK.*|\s+TITLE\s+""""|\s+INDEX.*", 3)

For $i = 0 To UBound($aSongInfo) -1
	If StringInStr($aSongInfo[$i], "TITLE", 1) Then
		$sData &= StringReplace($aSongInfo[$i],  '""', '"'& $aSongName[$j] &'"')
		$j += 1
	Else
		$sData &= $aSongInfo[$i]
	EndIf
Next

$hFile = FileOpen($sFileOut, 2)
FileWrite($hFile, $sData)
FileClose($hFile)

#include <GuiListView.au3>

$iExit = 0
$iTrigger = 1
$sTitle= "[TITLE:Добавление нового торента; CLASS:#32770]"
$sCntrl = "[CLASS:SysListView32; INSTANCE:1]"
HotKeySet("{ESC}", "_Exit")

; Читаем допустимые расширения файлов
$sExe = IniRead("options.ini", "allowable", "exe", "not fount")
If $sExe == "not fount" Then
	MsgBox(16, @ScriptName, "Problems in the ini file!")
	Exit
EndIf

; При каждом добавление торрент файла (в ручную), отмеченными останутся только допустимые файлы для скачивания.
; ВНИМАНИЕ!!! Скрипт автоматизирует только снятие отметок с файлов.
; Выход из скрипта "ESC"
Do
	If Not WinActive($sTitle) Then
		$iTrigger  = 1
	Else
		If $iTrigger Then
			$iCount = ControlListView($sTitle, "", $sCntrl, "GetItemCount")

			Global $aItems[$iCount][2], $j

			$hCntrl = ControlGetHandle($sTitle, "", $sCntrl)
			For $i = 0 To $iCount -1

				$sText = ControlListView($sTitle, "", $sCntrl, "GetText", $i, 0)
				If StringRegExp($sText, "\.("& $sExe &")$", 0) Then
					; this is maybe a log file
				Else
					If _GUICtrlListView_GetItemChecked($hCntrl, $i) Then
						 _GUICtrlListView_SetItemChecked($hCntrl, $i, False)
					EndIf
				EndIf
			Next
			$iTrigger = 0
		EndIf
	EndIf

	Sleep(250)
Until $iExit

Func _Exit()
	$iExit = 1
EndFunc

#include <Array.au3>
#include <WinAPISys.au3>

Global $hWnd, $sData, $Window = '[REGEXPCLASS:Notepad2]'

$hWnd = WinActive($Window)
If Not $hWnd Then Exit

_FixAccelHotKeyLayout() ; Инфо по функции: http://autoit-script.ru/index.php?topic=5745.15

$sData = ClipGet()
Send('!c')

Local $TSong, $Size, $sTextMod, $sText = ClipGet()
If $sText Then
    $Pos = StringInStr($sText, 'INDEX', 2, -1)
    $TSong = StringRegExp($sText, '\h*(.*[^\v|\h])', 3, $Pos)
    $Size = UBound($TSong)
    Select
		Case $Size > 1 And Not @error
			$sTextMod = StringRegExp($sText, '((.*\R\h+?)+' &$TSong[0]&')', 1)
			If IsArray($sTextMod) Then $sText = $sTextMod[0]
            For $i = 1 To $Size - 1
                $sText = StringRegExpReplace($sText, '(TITLE\h*?")"', '${1}' & $TSong[$i] & '"', 1)
            Next
            ClipPut($sText)
			If BitAND(WinGetState($hWnd), 16) Then ContinueCase
            _Send('{CTRLDOWN}av{HOME}{CTRLUP}')
            ContinueCase
        Case Else
            ClipPut($sData)
            Exit
    EndSelect
EndIf

Func _FixAccelHotKeyLayout()
    Static $iKbrdLayout, $aKbrdLayouts
    If Execute('@exitMethod') <> '' Then
        Local $iUnLoad = 1
        For $i = 1 To $aKbrdLayouts[0]
            If Hex($iKbrdLayout) = Hex('0x' & StringRight($aKbrdLayouts[$i], 4)) Then
                $iUnLoad = 0
                ExitLoop
            EndIf
        Next
        If $iUnLoad Then
            _WinAPI_UnloadKeyboardLayout($iKbrdLayout)
        EndIf
        Return
    EndIf
    $iKbrdLayout = 0x0409
    $aKbrdLayouts = _WinAPI_GetKeyboardLayoutList()
    _WinAPI_LoadKeyboardLayout($iKbrdLayout, $KLF_ACTIVATE)
    OnAutoItExitRegister('_FixAccelHotKeyLayout')
EndFunc

Func _Send($Letter)
    SendKeepActive($hWnd)
    Send($Letter)
    SendKeepActive('')
EndFunc

#include <Array.au3>
#include <WinAPISys.au3>

Global $hWnd, $sData, $Window = '[REGEXPCLASS:(?i).*?Pad.*?]'

$hWnd = WinActive($Window)
If Not $hWnd Then Exit

_FixAccelHotKeyLayout()

$sData = ClipGet()
_Send('c')

Local $TSong, $Size, $sTextMod, $sText = ClipGet()
If $sText Then
    $Pos = StringInStr($sText, 'INDEX', 2, -1)
    $TSong = StringRegExp($sText, '.+[^\v]', 3, $Pos)
    $Size = UBound($TSong)
    Select
        Case $Size > 1 And Not @error
          $sTextMod = StringRegExp($sText, '((.*\R\h+?)+' &$TSong[0]&')', 1)
          If IsArray($sTextMod) Then $sText = $sTextMod[0]
            For $i = 1 To $Size - 1
                $sText = StringRegExpReplace($sText, '(TITLE\h*?")(")', '\1' & $TSong[$i] & '\2', 1)
            Next
            ClipPut($sText)
            If BitAND(WinGetState($hWnd), 16) Then ContinueCase
            _Send('v{HOME}')
            ContinueCase
        Case Else
            ClipPut($sData)
            Exit
    EndSelect
EndIf

Func _FixAccelHotKeyLayout()
    Static $iKbrdLayout, $aKbrdLayouts
    If Execute('@exitMethod') <> '' Then
        Local $iUnLoad = 1
        For $i = 1 To $aKbrdLayouts[0]
            If Hex($iKbrdLayout) = Hex('0x' & StringRight($aKbrdLayouts[$i], 4)) Then
                $iUnLoad = 0
                ExitLoop
            EndIf
        Next
        If $iUnLoad Then
            _WinAPI_UnloadKeyboardLayout($iKbrdLayout)
        EndIf
        Return
    EndIf
    $iKbrdLayout = 0x0409
    $aKbrdLayouts = _WinAPI_GetKeyboardLayoutList()
    _WinAPI_LoadKeyboardLayout($iKbrdLayout, $KLF_ACTIVATE)
    OnAutoItExitRegister('_FixAccelHotKeyLayout')
EndFunc

Func _Send($Letter)
    SendKeepActive($hWnd)
    Send('{CTRLDOWN}a' &$Letter& '{CTRLUP}')
    SendKeepActive('')
EndFunc