Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1898 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  pb sur comparaison de 2 fichier text

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

pb sur comparaison de 2 fichier text

n°797900
pierrex
Posté le 16-07-2004 à 16:50:28  profilanswer
 


voici mon code j'ai un probleme car il reste dans ma 2éme boucle il ne ve pas sortir pouvez vous m'aider
 
dim nom, prenom, classe, total          
dim nom1, prenom1, classe1, total1
dim pb
 
set fs = CreateObject("Scripting.FileSystemObject" )
set ff = fs.GetFile("Comptes1.txt" )
set t = ff.OpenAsTextStream(1, -2)
 
do
 q = t.ReadLine   'Read a line in the file, put the line in s
    fields = Split(q, ";" )  'Separate the fields and put them in the array fields
 nom1 = trim(fields(0))
    prenom1 = trim(fields(1))
     classe1 = trim(fields(2))
    'wscript.echo ("NOM 1 " + nom1)
    'wscript.echo ("PRENOM 1 " +prenom1)
    'wscript.echo ("Statuts 1 " +classe1)
 total1=nom1+prenom1
 
 
set fso = CreateObject("Scripting.FileSystemObject" )
set f = fso.GetFile("Comptes2.txt" )
set ts = f.OpenAsTextStream(1, -2)
 
do  
 
 s = ts.ReadLine   'Read a line in the file, put the line in s
    fields = Split(s, ";" )  'Separate the fields and put them in the array fields
 nom = trim(fields(0))
    prenom = trim(fields(1))
     classe = trim(fields(2))
    'wscript.echo ("NOM 2 " + nom)
    'wscript.echo ("PRENOM 2 " +prenom)
    'wscript.echo ("Statuts 2 " +classe)
 total=nom+prenom
 
 if (total1 = total) then
  pb="sortir"
  wscript.echo ("bon "+total)
   
 Else  
  pb="delete"
  wscript.echo ("Pas bon " +total +" et "+total1)
 End If
       
loop While ((Not ts.AtEndOfStream) Or (Not pb="sortir" ))
 
loop While (Not t.AtEndOfStream)

mood
Publicité
Posté le 16-07-2004 à 16:50:28  profilanswer
 

n°797908
mareek
Et de 3 \o/
Posté le 16-07-2004 à 16:56:38  profilanswer
 

c'est pas  

Citation :

loop While ((Not ts.AtEndOfStream) And (Not pb="sortir" ))


plutot que  

Citation :

loop While ((Not ts.AtEndOfStream) Or (Not pb="sortir" ))


?


---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack
n°797921
pierrex
Posté le 16-07-2004 à 17:09:18  profilanswer
 

merci c'etait bien ca mon erreur


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  pb sur comparaison de 2 fichier text

 

Sujets relatifs
comparaison de chaines de caracterespb envoi de fichier attaché...
Récup des ID3Tags d'un fichier MP3Taille maximale du fichier de données
Ouvrir fichier PDF avec python ?Un GROS FICHIER PHP (librairie)... qu'a-t-il comme inconvénients ?
Probleme de decompression de fichier zip contenant des caracteres é"Type text" et sqlyog
[SQL SERVER] Comparaison de table [Presque resolu]Affichage d'un fichier excel dans un WinForm
Plus de sujets relatifs à : pb sur comparaison de 2 fichier text


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR