;====================================================
;Author: ur
;====================================================



#include <file.au3>
#include <Array.au3>
#include <String.au3>

Func readConfig($sFilePath,$intStartCode)

;Usage: MsgBox(0,"Silent",readConfig(@ScriptDir&"\Config.txt","Silbent"))

;$sReplaceText = "Mani Prakash"
;$sFilePath = "C:\Users\KIRUD01\Desktop\Config.txt"
;$intStartCode = "BuildExe"
$arrRetArray = ""
$s = _FileReadToArray($sFilePath, $arrRetArray);Reading text file and saving it to array $s will show status of reading file..
	For $i = 1 To UBound($arrRetArray)-1
		$line = $arrRetArray[$i];retrieves taskengine text line by line
		;If StringInStr($line, $intStartCode) Then
		If StringInStr(StringStripWS($line, $STR_STRIPALL), $intStartCode & ":") Then
				ConsoleWrite ("Starting point "& $line &  @CRLF)
				return StringStripWS(StringSplit($line,":")[2],$STR_STRIPLEADING + $STR_STRIPTRAILING )
		EndIf
		if $i = UBound($arrRetArray)-1 then return "Not Found"
	Next
EndFunc

Func writeConfig($sFilePath,$intStartCode,$sReplaceText)

;$sReplaceText = "Mani Prakash"
;$sFilePath = "C:\Users\KIRUD01\Desktop\Config.txt"
;$intStartCode = "BuildExe"
$arrRetArray = ""
$s = _FileReadToArray($sFilePath, $arrRetArray);Reading text file and saving it to array $s will show status of reading file..
$intStartingPointFound = 0
	For $i = 1 To UBound($arrRetArray)-1
		$line = $arrRetArray[$i];retrieves taskengine text line by line
		;If StringInStr($line, $intStartCode) Then
		If StringInStr(StringStripWS($line, $STR_STRIPALL), $intStartCode & ":") Then
				$intStartingPointFound = 1;if found the starting point of the module to copy then set this variable to 1
				ConsoleWrite ("Starting point " &  @CRLF)
				$arrRetArray[$i] = $intStartCode & ": " & $sReplaceText
				ExitLoop
		EndIf
		if $i = UBound($arrRetArray)-1 then ConsoleWrite("Not Found" & @CRLF)
	Next
_FileWriteFromArray ($sFilePath, $arrRetArray,1)

EndFunc