AutoIt Français

Code : Tout sélectionner

$Str = "1;2;3;4;5;6;7;8;9;10"

For $i = 4 To StringLen($Str) Step 4
    $Str = StringReplace($Str, $i, "@")
Next

MsgBox(0, "", $Str)

Code : Tout sélectionner

$coupe = StringSplit("1;2;3;4;kikoolol;5;6;7;8;9;10",";")
$change = 1
$colle = ""

For $i = 1 To $coupe[0]
    If $change Then
        $colle = $colle & $coupe[$i] & ";"
        $change = 0
    Else
        $colle = $colle & $coupe[$i] & "@"
        $change = 1
    EndIf
Next

MsgBox("","",$colle)

Code : Tout sélectionner

$coupe = StringSplit("1;2;3;4;kikoolol;5;6;7;8;9;10",";")
$change = 1
$colle = ""

For $i = 1 To $coupe[0]
    If $change Then
        If $i < $coupe[0] Then
            $colle = $colle & $coupe[$i] & ";"
        Else
            $colle = $colle & $coupe[$i]
        EndIf
        $change = 0
    Else
        If $i < $coupe[0] Then
            $colle = $colle & $coupe[$i] & "@"
        Else
            $colle = $colle & $coupe[$i]
        EndIf
        $change = 1
    EndIf
Next

MsgBox("","",$colle)

Code : Tout sélectionner

$Str = "1;2;3;4;5;6;7;8;9;10"


$str=StringReplaceFreq($str,";","@",2)

#cs
    StringReplaceFreq
    retourne : 
        String si reussi
        1 si le caractére à chercher n'est pas de la même longueur que celui à ajouter.
    parametres:
        $string: chaine à traiter
        $toFind: Caractére à chercher
        $toReplace: Caractére à ajouter
        $howMany: Frequence du remplacement
#ce


func StringReplaceFreq($string,$toFind,$toReplace,$howMany)
    if StringLen($toFind) <> StringLen($toReplace) then return 1
    local $i,$count=0
    for $i=0 To StringLen($string)
        if StringCompare(StringMid($string,$i,stringlen($toFind)),$toFind) == 0 then $count+=1
        if $count >= $howMany then
            $string=StringReplace($string,$i,$toReplace)
            $count=0
        EndIf
    next
    return $string;
EndFunc



MsgBox(0, "", $Str)

Code : Tout sélectionner

$str=StringReplaceFreq($str,";","",2)

Code : Tout sélectionner

$string = "1;2;3;4;kikoolol;5;6;7;8;9;10"
$Remplacer = ";"
$par = "YMCA"

$coupe = StringSplit($string,$Remplacer,1) ;Cette ligne découpe la chaine et met chaque petit bout dans une array. [0] contien le nombre de petits bout, et le ,1 a la fin signifit que le separteur est TOUT ce qu'il y a ecris (par defaut, si on lui donne ",;:" comme separateur, il découpe a chaque "," ou ";" ou ":")
$change = 1 ;ca c'est juste un boléen qui dit "on change" ou "on change pas" pour modifier un caractere ur deux
$colle = "" ;heu... ben c'est le resultat, mais pour le moment c'est vide...

For $i = 1 To $coupe[0] ;On lit chaque petit bout découpé
    If $change Then ;Si $change est sur 1, on change le separateur 
        If $i < $coupe[0] Then ;si c'est le dernier petit bout, on met pas de separateur a la fin
            $colle = $colle & $coupe[$i] & $Remplacer ; on rajoute le bout de chaine a la suite des autre, et on place le separateur
        Else ;si on est a la fin,
            $colle = $colle & $coupe[$i] ; on rajoute le bout de chaine a la suite des autre, et on place pas le separateur vu qu'on est a la fin
        EndIf
        $change = 0 ;on previen que le prochain faudra pas changer
    Else ;si on change pas, on colle le bout lu suivit du separateur normal
        If $i < $coupe[0] Then ;si c'est le dernier petit bout, on met pas de separateur a la fin
            $colle = $colle & $coupe[$i] & $par ; on rajoute le bout de chaine a la suite des autre, et on place le separateur normal
        Else ;si on est a la fin,
            $colle = $colle & $coupe[$i] ; on rajoute le bout de chaine a la suite des autre, et on place pas le separateur vu qu'on est a la fin
        EndIf
        $change = 1 ;et la on dit que le prochain on le change
    EndIf
Next

MsgBox("","",$colle)

Code : Tout sélectionner

$str = ("1;;2;;3;;4;;5;;6;;7;;8;;9;;10;")
    
    $Remplacer =  ";;" 
$par = "@@"

$coupe = StringSplit($str,$Remplacer)
$change = 1
$colle = ""

For $i = 1 To $coupe[0]
    If $change Then
        If $i < $coupe[0] Then
            $colle = $colle & $coupe[$i] & $Remplacer
        Else
            $colle = $colle & $coupe[$i]
        EndIf
        $change = 0
    Else
        If $i < $coupe[0] Then
            $colle = $colle & $coupe[$i] & $par
        Else
            $colle = $colle & $coupe[$i]
        EndIf
        $change = 1
    EndIf
Next

MsgBox("","",$colle)

Code : Tout sélectionner

$str=StringReplaceFreq($str,";","@",2)

Code : Tout sélectionner

StringReplace ($str,"@","@@")

Code : Tout sélectionner

$replace = remplacement_1_sur_2("1;2;3;4;5;6;7;8;9;10", ";", "@")

MsgBox(0, "result", $replace)

Func remplacement_1_sur_2($sString, $sRecherche, $sRemplacement)
    If StringRight($sString, "1") <> $sRecherche Then
        $sString = $sString & $sRecherche
    EndIf

    $split = StringRegExp($sString, "(.*?" & $sRecherche & ").*?", 3)

    $1_sur_2 = ""
    For $i = 1 To UBound($split) - 1 Step 2
        $1_sur_2 = $1_sur_2 & $split[$i-1] & StringReplace($split[$i], $sRecherche, $sRemplacement)
    Next

    Return StringLeft($1_sur_2, StringLen($1_sur_2) - 1)
EndFunc
 

Code : Tout sélectionner

if StringCompare(StringMid($string,$i,stringlen($toFind)),$toFind) == 0 then $count+=1