AutoIt Français

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