Discussion :

[EvaristeGaloisBis]

Bonjour a tous,

Je suis en train de developper un petit truc sur excel qui lit un fichier. Pour ce faire j'utilise la librairie : Microsoft Scripting RunTime et plus particulièrement l'objet : TextStream.

Code Exemple d'utilisation de TextStream :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Test(stPath as string)
Dim tsAllFile As Scripting.TextStream    'ts pour TextStream
Dim fsoMngr As Scripting.FileSystemObject 'fso pour file system Object
 
  'creation de FileSystemManager
  If fsoMngr Is Nothing Then Set fsoMngr = New Scripting.FileSystemObject
 
  'ouverture du Fichier en TextStream
  Set tsAllFile = fsoMngr.GetFile(stPath).OpenAsTextStream(ForReading)
 
  'Lecture
  While Not tsAllFile.AtEndOfStream
    Debug.Print tsTmp.Read(1)
  Wend
 
End Sub

Mon problème est le suivant. J'aimerai pouvoir lire deux fois le meme caractère.
J'ai essayé un tsTmp.skip -1 en vain!
Il y a bien une solution brutale mais elle n'est pas du tout optimale en temps calcul : il faut fermer le fichier et le réouvrir et mettre le curseur a l'ancienne position....

Bref ma question est fort simple comment revenir en arrière d'un caractère pendant la lecture du TextStream.

Si vous avez des idées je suis preneur!

E.G.

[Marc-L]

Bonjour,

en lecture séquentielle, normalement non.

Maintenant voir la Manipulation des fichiers en VBA … Je ne sais si la méthode Skip accepte une valeur négative …

Ne voyant toujours pas l'intérêt de la demande, mais à partir du moment où une ligne a été lue dans une variable,
il n'est quand même pas difficile d'extraire le dernier caractère via la fonction Right par exemple !

Personnelement j'évite FSO, je préfère la méthode d'accès plus rapide de la lecture du fichier complet en mémoire
(pas de souci avec des fichiers > 1 Mo) en séparant les lignes avec Split le tout en une seule ligne de commande …

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[EvaristeGaloisBis]

Bonjour,
Je ne sais si la méthode Skip accepte une valeur négative …

La réponse est dans mon message. Je ne lis pas ligne par ligne mais caractère par caractère donc le Right ne s'applique pas!

[Marc-L]

Techniquement si car le caractère à droite d'une chaine d'un seul caractère est bien ce caractère ‼

Donc n'est-ce point idiot de vouloir relire un caractère qui vient juste d'être lu dans une variable ? Où est l'intérêt ?

Qui plus est as-tu lu puis testé la méthode Skip ?

[EvaristeGaloisBis]

En fait, c'est que mon algo avait une faille de conception... L'impossible de faire ça sur le TextStream était un indice!
Sinon je ne pouvais pas faire de lecture avec ReadLine puis parser de mon coté la chaine pour des raisons aussi diverses que variées. Il me fallait obligatoirement rester sur le TextStream.