Discussion :

[GodGives]

Bonjour!

J'ai un fichier texte dont le contenu ressemble à ceci:

[Info OT]
DateCmde = 18/01/2008
codcli = SBR
LibOrg = Bon à Livrer
numpiece = CDE 0140572
CodNat = LDA
codut = PAL
depart = SBR-Akpakpa
destination = Alimentation store
Catprod = Bières et Boissons Gazeuses
Nexec = Initial
qtetot = 24
DatePr =
HeurePr =
[Fin Info OT]

[Détail Produits]
PR025 Sprite casier de 12 60
PR030 Moka casier de 24 40
PR029 Moka casier de 12 60
PR008 La béninoise casier de 24 200
PR009 La béninoise casier de 12 60
PR017 Guiness casier de 24 40
PR011 Flag casier de 12 60
PR021 Fizzi pamplemousse casier de 24 40
PR027 Fizzi cocktail casier de 24 80
PR001 Coca-cola casier de 24 80
PR020 Coca-cola casier de 12 60
PR012 Castel casier de 24 80
PR013 Castel caiser de 12 300
[Fin Détail Produits]

J'aimerais connaître le nombre (n) de lignes dont dispose le fichier et les parcourir dans l'ordre, de la première à la dernière.

Mes recherches, m'ont seulement aidé à remplir par code ce fichier et à avoir son contenu en bloc!

Merci d'avance!!!

[Phifi]

Bonjour,

voir l'instruction Open (For Input As...)

[GodGives]

Cette instruction me permet d'ouvrir le fichier!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Open MonFichier For Input As #numfile

Mais je sais plus comment faire pour parcourir mes données ligne par ligne!

Pour remplir le fichier, j'utilise VbTab comme séparateur de colonnes et VbCrLf comme séparateur de lignes!

[ThierryAIM]

http://vb.developpez.com/faq/?page=Fichiers
http://vb.developpez.com/faqvbs/?page=II.2

bonne lecture !

[GodGives]

Merci pour les liens!

Je n'ai rien trouvé sur le premier mais dans le second, ce que j'ai me permet de lire un fichier et le code est en vbscript!

Malheureusement, J'ai jamais utilisé vbscript;

[trollinou]

Salut

Le vbscript c'est un peu le petit frère de VB

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Const ForReading = 1, ForWriting = 2 
Dim oFso, f
 
  Set oFso = CreateObject("Scripting.FileSystemObject")
  Set f = oFso.OpenTextFile("c:\tmp\fichier1.txt", ForReading)
  Do While Not f.AtEndOfStream 
     wscript.echo f.ReadLine
  Loop
  f.Close