VBS : lire ligne par ligne un fichier txt [Résolu]

tsotb 19 Messages postés jeudi 18 décembre 2003Date d'inscription 22 juillet 2005 Dernière intervention - 20 juin 2005 à 10:40 - Dernière réponse : cs_sweetyrahma 6 Messages postés lundi 15 décembre 2008Date d'inscription 7 septembre 2009 Dernière intervention
- 3 sept. 2009 à 11:58
Salut,
cmt lire ligne par ligne un fichier txt en VBS???
Merci
The Sins Of Thy Beloved
Afficher la suite 

15 réponses

cs_DARKSIDIOUS 15838 Messages postés jeudi 8 août 2002Date d'inscription 4 mars 2013 Dernière intervention - 20 juin 2005 à 11:07
0
Utile
En VB, il suffit d'utiliser l'instruction Line Input, peut-être qu'en VBS c'est pareil...



Open "fichier" for input as #1



Line Input #1, LaLigne



Close #1

DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : http://www.ProgOtoP.com/popapi/
tsotb 19 Messages postés jeudi 18 décembre 2003Date d'inscription 22 juillet 2005 Dernière intervention - 20 juin 2005 à 11:38
0
Utile
je sais que le "As" ne passe pas en VBS puisque les variables ne sont pas typées...
cs_DARKSIDIOUS 15838 Messages postés jeudi 8 août 2002Date d'inscription 4 mars 2013 Dernière intervention - 20 juin 2005 à 13:16
0
Utile
Attention, ce Ad là n'est pas une déclaration de variable : il s'agit d'un mot clé pour définir le numéro de fichier ouvert !

DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/
cs_DARKSIDIOUS 15838 Messages postés jeudi 8 août 2002Date d'inscription 4 mars 2013 Dernière intervention - 20 juin 2005 à 13:16
0
Utile
Oups, je voulais dire "As" bien entendu ;)

DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/
tsotb 19 Messages postés jeudi 18 décembre 2003Date d'inscription 22 juillet 2005 Dernière intervention - 20 juin 2005 à 13:39
0
Utile
ben ça bloque au "for".....
cs_DARKSIDIOUS 15838 Messages postés jeudi 8 août 2002Date d'inscription 4 mars 2013 Dernière intervention - 20 juin 2005 à 13:40
0
Utile
Ben là je peux pas t'aider par contre, je n'ai jamais fait de vbs !

DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/
tsotb 19 Messages postés jeudi 18 décembre 2003Date d'inscription 22 juillet 2005 Dernière intervention - 20 juin 2005 à 13:46
0
Utile
merci qd meme
alex_kirchen 58 Messages postés mardi 28 octobre 2003Date d'inscription 10 février 2006 Dernière intervention - 20 juin 2005 à 20:45
0
Utile
C'est possible de savoir quelle ligne on traîte dans


Open "fichier" for input as #1

Line Input #1, LaLigne

Close #1

(à part utiliser une boucle, bien sûr)
???
Merci!
cs_DARKSIDIOUS 15838 Messages postés jeudi 8 août 2002Date d'inscription 4 mars 2013 Dernière intervention - 20 juin 2005 à 20:50
0
Utile
Non, il faut utiliser une boucle et utiliser un index de ligne du style :



While Not EOF(1)



Let Index = Index + 1

...



Wend

DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/
alex_kirchen 58 Messages postés mardi 28 octobre 2003Date d'inscription 10 février 2006 Dernière intervention - 20 juin 2005 à 20:52
0
Utile
Merci beaucoup!
Ca marche!
Mais je ne comprend pas le code.
C'est quoi cet index?
Une simple variable non définie, ou bien l'index du fichier??
cs_DARKSIDIOUS 15838 Messages postés jeudi 8 août 2002Date d'inscription 4 mars 2013 Dernière intervention - 20 juin 2005 à 21:05
0
Utile
Non non, c'est une variable que tu peux déclarer !



Le Line Input lit une ligne du fichier. Si tu le rappelle, il te lira la ligne suivante, etc.



Donc si tu fait 15 Line Input, il en sera à la 15ème ligne, c'est à dire, lorsque Index = 15.

DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/
alex_kirchen 58 Messages postés mardi 28 octobre 2003Date d'inscription 10 février 2006 Dernière intervention - 20 juin 2005 à 21:14
0
Utile
Merci beaucoup!
C'est trop cool!
J'ai tout compris!
tsotb 19 Messages postés jeudi 18 décembre 2003Date d'inscription 22 juillet 2005 Dernière intervention - 21 juin 2005 à 07:44
0
Utile
merci à tous!mn pb est résolu. maintenant jvais essayer de récupérer que certaines infos de certaines lignes..
cs_sweetyrahma 6 Messages postés lundi 15 décembre 2008Date d'inscription 7 septembre 2009 Dernière intervention - 3 sept. 2009 à 11:58
0
Utile
bonjour voila une solution
Const ForReading = 1

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile _
("c:\scripts\servers.txt", ForReading)

Do Until objTextFile.AtEndOfStream
strComputer = objTextFile.ReadLine
Wscript.Echo strComputer
Loop

objTextFile.Close
cs_wape 262 Messages postés samedi 21 décembre 2002Date d'inscription 19 décembre 2010 Dernière intervention - 20 juin 2005 à 20:21
-1
Utile
Bonjour,

Tu peux utiliser le FileSytemObject :

Set Fso = CreateObject("Scripting.FileSystemObject")
Set Txt = Fso.OpenTextFile("C:\MonFichier.txt", 1)
Do While Not Txt.AtEndOfStream
sLine = Txt.ReadLine
WScript.Echo sLine
Loop
Txt.Close
Set Txt = Nothing
Set Fso = Nothing

wape

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.