Discussion :

[aminnio]

Bonjour,

Je reviens vers le forum pour vous demander de l'aide à propos de la segmenatation d'une chaine de caractére.

La structure de ma table est comme suit :
____________
|Code|Cost|FP |
************
|123|100|100;0;0;0|
|234|200|50;50;0;0|
|345|300|25;25;25;25|
|456|100|0;0;50;50|
|567|600|50;50;-50;0|
*******************

J'aimerais savoir, si c'est possible, à partir de la colone FP, repartir les données de la colonne Cost.
La formule est assez simple, il faut extraire de chaque enregistrements FP les valeurs numerique entre les ;
Exemple, pour la premiere ligne, extraire 100
Pour la deuxieme ligne, extraire 50 et 50.
Pour la troisieme ligne, extraire 25 et 25 et 25 et 25
...
etc

Il faut obligatoirement que le totale des numeros de la chaine de caractére de FP soit =100 .

Quand je dis extraire, pour l'instant, disons juste les afficher sur un msgbox ..

Voila !

[zoom61]

Salut,

Je pense que tu devrais aller voir la fonction split.

@+.

[marot_r]

En réalité tu veux afficher simplement les valeurs diffrentes de 0.

Voici du code qui va faire cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
private Sub ParcourirDonnees()
   dim db as dao.database:set db=currentdb
   dim r as dao.recordser:set r=bd.openrecordset("TesDonnees")
 
   do while not r.eof
      call AfficherValeur(r![FP])
      r.movenext
   loop
 
   r.close:set r=nothing
   db.close:set db=nothing
end sub
 
private sub AfficherValeur(prmValeurs as string)
   dim t() as string:t=split(prmValeur,";")
 
   dim i as log:for i=lbound(t) to ubound(t)
 
      if val(t(i))<>0 then
         msgbox t(i)
      end if
 
end sub

A+