;ByGhost911 fonction Lecture / Ecriture
;MODE : 
;0 = mode Lire
;1 = Ecris mode (ajout à la fin du fichier)
;2 = Ecris mode (effacer le contenu précédent)
;4 = Lire mode brut
;8 = Créer la structure de répertoire si il n'existe pas (voir les remarques).
;16 = Force binaire (octet) en lecture et en écriture avec mode FILEREAD et FILEWRITE
;32 = Utiliser Unicode UTF16 Little Endian la lecture et l'écriture mode. Lecture ne se existantes BOM
;64 = Utilisez UTF16 Unicode big endian la lecture et l'écriture mode. Lecture ne se existantes BOM
;128 = Utiliser Unicode UTF8 de lecture et d'écriture mode. Lecture ne se existantes BOM
;$monfichier = votre fichier
;$mode = exemple : 2+16 
;$donnee = tout se que tu veux ecrire dans le fichier !
Func LectureCustom ($monfichier,$mode)
$open = FileOpen ($monfichier,$mode)
	If $open = -1 Then
    MsgBox(0, "Erreur", "Impossible d'ouvrir le fichier !")
    Exit
    EndIf
	$lecture = FileRead ($open)
	FileClose ($open)
	Return $lecture	
EndFunc
Func EcritureCustom ($monfichier,$donnee,$mode)
	$open = FileOpen ($monfichier,$mode)
	If $open = -1 Then
    MsgBox(0, "Erreur", "Impossible d'ouvrir le fichier !")
    Exit
    EndIf
	$lecture = FileWrite ($open,$donnee)
	FileClose ($open)
	EndFunc
	
;Lecture d'un script autoit (Script qui lit les script ;))	
Func LectureScriptAutoit ($monscript)
Execute (FileRead($monscript))	
EndFunc
Func LectureBinaire ($monfichier)
	$open = FileOpen ($monfichier,0+16)
	If $open = -1 Then
    MsgBox(0, "Erreur", "Impossible d'ouvrir le fichier !")
    Exit
    EndIf
	$lecture = FileRead ($open)
	FileClose ($open)
	Return $lecture
EndFunc
;Ecrase pas le fichier si il existe déja
Func EcritureBinaireMode1 ($monfichier,$binaire)
	$open = FileOpen ($monfichier,16)
	If $open = -1 Then
    MsgBox(0, "Erreur", "Impossible d'ouvrir le fichier !")
    Exit
    EndIf
	$lecture = FileWrite ($open,$binaire)
	FileClose ($open)
EndFunc
;Ecrase fichier si il existe déja
Func EcritureBinaireMode2 ($monfichier,$binaire)
	$open = FileOpen ($monfichier,2+16)
	If $open = -1 Then
    MsgBox(0, "Erreur", "Impossible d'ouvrir le fichier !")
    Exit
    EndIf
	$lecture = FileWrite ($open,$binaire)
	FileClose ($open)
EndFunc
;lecture
Func Lecture($monfichier)
	$open = FileOpen ($monfichier,0)
	If $open = -1 Then
    MsgBox(0, "Erreur", "Impossible d'ouvrir le fichier !")
    Exit
    EndIf
	$lecture = FileRead ($open)
	FileClose ($open)
	Return $lecture
EndFunc
;ecriture
Func Ecriture ($monfichier,$donnee)
	$open = FileOpen ($monfichier,1)
	If $open = -1 Then
    MsgBox(0, "Erreur", "Impossible d'ouvrir le fichier !")
    Exit
    EndIf
	$lecture = FileWrite ($open,$donnee)
	FileClose ($open)
	EndFunc
	;Ecriture ecrase le fichier si il existe déja
Func Ecriture2 ($monfichier,$donnee)
	$open = FileOpen ($monfichier,2)
	If $open = -1 Then
    MsgBox(0, "Erreur", "Impossible d'ouvrir le fichier !")
    Exit
    EndIf
	$lecture = FileWrite ($open,$donnee)
	FileClose ($open)
EndFunc
;Ecriture Unicode UTF16 Little Endian 
Func EcritureUTF16 ($monfichier,$donnee)
	$open = FileOpen ($monfichier,2+32)
	If $open = -1 Then
    MsgBox(0, "Erreur", "Impossible d'ouvrir le fichier !")
    Exit
    EndIf
	$lecture = FileWrite ($open,$donnee)
	FileClose ($open)
EndFunc
;Lecture Unicode UTF16 Little Endian 
	Func LectureUTF16($monfichier)
	$open = FileOpen ($monfichier,0+32)
	If $open = -1 Then
    MsgBox(0, "Erreur", "Impossible d'ouvrir le fichier !")
    Exit
    EndIf
	$lecture = FileRead ($open)
	FileClose ($open)
	Return $lecture
EndFunc
;Ecriture Unicode UTF8
Func EcritureUTF8 ($monfichier,$donnee)
	$open = FileOpen ($monfichier,2+128)
	If $open = -1 Then
    MsgBox(0, "Erreur", "Impossible d'ouvrir le fichier !")
    Exit
    EndIf
	$lecture = FileWrite ($open,$donnee)
	FileClose ($open)
EndFunc	
;Lecture Unicode UTF8
	Func LectureUTF8($monfichier)
	$open = FileOpen ($monfichier,0+128)
	If $open = -1 Then
    MsgBox(0, "Erreur", "Impossible d'ouvrir le fichier !")
    Exit
    EndIf
	$lecture = FileRead ($open)
	FileClose ($open)
	Return $lecture
EndFunc