Номер ревизии SVN в коде 1С 7.7

#include "file.au3"
;$CmdLine[0] - это количество переданных параметров. 
if $CmdLine[0] <2 Then
    MsgBox(0,"error!","Replacer have not all params!")
	Exit
 EndIf
 
;Добавляем глобальные переменные 
Global $SettingsFilePath = $CmdLine[1]
Global $WorkFilePath = $CmdLine[2]

;Проверяем на существование файл настроек
if FileExists ( $SettingsFilePath) = 0 Then
 MsgBox(0, "Error", "Settings File is not exist!.")
 exit
EndIf

;Проверяем на существование файл с кодом
if FileExists ( $WorkFilePath ) = 0 Then
 MsgBox(0, "Error", "Global Module File is not exist!.")
exit
EndIf

;Открываем файл настроек
  Local $Settingsfile = openFile($SettingsfilePath, 0)
 Local $T = FileRead($SettingsFilePath,3)
 if $T <> "###" Then
	MsgBox(0,"Error in the settings file!","Settings file not have in first line a secure code ###")
   Exit
 EndIf
	
	;Запускаем бесконечный цикл
   While 1
   ;Считываем строку файла настроек
   Local $line = FileReadLine($Settingsfile)
    ;Если неудачно, то выходим
	If @error = -1 Then ExitLoop
   ;Ищем разделитель
	Local $SeparatorPos = StringInStr($line, "=")
	if $SeparatorPos = 0 Then
	   ;Если не нашли - продолжаем цикл
	   ContinueLoop
	EndIf
   ;с помощью функции получаем из строки значение для поиска
   Local $find = getFindString($line)
   ;И для замены
   Local $replace = getReplaceString($line)
	;С помощью функции подменяем значение 
      ___ReplaceStringInFile($WorkFilePath,$find,$replace)
   WEnd
  FileClose($Settingsfile)
;выходим из программы. Далее указанные функции выполняются только при вызове
exit 

;В файле "file.au3" я нашел подходящую функцию, мне осталось только немного модифицировать ее.
;Она читает файл, создает массив строк, в массиве происходит поиск и замена, потом обратно запись из массива в файл.
Func ___ReplaceStringInFile($szFileName, $szSearchString, $szReplaceString, $fCaseness = 0, $fOccurance = 1)
	Local $iRetVal = 0
	Local $nCount, $sEndsWith
	; Check if file is readonly ..
	If StringInStr(FileGetAttrib($szFileName), "R") Then Return SetError(6, 0, -1)
	;===============================================================================
	;== Read the file into an array
	;===============================================================================
	Local $hFile = FileOpen($szFileName, $FO_READ)
	If $hFile = -1 Then Return SetError(1, 0, -1)
	Local $s_TotFile = FileRead($hFile, FileGetSize($szFileName))
	If StringRight($s_TotFile, 2) = @CRLF Then
		$sEndsWith = @CRLF
	ElseIf StringRight($s_TotFile, 1) = @CR Then
		$sEndsWith = @CR
	ElseIf StringRight($s_TotFile, 1) = @LF Then
		$sEndsWith = @LF
	Else
		$sEndsWith = ""
	EndIf
	Local $aFileLines = StringSplit(StringStripCR($s_TotFile), @LF)
	FileClose($hFile)
	;===============================================================================
	;== Open the output file in write mode
	;===============================================================================
	Local $iEncoding = FileGetEncoding($szFileName)
	Local $hWriteHandle = FileOpen($szFileName, $iEncoding + $FO_OVERWRITE)
	If $hWriteHandle = -1 Then Return SetError(2, 0, -1)
	;===============================================================================
	;== Loop through the array and search for $szSearchString
	;===============================================================================
	local $needReplace = 0
	For $nCount = 1 To $aFileLines[0]
	  ;тут я добавил проверку на необходимость замены строки
	  if $needReplace = 1 Then
		;подменяем содержимое строки и выходим из цикла
		$aFileLines[$nCount] = $szReplaceString
		 ExitLoop
	  EndIf
	  ;Если нашли значение в строке
		If StringInStr($aFileLines[$nCount], $szSearchString, $fCaseness) Then
			;Тут я закомментировал оригинальную строку
			;$aFileLines[$nCount] = StringReplace($aFileLines[$nCount], $szSearchString, $szReplaceString, 1 - $fOccurance, $fCaseness)
			;"Включаю" переменную needReplace и при следующей итерации цикла произойдет замена. Как раз то что нужно.
			$needReplace = 1 	
			$iRetVal = $iRetVal + 1

			;======================================================================
			;== If we want just the first string replaced, copy the rest of the lines
			;== and stop
			;======================================================================
			If $fOccurance = 0 Then
				$iRetVal = 1
				ExitLoop
			EndIf
		 EndIf
	Next
	;===============================================================================
	;== Write the lines back to original file.
	;===============================================================================
	For $nCount = 1 To $aFileLines[0] - 1
		If FileWriteLine($hWriteHandle, $aFileLines[$nCount]) = 0 Then
			FileClose($hWriteHandle)
			Return SetError(3, 0, -1)
		EndIf
	Next
	; Write the last record and ensure it ends with the same as the input file
	If $aFileLines[$nCount] <> "" Then FileWrite($hWriteHandle, $aFileLines[$nCount] & $sEndsWith)
	FileClose($hWriteHandle)

	Return $iRetVal
EndFunc

;открываем файл
Func openFile($FilePath,$mode)
Local $file = FileOpen($FilePath, $mode)
If $file = -1 Then
    MsgBox(0, "Error", "Unable to open file." $FilePath)
   exit
 Else
	 Return $file
EndIf   
EndFunc

;ищем разделитель, возвращаем все, что до него
Func getFindString($inString)
	Return StringLeft($inString, StringInStr($inString, "=")-1)
 EndFunc

 ;А тут все, что после него
Func getReplaceString($inString)
	Return StringRight($inString, StringLen($inString)- StringInStr($inString, "="))
EndFunc

REM На всякий пожарный проверяется существование папки с исходниками
if not exist .\REPO (
    echo FAIL: REPO folder isn't exist! 
	pause
    exit /b 1
	)
REM и файла-шаблона.
if not exist "%~dp0\shablon.txt" (
    echo FAIL: Shablon isn't exist! 
	pause
    exit /b 2
	)
	
REM Запускаем SubWCRev.exe, получаем шаблон для парсера
"c:\Program Files\TortoiseSVN\bin\SubWCRev.exe" .\REPO "%~dp0\shablon.txt" .\ReplacerSettings.txt -f
REM Запускаем парсер, подменяем значение функций в глобальном модуле
"%~dp0\Replacer.exe" ".\ReplacerSettings.txt" "%1\ГлобальныйМодуль.1s"
REM выпиливаем шаблон для парсера
del ".\ReplacerSettings.txt"

Процедура глВыгрузитьMD_INFO() Экспорт
	ВремяПоследнейЗаписи = "";
	Попытка
		ФС.АтрибутыФайла( КаталогИБ() + "1CV7.MD", , , , , ВремяПоследнейЗаписи,  );
	Исключение
	КонецПопытки;
	Текст = СоздатьОбъект( "Текст" );
	Текст.ДобавитьСтроку( "###MD Info" );
	Текст.ДобавитьСтроку( "SVN_Revision: " + getSVNRevision() );
	Текст.ДобавитьСтроку( "SVN_URL: " + getSVNURL() );
	Текст.ДобавитьСтроку( 
		"SVN_BuildTime: " +
			СтрЗаменить( getSVNBuildTime(), "/", "." )
		 );
	Текст.ДобавитьСтроку( "MD_UpdateTime: " + ВремяПоследнейЗаписи );
	Текст.ДобавитьСтроку( "### Константы: " );
	Текст.ДобавитьСтроку( "Магазин: " + СокрЛП( Константа.Магазин ) );
	Текст.ДобавитьСтроку( "КодМагазина: " + СокрЛП( Константа.КодМагазина ) );
	Попытка
		Текст.Записать( 
			глПолучитьПапкуОбмена_Исходящие() +
				"\" +
				глПравильноеИмяФайлаДляОбмена( "MDInfo", "" )
			 );
	Исключение
	КонецПопытки;
КонецПроцедуры