Discussion :

[Superzest 76]

Bonjour a tous ,
Alors j'ai une application qui permet au utilisateur de se logger grâce a un capteur biométrique le capteur biometrique ecrit une ligne dans un fichier txt
voila un exemple de fichier txt

Code :

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

1
2
3
4
5
6
 
8;Vallet;Esteban
1;Her;Bruno
2;leGros;Henri7
3;Petitgros;Michel
5;Vito;Abdoulaye

le but est de choisir la ligne ou l'id= 2 et de la supprimer

Merci d'avance pour votre aide

[ProgElecT]

Salut

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
dim ContenuFichier 'pour simuler ton fichier
ContenuFichier =        "8;Vallet;Esteban" & vbnewline & _
                        "1;Her;Bruno" & vbnewline & _
                        "2;leGros;Henri7" & vbnewline & _
                        "3;Petitgros;Michel" & vbnewline & _
                        "5;Vito;Abdoulaye"
 
dim TblLignes
TblLignes = split(ContenuFichier,vbnewline)
dim TblColonnes
dim NewContenuFichier
dim MotRechercher
dim T
 
IdRechercher = "2"
For T = 0 to ubound(TblLignes)
        TblColonnes = split(TblLignes(t),";")
        if TblColonnes(0)<> IdRechercher Then
                NewContenuFichier = NewContenuFichier & TblLignes(t)
                If T <> ubound(TblLignes) Then NewContenuFichier = NewContenuFichier & vbnewline
        End If
Next
 
'pour debeug
MsgBox NewContenuFichier

Tu ouvres ton fichier et tu mets le contenu dans la variable ContenuFichier, tu fermes ton fichier.
Une fois passé par le code fournis, tu écrases ton fichier en écrivant le contenu de la variable NewContenuFichier .

[ProgElecT]

Re

Une petite gestion plus judicieuse du retour à la ligne ajouté à la variable NewContenuFichier

Code :

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

1
2
3
4
        if TblColonnes(0)<> IdRechercher Then
                If NewContenuFichier <> "" Then NewContenuFichier = NewContenuFichier & vbnewline
                NewContenuFichier = NewContenuFichier & TblLignes(t)
        End If

En effet, si l'Id a éliminé est le dernier du tableau TblLignes, la condition If T <> ubound(TblLignes) Then NewContenuFichier = NewContenuFichier & vbnewline ajoutait un saut de ligne si l'Id a supprimé est la dernière ligne du fichier.

[Superzest 76]

Merci beaucoup pour ton aide ^^
c'est super de mettre ses compétence au service des autres ^^

[omen999]

salut,

un autre exemple qui utilise la fonction Filter souvent méconnue

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim ContenuFichier 'pour simuler ton fichier
ContenuFichier =        "8;Vallet;Esteban" & vbnewline & _
                        "1;Her;Bruno" & vbnewline & _
                        "2;leGros;Henri7" & vbnewline & _
                        "3;Petitgros;Michel" & vbnewline & _
                        "5;Vito;Abdoulaye"
 
Dim TblLignes,IDRec,NewContenuFichier
TblLignes = Split(ContenuFichier,vbNewLine)
IDRec = "2;"
NewContenuFichier = Join(Filter(TblLignes,IDRec,False),vbNewLine)
 
'pour debeug
MsgBox NewContenuFichier

2 avantages et un possible inconvénient comparé au code proposé par ProgElecT
- plus compact et surtout plus rapide et robuste si le fichier texte comporte des centaines de lignes voire des milliers
- inutilisable si le nom de l'utiilisateur (pas le prénom) se termine par le même nombre que l'ID recherchée ex : "3;Petitgros2;Michel"

edit : l'inconvénient n'existait que dans mon imagination le code (modifié) ultra-compact :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim ContenuFichier 'pour simuler ton fichier
ContenuFichier =        "8;Vallet;Esteban" & vbnewline & _
                        "1;Her;Bruno" & vbnewline & _
                        "2;leGros;Henri7" & vbnewline & _
                        "3;Petitgros2;Michel" & vbnewline & _
                        "5;Vito;Abdoulaye"
 
Dim IDRec,NewContenuFichier
IDRec = vbLf & "2;"
NewContenuFichier = Join(Filter(Split(ContenuFichier,vbCr),IDRec,False),vbCr)
'pour debeug
MsgBox NewContenuFichier

[Superzest 76]

@omen999 Super merci beaucoup pour ton aide