IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBScript Discussion :

Comparaison et extraction de ligne de fichier.txt


Sujet :

VBScript

  1. #1
    Futur Membre du Club
    Inscrit en
    Novembre 2010
    Messages
    4
    Détails du profil
    Informations forums :
    Inscription : Novembre 2010
    Messages : 4
    Points : 5
    Points
    5
    Par défaut Comparaison et extraction de ligne de fichier.txt
    Bonjour à tous,
    je suis débutant en VBS et je souhaiterais extraire les lignes différentes de deux fichiers.txt . Exp:

    Fic1=
    L1
    L2
    L3


    Fic2=
    L1
    L2
    L4
    L5

    je voudrais récupérer dans un fichier.txt(FicResult.txt) la difference = 4

    voici ce que j'ai récupéré mais cela ne fonctionne pas
    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
    Const ForReading = 1, ForWriting = 2, ForAppending = 8 
     
    Dim fso, f , f1, f2
    Dim st ,st1
     
    Set objDictionary = CreateObject("Scripting.Dictionary")
     
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.OpenTextFile("C:\Fic1.txt", ForReading)
    Set f1 = fso.OpenTextFile("C:\Fic2.txt", ForReading)
     
     
     
    Set f2 = fso.CreateTextFile("C:\FicResult.txt") 
     
    Do Until f.AtEndOfStream
        ligne = f.ReadLine
    	If Not objDictionary.Exists(ligne) Then
    	objDictionary.Add ligne, ligne
    	End If
    Loop
     
    f.Close
    f1.Close
    f2.Close
     
    Set f2 = fso.OpenTextFile("C:\FicResult.txt", ForWriting)
     
    For Each strKey in objDictionary.Keys
    	f2.WriteLine strKey
    Next
     
    f2.Close
    Merci pour votre aide.

    Cordialement

    Gardel

  2. #2
    Modérateur
    Avatar de l_autodidacte
    Homme Profil pro
    Retraité : Directeur de lycée/Professeur de sciences physiques
    Inscrit en
    Juillet 2009
    Messages
    2 415
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 68
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Retraité : Directeur de lycée/Professeur de sciences physiques
    Secteur : Enseignement

    Informations forums :
    Inscription : Juillet 2009
    Messages : 2 415
    Points : 5 806
    Points
    5 806
    Par défaut
    Salut;

    D'après ce que je vois, la différence est L3,L4 et L5.
    Alors si tu précises encore plus ce que tu veux faire, on pourrait peut-être t'aider.
    Par exemple : Tu cherches ce qui existe dans Fic2 et pas dans Fic1 ou l'inverse ou encore toute différence entre les 2 fichiers ?
    Ne pas oublier le tag si satisfait.
    Voter pour toute réponse satisfaisante avec pour encourager les intervenants.
    Balises CODE indispensables. Regardez ICI
    Toujours utiliser la clause Option Explicit(VBx, VBS ou VBA) et Ne jamais typer variables et/ou fonctions en VBS.
    Vous pouvez consulter mes contributions
    Ne pas oublier de consulter les différentes FAQs et les Cours/Tutoriels VB6/VBScript
    Ne pas oublier L'Aide VBScript et MSDN VB6 Fr

Discussions similaires

  1. [VB.Net]Compter le nb de ligne dans fichier txt
    Par papy75 dans le forum Windows Forms
    Réponses: 20
    Dernier message: 15/12/2011, 16h30
  2. Lecture d'une ligne précise fichier txt
    Par House MD dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 23/11/2007, 16h20
  3. [vb.net] ajouter une ligne à un fichier txt existant
    Par tbdarkspirit dans le forum VB.NET
    Réponses: 2
    Dernier message: 25/05/2007, 12h41
  4. ligne de fichier txt dans une variable
    Par suya95 dans le forum Langage
    Réponses: 2
    Dernier message: 25/07/2006, 11h14
  5. prb retour a la ligne dans fichier txt telecharge avec php
    Par supersonicblonde dans le forum Langage
    Réponses: 3
    Dernier message: 08/06/2006, 15h20

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo