compter et ajouter un valeur

Version imprimable

25/09/2008, 14h12
darkman13130

compter et ajouter un valeur

Bonjours a tous je possede sa au depart 101010111110100 et le but ce que je doit mettre un 0 quand il y a cinq 1 d'affiler c'est a dire d'apres l'exemple 1010101111100100

voila je voi pas comment faire
25/09/2008, 14h19
Baxter67

Tu place ta suite de 0 et de 1 dans une AnsiString

Tu la parcours avec une boucle for, tu teste si c'est egale a 1 si oui tu incremante une variable
Quand cette variable attein 5 tu remplace le caractére par 0
25/09/2008, 14h22
darkman13130

je doit pas le remplacer mais en ajouter un

look bien exemple
25/09/2008, 14h29
pottiez

L'ajout dans un AnsiString est simple avec la méthode Insert ;)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
  AnsiString asBuffer = "101010111110100 ";
  int iTaille;
  int iCpt = 0;
 
        iTaille = asBuffer.Length();
 
        for(int i = 1; i<iTaille+1; i++)
        {
                if(i == 1)
                {
                        if(asBuffer[i] == '1')
                                iCpt++;
                }
                else
                {
                       if( (asBuffer[i] == '1' && (asBuffer[i-1] == '1' || iCpt ==0)))
                                iCpt++;
                        else
                                iCpt = 0;
                }
                if(iCpt == 5)
                {
                        asBuffer.Insert("0",i+1);
                        iCpt = 0;
                        i--;
                        iTaille ++;
                }
        }
        Label1->Caption = asBuffer;

Bon c'est pas optimisé
Mais jai fais sa vite fait, pour te donner une piste

Salut !

Ca pouvait se rédiger plus simplement (ce que pottiez suggère dans sa réponse) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
AnsiString A = Edit1->Text; //chaine à traiter
AnsiString S;
int j;
for(j = 1; j <= (A.Length()-4); j++)
    {
    S = A.SubString(j, 5);
    if(S == "11111")
        {
        A = A.Insert('0', j+5); 
        j = j + 5;
        }
    }
//Label2->Caption = A; //Echo du résultat

A plus !

27/09/2008, 14h24
echap2000
Vous vous compliquez la vie

encore plus simple :)

qui dit mieux :

il fautdrait rajouter l'inclusion de la librairie :
#include "strutils.hpp"
Code:

1 2 3 AnsiString A = Edit1->Text; //chaine à traiter Label2->Caption = AnsiReplaceStr(A,"11111","111110");

Salut !

C'est la solution qui tue ! :king:

Donc chez moi, également comme ceci :

Code:

1
2
3
4
5
6
 
TReplaceFlags Flags = Flags << rfReplaceAll;
Label2->Caption = StringReplace(Edit1->Text, //Chaine à traiter
                                "11111",
                                "111110",
                                Flags);

A plus !