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

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [VBS] If ligne = xxx sauter

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[VBS] If ligne = xxx sauter

n°2160271
aideinfo
Posté le 15-10-2012 à 14:30:39  profilanswer
 

Bonjour,
J'ai fait un petit VBS qui lit un fichier texte pour en récupérer certains éléments. Il fonctionne, mais je me demande s'il n'y a pas une structure propre à ce que je veux faire.
 
Voilà comment je procède, le fichier n'ayant pas de structure adaptée à un traitement facile : Le fichier est parcouru par un While EOF. Si la ligne contient 'machin', j'assigne une variable à 1, et à la lecture de la prochaine ligne, si la variable est à 1, je la traite ligne et je passe la variable à 0.
 
Le Next n'est malheureusement pas accepté, mais peut-être y aurait-il une commande me permettant de passer automatiquement à la ligne suivante ?


---------------
http://www.aideinfo.com/  Whois adresses IP/domaines le plus évolué !!  FAQ Free Mobile
mood
Publicité
Posté le 15-10-2012 à 14:30:39  profilanswer
 

n°2160283
vave
Nice to meet me
Posté le 15-10-2012 à 15:26:07  profilanswer
 

En vba, il y a le MoveNext.  
Je ne sais pas si ça fonctionne en vbs.


---------------
Bel ours Vave, je me dois de l’admettre. -Skyl"win"-  Mais toi tu es intelligent -Homerde- - Ce génie -SkylWINd- JDD S16M72 10:43:46 GMT-DTC +1
n°2160304
aideinfo
Posté le 15-10-2012 à 18:49:23  profilanswer
 

Ca existe, mais pour les RecordSet, donc BDD.


---------------
http://www.aideinfo.com/  Whois adresses IP/domaines le plus évolué !!  FAQ Free Mobile
n°2160329
boomy29
PSN: tintine29
Posté le 16-10-2012 à 08:07:23  profilanswer
 

avec un extrait de code c'est plus simple

n°2160354
aideinfo
Posté le 16-10-2012 à 12:32:26  profilanswer
 

Je n'ai pas sous la main. De toute manière, c'est un bête While pour la lecture.
 
Voici mon exemple de test :  
 

Code :
  1. dim filesys, text, readfile, contents
  2. set filesys = CreateObject("Scripting.FileSystemObject" )
  3. set readfile = filesys.OpenTextFile("log_whois_incident.txt", 1, false)
  4. while readfile.AtEndOfStream=false
  5. ligne = readfile.ReadLine
  6. if instr(ligne, "machin" ) then
  7.  ''MoveNext 'incorrect
  8.  msgbox(ligne)
  9. end if
  10. wend
  11. readfile.close


---------------
http://www.aideinfo.com/  Whois adresses IP/domaines le plus évolué !!  FAQ Free Mobile
n°2160357
boomy29
PSN: tintine29
Posté le 16-10-2012 à 13:00:01  profilanswer
 

Perso je ferai comme tu as fait avec le booléen qui teste s'il faut mettre le msgbox  
 
je pense que c'est le plus propre  
après je sais pas si c'est bon en vbs les go to mais c'est moche dans tous les cas  
 
 
 
 

n°2160365
aideinfo
Posté le 16-10-2012 à 15:07:51  profilanswer
 

Merci. Dommage qu'un Next ne fonctionne pas, ça simplifierait le code.


---------------
http://www.aideinfo.com/  Whois adresses IP/domaines le plus évolué !!  FAQ Free Mobile
n°2160478
akizan
Eye Sca Zi
Posté le 17-10-2012 à 14:17:42  profilanswer
 

pareil, je trouve pas mieux, je penses que c'est parce que le langage VBS est vieux et limité et qu'il n'évoluera plus car on est passé à autre chose :)


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

  [VBS] If ligne = xxx sauter

 

Sujets relatifs
mise en ligne site flash avec formulaire de contact[C#] dataset ajouter une ligne depuis textbox
Liste en ligne?VBA calculette, probleme de ligne !
Comment avoir une question (set /p) et la confirmation sur même ligne?Base de données en ligne
[Codage PHP] Affichage résumé d'une ligneUne ligne VBA que je ne comprends pas
Fonction if...else pour une commande en ligneFichier .bat avec IF successifs [Résolu]
Plus de sujets relatifs à : [VBS] If ligne = xxx sauter


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