Gros bug & ReadLine & FSO

Version imprimable

j'ai ceci :
Code:

1 2 3 4 5 6 7 8 9 Dim OFS, MonFichier, FR, textCont '1 je crée la référence du fichier Set OFS = CreateObject("Scripting.FileSystemObject") '2 je vais obtenir le fichier toto.txt qui est dans le répertoire windows. Set MonFichier = OFS.GetFile("c:\sky.txt") '3 maintenant je vais ouvrir le fichier en lecture Set FR = MonFichier.OpenAsTextStream(1, 0) ' Label1.Caption = FR.readline
label1 m'affiche la premiere ligne de mon text :)

mais je voudrais bien quelque chose qui pourrait m'aider a affichier la ligne que je veux ... disant la 10éme ligne...
Cmt pourrais-je le faire?

Et j'aimerais juste lire a partir de 5eme caractère de la ligne et jusqu'à la 10eme ou bien depuis 5eme caractère je voudrais en lire que 5 prochains ( c'est pareil)

Je panse que c'est faisable avec :
Code:

1 2 3 4 Dim File As Collection Dim i As Integer Mid(File.Item(i), 9, 2)' 9 c'est start as long , et 2 c'est length
mais je n'ai pas trop pu l'intégrer ..
Merci de m'aider...

Bonjour,

Il te faut une boucle.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim OFS, MonFichier, FR, textCont
'1 je crée la référence du fichier
Set OFS = CreateObject("Scripting.FileSystemObject")
'2 je vais obtenir le fichier toto.txt qui est dans le répertoire windows.
Set MonFichier = OFS.GetFile("c:\sky.txt")
'3 maintenant je vais ouvrir le fichier en lecture
Set FR = MonFichier.OpenAsTextStream(1, 0)
'
do while not FR.AtEndOfStream 
msgbox FR.readline
Loop
FR.Close

Sans sortir l'artillerie lourde du filesystem object

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub Command1_Click()
  Dim hFich As Integer
  Dim FileName As String
  Dim Buffer As String
  Dim Lignes As Variant
  FileName = "c:\sky.txt"
  'trouver un numero de fichier dispo
  hFich = FreeFile
  'ouvrir le fichier en mode binaire
  Open FileName For Binary As #hFich
  'dimmensionner buffer à la taille du fichier
  Buffer = String(LOF(hFich), 0)
  'lire la totalité du fichier
  Get #hFich, , Buffer
  'on peut fermer le fichier, on n'en a plus besoin
  Close #hFich
  'on va separer buffer sur les fins de ligne  (vbcrlf)
  Lignes = Split(Buffer, vbCrLf)
  'Afficher le nombres de lignes du fichier
  Debug.Print "Ce fichier a " & UBound(Lignes) & " lignes"
  'exemple,afficher la 4 eme ligne ,10 caractères a partitr du 5 eme caractère
  Debug.Print Mid(Lignes(4), 5, 10)
End Sub

13/03/2008, 11h03
imparator_42

pc75 merci pour ta réponse .. mais je des floux dans ma tête pour utiliser ton code....

Et Delbeke ton code correspond 99% à ce que je veux ...
et enfaite j'avais oublié de préciser comment obtenir le nombre de lignes... (tu as répondu Merci :p )
17/03/2008, 23h04
imparator_42

Il y a une toute petite erreur ..

Code:

Debug.Print "Ce fichier a " & UBound(Lignes) & " lignes"

Quand vous avez 1 ligne , il affiche 0... je panse qu'il utilise les numéros des lignes, comme la 1ere ligne est : Mid(ligne(0))

Du coup il faut écrire :

Code:

Debug.Print "Ce fichier a " & UBound(Lignes) + 1 & " lignes"