Probleme :/

Messages postés
37
Date d'inscription
jeudi 9 mai 2002
Statut
Membre
Dernière intervention
30 août 2003
-
Messages postés
37
Date d'inscription
jeudi 9 mai 2002
Statut
Membre
Dernière intervention
30 août 2003
-
salut
est-ce que qqn connaitrais un morceau de code qui recherche dans un fichier si il y a 2 fois le meme caractere sur la meme ligne, et qui la supprimerait ensuite ?
merci d'avance

4 réponses

Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
10
Qui supprimerait quoi ? La ligne ?
Messages postés
37
Date d'inscription
jeudi 9 mai 2002
Statut
Membre
Dernière intervention
30 août 2003

oui qui supprimerait la ligne
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
10
Dim Ligne As String
Dim i As Integer, j As Integer, Longueur As Integer, n As Integer
Open "Fichier_1" For Input As #1
Open "Fichier_2" For Output As #2

Do While Not EOF(1)
Line Input #1, Ligne 'Lecture de la n-ièmè ligne de "Fichier_1"
n = n + 1
Longueur = Len(Ligne) ' Nbre de caractères
Do
For i = 1 To Longueur - 1
For j = i + 1 To Longueur
If Mid(Ligne, i, 1) = Mid(Ligne, j, 1) Then
MsgBox "La ligne n° " & n & " contient au moins 2 fois le caractère " & Mid(Ligne, i, 1)
Ligne = "" 'Ligne effacée
Exit Do
End If
Next j
Next i
Exit Do
Loop
If Ligne <> "" Then Print #2, Ligne
Loop
Close
Kill "Fichier_1"
Name "Fichier_2" As "Fichier_1"

Si la ligne ne contient pas 2 fois le même caractère, on ne l'efface pas.
Si tu veux l'effacer quand même, supprime les lignes de code contenant "Fichier_2"
Messages postés
37
Date d'inscription
jeudi 9 mai 2002
Statut
Membre
Dernière intervention
30 août 2003

c'est possible de definir un caractere specifique pour supprimer la ligne au lieu que ce soit n'importe quel caractere ?