AutoIt Français

Code : Tout sélectionner

[Files]
d1,usetup.exe,system32\smss.exe
d1,ntdll.dll,system32\ntdll.dll


[Files]
d1,3dgarro.cur
d1,3dgmove.cur
d1,3dgnesw.cur

Code : Tout sélectionner

#include <file.au3>
Dim $aRecords
If Not _FileReadToArray ( "DOSNET.inf" , $aRecords ) Then 
MsgBox ( 4096 , "Error" , " Error reading log to Array error:" & @error ) 
Exit
EndIf
For $x = 1 to $aRecords[0] 
if StringInStr ( $aRecords[$x] , "d1,3dgarro.cur" , 1 ) then _FileWriteToLine ( "DOSNET.inf" , $x , "" , 1 ) 
Next

Code : Tout sélectionner

Func strinstrg ( $string_ , $stringref_ ) 
$string_ = StringStripWS ( $string_ , 3 ) 
$stringref_ = StringStripWS ( $stringref_ , 3 ) 
If StringLen ( $string_ ) <> StringLen ( $stringref_ ) Then Return 0 
For $i = 0 To StringLen ( $string_ ) 
If StringLeft ( $string_ , $i ) <> StringLeft ( $stringref_ , $i ) Then Return 0 
Next
Return 1
EndFunc ; == >strinstrg

Code : Tout sélectionner

$file = FileOpen("shl_img.inf", 0)

While 1
    $line = FileReadLine($file)
    If @error = -1 Then ExitLoop
    $resultat = StringCompare($line,'"%MOON_JPG_NAME%",moon.jpg',0)
    If $resultat == 0 Then
        ; c'est là qu'il me manque un petit truc help..
        ExitLoop
        EndIf
Wend

FileClose($file)

Code : Tout sélectionner

$fic_contenu=FileRead("input_vins.txt")
FileWrite("input_vins2.txt",StringRegExpReplace(fic_contenu,"d1,3dgarro\.cur\r*\n*",""))
;todo : la suppression et renommage
 

Code : Tout sélectionner

[color=#008040][b];[u]Exemple :[/u] Supprimer d'un Fichier toutes les lignes vides et celles commençant par un ";"[/b][/color]

[color=#008040];Compter le Nombre de lignes du fichier source[/color]
[color=#008040];pas besoin de #include <file.au3>[/color]
$f="[color=#0040FF][i]chemin vers le fichier source[/i][/color]"
$sf=FileGetSize($f)-1
$nl=StringLen(StringAddCR(FileRead($f,$sf)))-$sf+1
[color=#008040];$nl= Nombre de lignes du fichier[/color]



[color=#008040];on va créer un deuxième fichier puis y copier les lignes que l'on veut garder[/color]

$f2=FileOpen("[color=#0040FF][i]chemin vers le fichier modifié[/i][/color]",9)
[color=#008040];9=1+8 1=Mode écriture et 8=Crée le fichier s'il n'existe pas[/color]
For  $i=1 To $nl
[color=#008040] ;Boucle de la ligne 1 à la ligne $nl du Fichier Source  $i=indice de boucle[/color] 
$l=FileReadLine($f,$i)
[color=#008040];lit la ligne n° $i[/color]

[color=#008040];Corps du Test [i](vous pouvez mettre le test que vous voulez)[/i][/color]
$1=StringLeft($l,1)
[color=#008040];Donne le 1er caractère de cette ligne[/color]
If ($1=""Or $1=";")=0 Then
[color=#008040];Test si ce n'est ni une ligne vide ni un ";"[/color]

FileWriteLine($f2,$l)
[color=#008040];Si oui, écrit la ligne dans le fichier modifé[/color]
EndIf
Next

Code : Tout sélectionner

$f="[color=#0040FF][i]chemin vers le fichier source[/i][/color]"
$sf=FileGetSize($f)-1
$nl=StringLen(StringAddCR(FileRead($f,$sf)))-$sf+1 
$f2=FileOpen("[color=#0040FF][i]chemin vers le fichier modifié[/i][/color]",9)
For  $i=1 To $nl
$l=FileReadLine($f,$i)
$1=StringLeft($l,1)
If ($1=""Or $1=";")=0 Then 
FileWriteLine($f2,$l)
EndIf
Next

Code : Tout sélectionner

#include <file.au3>
 
Dim $array
;---------------A COMPLETER--------
Dim $pseudo = "salut"
$filename = 'test.txt'
$filename2 = 'clean.txt'
;------------------------------------------
$file = FileOpen($filename, 0)
$read = FileRead($file)
$len = StringLen($pseudo)

_FileReadToArray($filename, $array)
For $X = 1 to $Array[0]
  
       $var = FileReadLine($filename, $X)
       $result = StringLeft($var, $len)
       
        If $pseudo = $result Then       
        else
        FileWrite($filename2, $var & @CRLF)     
        Endif             
Next

Code : Tout sélectionner

While 1
    $l=FileReadLine($f)
    If @error = -1 Then ExitLoop
    $1=StringLeft($l,1)
    If ($1=""Or $1=";")=0 Then
        FileWriteLine($f2,$l)
    EndIf
Wend

Code : Tout sélectionner

Dim $Res, $f = "nigel@mcnie.name.txt"
$fFile = FileRead($f)  ; On lit le fichier dans une variable.

$aFile = StringSplit($fFile, @CRLF, 1)  ; Mise en tableau du fichier.

; On récupère toutes les lignes autre que vide ou commancant par ; dans une variable.
For $i = 1 to $aFile[0]
    If Not ($aFile[$i] = "" Or StringLeft($aFile[$i],1) = ";") Then
        $Res &= $aFile[$i] & @CRLF
    EndIf
Next

FileMove($f, $f & ".bak") ; On renomme le fichier source en *.bak
FileWrite($f, $Res) ; on ré-écrit le fichier source filtré.