Discussion :

[af_airone]

Bonjour j'essai de splitter un fichier texte donc les lignes on la syntaxe suivant

Code :

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

1
2
3
APP1;compte1@user1/compte2@user2;user1/user2/user3
 
APP3;compte5@A230400/compte6@A230430;A230230/A230430/A450500

et j aimerais pouvoir remplacer dans les champs compte1@user1 et compte@user2
user1 et user2 par le user que j aurais sélectionné dans mon formulaire
alors je splite de la facon suivante(code plus bas ) mais je sais pas réécrire dasn le fichier texte pour mettre à jour en fonction de la sélection.
pourtant j en ai besoin car mon appli va tester si le compte est actif et le dernier user du compte sera celui apres l arobase .donc si je sélectionne dans mon formulaire user 2 pour le compte 1
je voudrais obtenir
APP1;compte1@user2/compte2@user2;user1/user2/user3
et non plus
APP1;compte1@user1/compte2@user2;user1/user2/user3

auriez vous une idée?
par avance merci

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
Public Sub Form_Load()
 
Dim strApp(100)
Dim strEmer(100, 20)
Dim strUsr(100, 20)
 
    sFile = "C:\essai.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)
 
        ' Nombre des comptes Emergency
        nCount = 0
        rCode = fDelimiterCount(tAryRecord(1), "@", nCount)
 
        ' Séparation des Comptes
        tAryEmerg = Split(tAryRecord(1), "/")
 
        For i = 0 To nCount - 1
            strEmer(nRec, i) = tAryEmerg(i)
        Next
 
        ' Nombre d'Utilisateurs
        nCount = 0
        rCode = fDelimiterCount(tAryRecord(2), "/", nCount)
 
        If nCount = 0 Then nCount = 1
 
        ' Séparation des Comptes
        tAryUsr = Split(tAryRecord(2), "/")
 
        For i = 0 To nCount - 1
            strUsr(nRec, i) = tAryUsr(i)
        Next
 
        nRec = nRec + 1
 
 
 
    Loop
 
 
 
    Close Fnum
 
 
 
End Sub
 
Private Function fDelimiterCount(ByRef strData, ByRef chrSeparator, ByRef nCount) As Integer
 
nCount = 0
 
nLenght = Len(strData)
 
For i = 1 To nLenght
    If Mid(strData, i, 1) = chrSeparator Then
        nCount = nCount + 1
    End If
Next
 
End Function

[Catbull]

Utilise la fonction Replace. Exemple :

Code :

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

1
2
3
4
5
6
Expression = APP1;compte1@user2/compte2@user2;user1/user2/user3
Compte = "compte1"
UserRemplace = "user1"
UserRemplacant = "user2"
 
Expression = Replace(Expression, Compte & "@" & UserRemplace , Compte & "@" & UserRemplacant )