Discussion :

[af_airone]

J'éclate mon fichier de la manière suivante cf code plsu bas
APP5;utilisateur1;usertest@utilisateur1;domaine


par contre je sais pas le reconstituer par la suite .

En outre , il faudrai que quand je le reconstitue je remplace pour un index donnée

la variable userid(i, X) ou i est l index fixé par l application sélectionnée
cela me permettra d associé à un compte =emergid
son dernier =userid

conclusion =
il faut que je recrée totalement le fichier en fonction des variables que j ai défini lors de l éclatement dans un premier temps

mais je ne connais pas la syntaxe a suivre mais ca sera surement une boucle for ....

ensuite faudrai pouvoir intégrer le user id à droite en fonction de la sélection sur mon form
sachant que ce sera que des listes pour simplifier .

par avance merci
cordialement

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
 
Dim strApp(100)
Dim strEmer(100, 20)
Dim EmergId(100, 20)
Dim strUsr(100, 20)
Dim userid(100, 20)
Dim strdom(100)
 
Public Sub Form_Load()
 
    sFile = "c:\toto.txt"
    Fnum = FreeFile()
 
    Open sFile For Input As #Fnum
 
    nIndex = 0
    nrec = 0
 
    Do While Not EOF(Fnum)
 
        Input #1, tData
 
        taryrecord = Split(tData, ";")
 
        ' Nom de l'application
        strApp(nrec) = taryrecord(0)
 
        List1.AddItem (strApp(nrec))
        'nom domaine
        strdom(nrec) = taryrecord(3)
 
        ' Nombre d'Utilisateurs
        nCountusr = 0
        rCode = fDelimiterCount(taryrecord(1), "/", nCountusr)
 
        ' Séparation des users
        taryusr = Split(taryrecord(1), "/")
 
        For i = 0 To nCountusr
            strUsr(nrec, i) = taryusr(i)
        Next
 
        ' Nombre des comptes Emergency
        nCount = 0
        rCode = fDelimiterCount(taryrecord(2), "/", nCount)
 
        ' Séparation des Comptes
        tAryEmerg = Split(taryrecord(2), "/")
 
        For i = 0 To nCount
            strEmer(nrec, i) = tAryEmerg(i)
 
            Emerg = Split(strEmer(nrec, i), "@")
            EmergId(nrec, i) = Emerg(0)
            userid(nrec, i) = Emerg(1)
        Next
 
        nrec = nrec + 1
 
     Loop
 
    Close Fnum
 
End Sub
 
Private Function fDelimiterCount(ByRef strData, ByRef chrSeparator, ByRef nCountusr) As Integer
 
nCount = 0
 
nLenght = Len(strData)
 
For i = 1 To nLenght
    If Mid(strData, i, 1) = chrSeparator Then
        nCountusr = nCountusr + 1
    End If
Next
 
End Function
 
 
Private Sub List1_Click()
 
nselecteditem = List1.ListIndex
List4.Clear
List2.Clear
List3.Clear
 
i = 0
n = 0
 
While EmergId(nselecteditem, i) <> ""
   List2.AddItem EmergId(nrec, i)
   i = i + 1
Wend
List2.Selected(0) = True
List3.Clear
List3.AddItem strdom(nselecteditem)
List3.Selected(0) = True
 
 
While strUsr(nselecteditem, n) <> ""
List4.AddItem strUsr(nselecteditem, n)
n = n + 1
Wend
List4.Selected(0) = True
End Sub

[ouskel'n'or]

Qu'est-ce qu'il te manque ? La création du txt ?

A+

[af_airone]

il me manque un truc du style

Code :

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

1
2
3
4
5
6
7
8
9
Set TXTstream = FSO.CreateTextFile(FileName)
 
    For i = 1 To .....................
 
 
        TXTstream.WriteLine 
    Next i
 
    TXTstream.Close

avec mes variables pour réécrire mon fichier

le fichier est de la forme

Code :

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

APP2;A230240/A230450;usertest@A230240/toto@A230440;domain-sec

la variable qui correspond au champ a droite de l arobase = userid
et c est cette variable qui va changer à l index i
index i = index de l application sélectionnée

je te met le formulaire ci dessous en image pour que tu vois mieux le truc

tu selectionnes une application ex :app 2
a cette application sotn associés des comptes et des user. toto = compte
axxxxxx = user
en fonction du user sélectionné
on va remplacer le dernier user associé à un compte dans le fichier text
j associe un user a un compte en écrivant a droite de l arobase
comme ca je sais qui est le dernier user a avoir été associé à un compte
ca me fait une forme d historique.
cette association doit se faire en cliquand sur le bouton command1
en cliquant sur command1

[ouskel'n'or]

Ok !
Considérons donc tes trois listes comme étant List1 (=APPn), List2 (ex = toto) et Liste 3 (= Aetdespoussières)

Code :

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

LaLigne = List1.List(ListIndex) + ";" + "usertest@" + List3.List(ListIndex) + "/" + List2.List(ListIndex) + "@" + List3.List(ListIndex) + ";" + "domain-sec"

Pour le txt, si tu as besoin... (bis)

A+