AutoIt Français

Code : Tout sélectionner

#Include <File.au3>
#Include <Array.au3>

Global $__PathFile=@ScriptDir&"\test.txt"
Global $__ArrayFile
Global $__ArrayFile_2[1]=["juste pour la creation de l'array :p"]

If _FileReadToArray($__PathFile,$__ArrayFile) Then
    For $i=1 To $__ArrayFile[0]
        If StringInStr($__ArrayFile[$i],"serveur2") <> 0 Then
            _ArrayAdd($__ArrayFile_2,_StringBetween2String($__ArrayFile[$i],"",":")&": /delete")
            _ArrayAdd($__ArrayFile_2,StringReplace($__ArrayFile[$i],"serveur2","serveur1"))
        Else
            _ArrayAdd($__ArrayFile_2,$__ArrayFile[$i])
        EndIf
    Next
    _FileWriteFromArray($__PathFile,$__ArrayFile_2,1)
Else
    MsgBox(64,"erreur",'erreur ouverture/lecture du fichier')
EndIf

Func _StringBetween2String($String,$StringDebut,$StringFin,$caseSense=False)
    If ((IsString($String) And IsString($StringDebut) And IsString($StringFin)) And IsBool($caseSense)) Then
        Local $case=0
        If $caseSense Then
            $case=1
        EndIf
        If $StringDebut = "" Then
            Return StringMid ($String,1,(StringInStr($String,$StringFin,$case,1))-1)
        ElseIf $StringFin = "" Then
            Return StringMid ($String,(StringInStr($String,$StringDebut,$case))+StringLen($StringDebut))
        Else
            Local $debut=StringInStr($String,$StringDebut,$case)
            If @error = 0 Then
                Local $fin=StringInStr($String,$StringFin,$case,1,$debut)
                If $fin <> $debut Then
                    Local $realDebut=$debut+StringLen($StringDebut)
                    Return StringMid($String,$realDebut,$fin-$realDebut)
                EndIf
            EndIf
        EndIf
    EndIf
    SetError(1);erreur parametre
    Return ""
EndFunc

Code : Tout sélectionner

#Include <File.au3>

Global $repertoire =@ScriptDir&"\test"
vincentr($repertoire)

Func vincentr($PathFolder,$sFilter="*.bat")
    Local $array=_FileListToArray(@ScriptDir&"\test",$sFilter,1)
    If $array=0 Then
        MsgBox(64,"erreur","erreur path dossier")
    Else
        If $array[0] > 0 Then
            Local $file,$strTmp
            For $i=1 To $array[0]
                $file=FileOpen($repertoire&"\"&$array[$i],0)
                If $file=-1 Then
                    MsgBox(64,"erreur","erreur ouverture fichier 1")
                Else
                    $strTmp=FileRead($file)
                    FileClose($file)
                    $file=FileOpen($repertoire&"\"&$array[$i],2)
                    If $file=-1 Then
                        MsgBox(64,"erreur","erreur ouverture fichier 2")
                    Else
                        FileWrite($file,_ReplaceAndAddString($strTmp))
                        FileClose($file)
                    EndIf
                EndIf
            Next
        EndIf
    EndIf
EndFunc

Func _ReplaceAndAddString($string="",$replaceString="serveur2",$addString=": /delete")
    If $string <> "" And StringInStr($string,"serveur2") <>0 Then
        Local $str=StringSplit($string,@LF,0)
        $tmp=""
        For $i=1 To $str[0]
            If StringInStr($str[$i],"serveur2") <> 0 Then
                $tmp&=_StringBetween2String($str[$i],"",":")&$addString&@CRLF
                $tmp&=StringReplace($str[$i],$replaceString,"serveur1")
            Else
                $tmp&=$str[$i]
            EndIf
        Next
        Return $tmp
    Else
        Return $string
    EndIf
EndFunc

Func _StringBetween2String($String, $StringDebut, $StringFin, $caseSense = False)
    If ((IsString($String) And IsString($StringDebut) And IsString($StringFin)) And IsBool($caseSense)) Then
        Local $case = 0
        If $caseSense Then
            $case = 1
        EndIf
        If $StringDebut = "" Then
            Return StringMid($String, 1, (StringInStr($String, $StringFin, $case, 1)) - 1)
        ElseIf $StringFin = "" Then
            Return StringMid($String, (StringInStr($String, $StringDebut, $case)) + StringLen($StringDebut))
        Else
            Local $debut = StringInStr($String, $StringDebut, $case)
            If @error = 0 Then
                Local $fin = StringInStr($String, $StringFin, $case, 1, $debut)
                If $fin <> $debut Then
                    Local $realDebut = $debut + StringLen($StringDebut)
                    Return StringMid($String, $realDebut, $fin - $realDebut)
                EndIf
            EndIf
        EndIf
    EndIf
    SetError(1);erreur parametre
    Return ""
EndFunc ;==>_StringBetween2String