[R] Supprimer des doublons dans un fichier

[pins38]

Bonsoir,

J'aimerais récupérer à l'intérieur d'un fichier une seule ligne ayant une valeur spécifique alors que celle ci se répète plusieurs fois.Les valeurs en question dans le fichier Origine sont ALLB0000, ALLB0002 & ALLB0003 (ces valeurs sont uniques).

J'ai essayé les solutions du forum sur la suppression des doublons ==> NOK.

Je joins un fichier origine et un fichier résultat

Resultat.txt

(765 Octets) Téléchargé 150 fois

Origine.txt

(1.74 Kio) Téléchargé 120 fois

Merci de votre aide.

[Tlem]

Lisez votre fichier ligne après ligne à la recherche de la chaine (StringinStr) ALLB0000.
Si vous trouvez la chaine alors écriture dans fichier et sortie de la boucle de lecture du fichier ou plus simplement d'une fonction de lecture.
Puis vous recommencez la lecture du fichier ligne après ligne à la recherche de la chaine suivante ALLB0002 et ainsi de suite.

Voilà ...

[Yogui]

10 minutes trop tard

bon je cache le code mais j'ai fait ce que tlem explique

► Afficher le texte

Code : Tout sélectionner

$filename = "c:\Origine.txt"
$filename2 = "c:\Resultat.txt"
$use = ""
$line = "1"
$file = FileOpen($filename, 0)
While 1
    $line = FileReadLine($file)
    If @error = -1 Then ExitLoop
        $Present = StringInStr($use,$line)
            if $present = "0" then
                $use = $use & $line & '|'
                FileWrite($filename2, $line &@CRLF)   
            endif

Wend

[pins38]

Bonjour,

Merci à vous.

Bon Week End