Определение вида документа по тексту и его переименование по тексту.

#include <File.au3>
$sFolder_init = 'path1'; 
$sFodler_final = 'path2'; 

$aTXT_files = _FileListToArray($sFodler_init, '*.txt', 1)

$sCond1 = 'СЧЕТ-ФАКТУРА N 5355'
$sCond2 = 'ТОВАРНАЯ НАКЛАДНАЯ'
$sCond2_sub = 'счет-фактура 5355'
$sCond3 = 'ПРЕДЛОЖЕНИЕ: '

For $i = 1 to $aTXT_files[0]
	$sContent = FileRead($sFolder_init & '\' & $aTXT_files[$i])
	If StringInStr($content, $sCond1) Then
		$iCode = StringRegExpReplace($sContent, '(?s).*' & $sCond1 & '(.{10}).*', '\1')
		FileCopy($sFolder_init & '\' & $aTXT_files[$i], $sFolder_final & '\sf_' & $iCode & '.txt')
		MsgBox(48, 'Done', 'File' & @CRLF & _ 
			$sFolder_init & '\' & $aTXT_files[$i] & _
			' was succesfully processed and its new path is' & @CRLF & _
			$sFolder_final & '\sf_' & $iCode & '.txt' _
		)
	EndIf
	If StringInStr($content, $sCond2) Then
		$iCode = StringRegExpReplace($sContent, '(?s).*' & $sCond2_sub & '(.{10}).*', '\1')
		FileCopy($sFolder_init & '\' & $aTXT_files[$i], $sFolder_final & '\tn_' & $iCode & '.txt')
		MsgBox(48, 'Done', 'File' & @CRLF & _ 
			$sFolder_init & '\' & $aTXT_files[$i] & _
			' was succesfully processed and its new path is' & @CRLF & _
			$sFolder_final & '\tn_' & $iCode & '.txt' _
		)
	EndIf
	If StringInStr($content, $sCond3) Then
		$iCode = StringRegExpReplace($sContent, '(?s).*' & $sCond3 & '(.{10}).*', '\1')
		$iCode = StringReplace($iCode, '/', '_')
		FileCopy($sFolder_init & '\' & $aTXT_files[$i], $sFolder_final & '\qu_' & $iCode & '.txt')
		MsgBox(48, 'Done', 'File' & @CRLF & _ 
			$sFolder_init & '\' & $aTXT_files[$i] & _
			' was succesfully processed and its new path is' & @CRLF & _
			$sFolder_final & '\qu_' & $iCode & '.txt' _
		)
	EndIf
Next

#include  <File.au3>
$sFolder_init = 'D:\TEST';
$sFolder_final = 'D:\TEST';

$aTXT_files = _FileListToArray($sFolder_init, '*.txt', 1)

$sCond1 = 'СЧЕТ-ФАКТУРА N 5355'
$sCond2 = 'ТОВАРНАЯ НАКЛАДНАЯ'
$sCond2_sub = 'счет-фактура 5355'
$sCond3 = 'ПРЕДЛОЖЕНИЕ: '

For $i = 1 to $aTXT_files[0]
    $sContent = FileRead($sFolder_init & '\' & $aTXT_files[$i])
    If StringInStr($sContent, $sCond1) Then
        $iCode = StringRegExpReplace($sContent, '(?s).*' & $sCond1 & '(.{10}).*', '\1')
        FileCopy($sFolder_init & '\' & $aTXT_files[$i], $sFolder_final & '\sf_' & $iCode & '.txt')
    EndIf
    If StringInStr($sContent, $sCond2) Then
        $iCode = StringRegExpReplace($sContent, '(?s).*' & $sCond2_sub & '(.{10}).*', '\1')
        FileCopy($sFolder_init & '\' & $aTXT_files[$i], $sFolder_final & '\tn_' & $iCode & '.txt')
    EndIf
    If StringInStr($sContent, $sCond3) Then
        $iCode = StringRegExpReplace($sContent, '(?s).*' & $sCond3 & '(.{10}).*', '\1')
        $iCode = StringReplace($iCode, '/', '_')
        FileCopy($sFolder_init & '\' & $aTXT_files[$i], $sFolder_final & '\qu_' & $iCode & '.txt')
    EndIf
Next

FileChangeDir("G:\A&D_alle\ARCHIV")        ; сюда кидаются пдф (счет-фактура)
$search = FileFindFirstFile("*.pdf")
If $search = -1 Then
    MsgBox(0, "Error", "No pdf files")
    Exit
EndIf
While 1
     $old_name = FileFindNextFile($search)
     If @error Then ExitLoop
Sleep(1000)     
WinActivate("ABBYY FineReader 9.0 Professional Edition")
WinWaitActive("ABBYY FineReader 9.0 Professional Edition")
Sleep(1000)
Send("^o"); открываем новый пакет 
Send("G:\A&D_alle\ARCHIV\"&$old_name)  ; выбираем первый по списку пдф
Sleep(1500)
Send("{ENTER}")      
Sleep(12500)          ; открывает пдф
WinClose ( "Adding pages to the document..." , "" )
WinWaitClose("Adding pages to the document..." , "" )
Sleep(1500)   
Send("!l")         ; rotate 90 градусов для правильного распознавания
Sleep(1500)   
Send("^r")       ; распознаем
WinWait ( "Reading...", "Close" )
WinActivate ( "Reading...", "Close" )
Sleep(1500)
Send("{ENTER}")
Sleep(1500)   
Send("^f")       ; поиск в текстовом окне распознанной страницы
Sleep(1500)
Send("5355")    ; ищем "5355"
Sleep(1500)
Send("{ENTER}")
Sleep(1500)
ControlClick ("Find", "Close", "Button9")     ; закрываем окно поиска
Send("{RIGHT 3}")                                ; нашли 5355, оно выделилось переходим клавиатурой до нужного нам номера, зажимаем шифт и копируем в буфер обмена.. 
Send("{SHIFTDOWN}")
Send("{RIGHT 8}")
Send("{SHIFTUP}")
Sleep(1500)
Send("^c")
Sleep(1500)
$number=ClipGet ( )
Sleep(500)
Send("+x")              ; закрываем текущее окно в файнридере
Sleep(500)
Send("{TAB}{ENTER}")
Sleep(2000)
FileMove ( "G:\A&D_alle\ARCHIV\"&$old_name, "G:\A&D_alle\SAP_Upload\sf_"&$number&".pdf", 1 )              ; переносим этот файл в другую папку обзывая номером из буфера обмена и приписывая вид документа - sf_
WEnd