► Afficher le texte
Code : Tout sélectionner
;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