public function transliterate(&$wordarr)
{
	$ru_vowels = array( '/же/',  '/ше/',  '/че/',  '/ще/', '/ье/','/ъе/','/ьи/','/ъи/','/ъо/','/ьо/','/а/','/е/', '/ё/' ,'/и/','/о/','/у/','/ы/','/э/','/ю/', '/я/',);
	$en_vowels = array( 'zhe', 'she', 'che', 'shche', 'ye','ye','yi','yi','yo','yo','a','e','yo','i','o','u','y','e','yu','ya' );
 
	$ru_consonants 	= array('/б/','/в/','/г/','/д/','/ж/', '/з/','/й/','/к/','/л/','/м/','/н/','/п/','/р/','/с/','/т/','/ф/','/х/', '/ц/', '/ч/', '/ш/', '/щ/','/ъ/','/ь/');
	$en_consonants  = array('b','v','g','d','zh','z','y','k','l','m','n','p','r','s','t','f','kh','ts','ch','sh','shch','',  '');
 
	$pattern = array_merge($ru_vowels,$ru_consonants);
	$replace = array_merge($en_vowels,$en_consonants);
 
	foreach ($wordarr as $key=>$item) {
		$wordarr[$key] = preg_replace($pattern,$replace,strtolower($item));
	}
}

chcp 1251
dir /ad /b /on /s > list_folder.txt

Const $drive = "c:"Const $START_Dir = $drive&"\recognize\"$firsttime = 1;	00	Create logfile
 
$log = FileOpen($START_Dir&"log.txt", 2)
 
If $log = -1 Then
 
MsgBox(0, "Error", "Unable to open file.")
 
Exit
 
EndIf
 
;	01	Open Finereader
 
Const $FR_dir = "C:\Program Files\ABBYY FineReader 9.0\"
 
FileWriteLine($log, @MDAY&"/"&@MON&"/"&@YEAR&"	"&@HOUR&":"&@MIN&":"&@SEC&" >>> "&"Set FR9 dir to C:\Program Files\ABBYY FineReader 9.0\"&@CRLF)
 
AutoItSetOption ( "WinTitleMatchMode" , 2 )
 
FileWriteLine($log, @MDAY&"/"&@MON&"/"&@YEAR&"	"&@HOUR&":"&@MIN&":"&@SEC&" >>> "&"Set WinTitleMatchMode to non-strict"&@CRLF)
 
;	02	Open Folders list
 
$folder_list = FileOpen($START_Dir&"list_folder.txt", 0)
 
If $folder_list = -1 Then
 
MsgBox(0, "Error", "Unable to open list file.")
 
Exit
 
EndIf
 
;	04	Working loop
 
While 1;$firsttime<3
 
SendKeepActive("ABBYY")
 
$folder = FileReadLine($folder_list)
 
$t_fname = StringReplace($folder,"\","-")
 
$fname = StringReplace($t_fname,$drive,$firsttime&"")
 
If @error = -1 Then ExitLoop
 
If StringLen($folder) < 1 Then ExitLoop
 
Run($FR_dir&"FineReader.exe")
 
FileWriteLine($log, @MDAY&"/"&@MON&"/"&@YEAR&"	"&@HOUR&":"&@MIN&":"&@SEC&" >>> "&"FR9 - Start"&@CRLF)
 
FileWriteLine($log, @MDAY&"/"&@MON&"/"&@YEAR&"	"&@HOUR&":"&@MIN&":"&@SEC&" >>> "&"Got directory: "&$folder&@CRLF)
 
WinWaitActive("ABBYY")
 
FileWriteLine($log, @MDAY&"/"&@MON&"/"&@YEAR&"	"&@HOUR&":"&@MIN&":"&@SEC&" >>> "&"Got active FR9"&@CRLF)
 
SendKeepActive("ABBYY")
 
Send("^o")
 
WinWaitActive("Open")
 
ControlSetText ( "Open", "", "Edit1", $folder); открытие папки
 
Sleep(3000)
 
FileWriteLine($log, @MDAY&"/"&@MON&"/"&@YEAR&"	"&@HOUR&":"&@MIN&":"&@SEC&" >>> "&"Set folder to "&$folder&@CRLF)
 
ControlClick ( "Open", "", "Button3" )
 
;MsgBox(0,"Folder",$folder)
 
FileWriteLine($log, @MDAY&"/"&@MON&"/"&@YEAR&"	"&@HOUR&":"&@MIN&":"&@SEC&" >>> "&"ControlClick button3"&@CRLF)
 
Sleep(1000);
 
If ControlListView  ( "Open", "", "SysListView321", "GetItemCount" ) = 0 Then
 
Send("{ESC}")
 
ContinueLoop
 
EndIf
 
ControlListView  ( "Open", "", "SysListView321", "SelectAll" );
 
FileWriteLine($log, @MDAY&"/"&@MON&"/"&@YEAR&"	"&@HOUR&":"&@MIN&":"&@SEC&" >>> "&"Select all files"&@CRLF)
 
;WinActivate("Open")
 
Sleep(500)
 
Send("{ENTER}")
 
FileWriteLine($log, @MDAY&"/"&@MON&"/"&@YEAR&"	"&@HOUR&":"&@MIN&":"&@SEC&" >>> "&"Enter to select"&@CRLF)
 
Sleep(1000)
 
WinWait("Adding","Completed")
 
FileWriteLine($log, @MDAY&"/"&@MON&"/"&@YEAR&"	"&@HOUR&":"&@MIN&":"&@SEC&" >>> "&"All pages ready"&@CRLF)
 
WinActivate("Adding","Completed")
 
Send("{ENTER}")
 
FileWriteLine($log, @MDAY&"/"&@MON&"/"&@YEAR&"	"&@HOUR&":"&@MIN&":"&@SEC&" >>> "&"Ready to save..."&@CRLF)
 
WinActivate("ABBYY")
 
Send("^s")
 
WinWait("Save")
 
Sleep(500);
 
ControlSetText ( "Save", "", "Edit1", $folder&"\"&$fname );
 
Sleep(1000)
 
ControlClick ( "Save", "", "Button2" )
 
;Send("{ENTER}")
 
Sleep(1000);
 
WinWaitClose("Saving")
 
FileWriteLine($log, @MDAY&"/"&@MON&"/"&@YEAR&"	"&@HOUR&":"&@MIN&":"&@SEC&" >>> "&"Saved to "&$folder&"\"&$fname&@CRLF)
 
sleep(15000)
 
WinActivate("ABBYY")
 
sleep(1000)
 
Send("!f")
 
Send("c")   ;Закрываем пакет
 
WinWait("ABBYY","Do you want to save")
 
Sleep(1000);
 
ControlClick ( "ABBYY","Do", "Button2" )
 
Sleep(1000);
 
Send("!f")
 
Send("x")
 
$firsttime=$firsttime+1
 
WEnd
 
FileWriteLine($log, @MDAY&"/"&@MON&"/"&@YEAR&"	"&@HOUR&":"&@MIN&":"&@SEC&" >>> "&"Total of "&$firsttime&"processed"&@CRLF)