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

Question

Posez votre question Signaler

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

tsotb

Messages postés: 19
Date d'inscription: jeudi 18 décembre 2003
Statut: Membre
Dernière intervention: 22 juillet 2005

- 20 juin 2005 à 10:40 - Dernière réponse : cs_sweetyrahma

Messages postés: 6
Date d'inscription: lundi 15 décembre 2008
Statut: Membre
Dernière intervention: 7 septembre 2009

- 3 sept. 2009 à 11:58

Visual Basic Posez votre question Signaler

Salut,
cmt lire ligne par ligne un fichier txt en VBS???
Merci
The Sins Of Thy Beloved

Afficher la suite

A voir également:

Vbscript lire fichier texte
Txt to vbs - Meilleures réponses
Lire ligne par ligne python - Meilleures réponses
Vba lire fichier texte - Conseils pratiques - Visual Basic / VB.NET
Java lire fichier texte mot par mot ✓ - Forum - Java
Vba lire fichier texte avec séparateur ✓ - Forum - Visual Basic 6
Python lire fichier texte ligne par ligne - Forum - Python
Javascript lire fichier texte local - Guide

15 réponses

Posez votre question

cs_DARKSIDIOUS · Answer 1 · 2005-06-20T11:07:16+0200

Signaler

cs_DARKSIDIOUS

Messages postés: 15815
Date d'inscription: jeudi 8 août 2002
Statut: Modérateur
Dernière intervention: 4 mars 2013

87 20 juin 2005 à 11:07

0

Merci

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 · Answer 2 · 2005-06-20T11:38:30+0200

Signaler

tsotb

Messages postés: 19
Date d'inscription: jeudi 18 décembre 2003
Statut: Membre
Dernière intervention: 22 juillet 2005

20 juin 2005 à 11:38

0

Merci

je sais que le "As" ne passe pas en VBS puisque les variables ne sont pas typées...

cs_DARKSIDIOUS · Answer 3 · 2005-06-20T13:16:03+0200

Signaler

cs_DARKSIDIOUS

Messages postés: 15815
Date d'inscription: jeudi 8 août 2002
Statut: Modérateur
Dernière intervention: 4 mars 2013

87 20 juin 2005 à 13:16

0

Merci

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 · Answer 4 · 2005-06-20T13:16:34+0200

Signaler

cs_DARKSIDIOUS

Messages postés: 15815
Date d'inscription: jeudi 8 août 2002
Statut: Modérateur
Dernière intervention: 4 mars 2013

87 20 juin 2005 à 13:16

0

Merci

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 · Answer 5 · 2005-06-20T13:39:03+0200

Signaler

tsotb

Messages postés: 19
Date d'inscription: jeudi 18 décembre 2003
Statut: Membre
Dernière intervention: 22 juillet 2005

20 juin 2005 à 13:39

0

Merci

ben ça bloque au "for".....

cs_DARKSIDIOUS · Answer 6 · 2005-06-20T13:40:54+0200

Signaler

cs_DARKSIDIOUS

Messages postés: 15815
Date d'inscription: jeudi 8 août 2002
Statut: Modérateur
Dernière intervention: 4 mars 2013

87 20 juin 2005 à 13:40

0

Merci

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 · Answer 7 · 2005-06-20T13:46:27+0200

Signaler

tsotb

Messages postés: 19
Date d'inscription: jeudi 18 décembre 2003
Statut: Membre
Dernière intervention: 22 juillet 2005

20 juin 2005 à 13:46

0

Merci

merci qd meme

cs_wape · Answer 8 · 2005-06-20T20:21:09+0200

Signaler

cs_wape

Messages postés: 262
Date d'inscription: samedi 21 décembre 2002
Statut: Membre
Dernière intervention: 19 décembre 2010

6 20 juin 2005 à 20:21

0

Merci

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

alex_kirchen · Answer 9 · 2005-06-20T20:45:07+0200

Signaler

alex_kirchen

Messages postés: 58
Date d'inscription: mardi 28 octobre 2003
Statut: Membre
Dernière intervention: 10 février 2006

20 juin 2005 à 20:45

0

Merci

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 · Answer 10 · 2005-06-20T20:50:25+0200

Signaler

cs_DARKSIDIOUS

Messages postés: 15815
Date d'inscription: jeudi 8 août 2002
Statut: Modérateur
Dernière intervention: 4 mars 2013

87 20 juin 2005 à 20:50

0

Merci

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 · Answer 11 · 2005-06-20T20:52:55+0200

Signaler

alex_kirchen

Messages postés: 58
Date d'inscription: mardi 28 octobre 2003
Statut: Membre
Dernière intervention: 10 février 2006

20 juin 2005 à 20:52

0

Merci

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 · Answer 12 · 2005-06-20T21:05:21+0200

Signaler

cs_DARKSIDIOUS

Messages postés: 15815
Date d'inscription: jeudi 8 août 2002
Statut: Modérateur
Dernière intervention: 4 mars 2013

87 20 juin 2005 à 21:05

0

Merci

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 · Answer 13 · 2005-06-20T21:14:58+0200

Signaler

alex_kirchen

Messages postés: 58
Date d'inscription: mardi 28 octobre 2003
Statut: Membre
Dernière intervention: 10 février 2006

20 juin 2005 à 21:14

0

Merci

Merci beaucoup!
C'est trop cool!
J'ai tout compris!

tsotb · Answer 14 · 2005-06-21T07:44:54+0200

Signaler

tsotb

Messages postés: 19
Date d'inscription: jeudi 18 décembre 2003
Statut: Membre
Dernière intervention: 22 juillet 2005

21 juin 2005 à 07:44

0

Merci

merci à tous!mn pb est résolu. maintenant jvais essayer de récupérer que certaines infos de certaines lignes..

cs_sweetyrahma · Answer 15 · 2009-09-03T11:58:06+0200

Signaler

cs_sweetyrahma

Messages postés: 6
Date d'inscription: lundi 15 décembre 2008
Statut: Membre
Dernière intervention: 7 septembre 2009

3 sept. 2009 à 11:58

0

Merci

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

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

Votre réponse