#include <MsgBoxConstants.au3>
#include <String.au3>

Local $iFile = FileOpenDialog("Ouvrir le Fichier", @ScriptDir, "Fichier(*.au3)", 1)
Local $iKEY
$iKEY = 'Func' Or $iKEY = 'Case' Or $iKEY = 'If' Or $iKEY = 'Else' Or $iKEY = 'ElseIf' Or $iKEY = 'While' Or $iKEY = 'Switch'
Local $FileOpened = FileOpen($iFile, 0) ;Read Mode = O
$ReadFileLine = FileReadToArray($FileOpened)
For $i = 0 To UBound($ReadFileLine) - 1 ; Loop through the array.

	;If $ReadFileLine[$i] = '' Then
	; $ReadFileLine[$i] &= StringStripCR($ReadFileLine[$i])
	;EndIf


	If StringLeft($ReadFileLine[$i], UBound($ReadFileLine[$i]) - 1) = "If" And StringRight($ReadFileLine[$i], UBound($ReadFileLine[$i]) - 1) = "Then" Then
		StringStripWS(_StringBetween($ReadFileLine[$i], ' ', 'If'), 1);&$ReadFileLine[$i]
		If StringInStr($ReadFileLine[$i], 'EndIf') Then
			$ReadFileLine[$i] &= StringLen(_StringBetween($ReadFileLine[$i], ' ', 'If')) & $ReadFileLine[$i]
		EndIf
	EndIf



	If StringLeft($ReadFileLine[$i], UBound($ReadFileLine[$i]) - 1) = "For" Then
		If StringInStr($ReadFileLine[$i], 'Next') Then
			$ReadFileLine[$i] &= StringLen(_StringBetween($ReadFileLine[$i], ' ', 'For')) & $ReadFileLine[$i]
		EndIf
	EndIf


	If StringLeft($ReadFileLine[$i], UBound($ReadFileLine[$i]) - 1) = "Func" Then
		If StringInStr($ReadFileLine[$i], 'EndFunc') Then
			$ReadFileLine[$i] &= StringLen(_StringBetween($ReadFileLine[$i], ' ', 'Func')) & $ReadFileLine[$i]
		EndIf
	EndIf


	If StringLeft($ReadFileLine[$i], UBound($ReadFileLine[$i]) - 1) = "While" Then
		If StringInStr($ReadFileLine[$i], 'WEnd') Then
			$ReadFileLine[$i] &= StringLen(_StringBetween($ReadFileLine[$i], ' ', 'While')) & $ReadFileLine[$i]
		EndIf
	EndIf



	If StringLeft($ReadFileLine[$i], UBound($ReadFileLine[$i]) - 1) = "Switch" Then
		If StringInStr($ReadFileLine[$i], "EndSwitch") Then
			$ReadFileLine[$i] &= StringLen(_StringBetween($ReadFileLine[$i], ' ', "Switch")) & $ReadFileLine[$i]
		EndIf
	EndIf



	If StringLeft($ReadFileLine[$i], UBound($ReadFileLine[$i]) - 1) = "Case" Then

		$ReadFileLine[$i] &= StringLen(_StringBetween($ReadFileLine[$i], " ", "Case")) & $ReadFileLine[$i]
	EndIf

	If StringLeft($ReadFileLine[$i], 0) <> $iKEY Or StringLeft($ReadFileLine[$i], 1) <> $iKEY Or StringLeft($ReadFileLine[$i], 2) <> $iKEY Or StringLeft($ReadFileLine[$i], 3) <> $iKEY Then

		If StringLeft($ReadFileLine[$i], 0) <> '' Or StringLeft($ReadFileLine[$i], 1) <> '' Or StringLeft($ReadFileLine[$i], 2) <> '' Or StringLeft($ReadFileLine[$i], 3) <> '' Then ;And StringLeft($ReadFileLine[$i],UBound($ReadFileLine[$i]) - 1)  <> $iKEY  Then
			$ReadFileLine[$i] = FileAddWS(0) & $ReadFileLine[$i] ;Add some WhiteSpace to the Left
		EndIf

	EndIf




Next

FileClose($FileOpened)

$iOpen = FileOpen($iFile, 2) ; WriteMode

ScriptWriter($ReadFileLine, $iOpen)

FileClose($iOpen)




Func ScriptWriter($iFileReadToArray, $id_OpenedFile)
	Local $My__Script
	For $Ws = 0 To UBound($iFileReadToArray) - 1
		$My__Script = FileWriteLine($id_OpenedFile, $iFileReadToArray[$Ws])
	Next

	Return $My__Script

EndFunc   ;==>ScriptWriter


Func FileAddWS($sNumber = 2)
	Local $Space
	For $S = 0 To $sNumber
		$Space &= " "
	Next
	Return $Space & $Space
EndFunc   ;==>FileAddWS