Bonjour,

J'utilise un textStream dans une procedure de la facon suivante:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
1: Set oTxt = oFSO.OpenTextFile("toto.txt", ForReading)
2: Satellites$ = GetSatellites(oTxt)
3: L$ = oTxt .ReadLine  'ici je veux lire la 1ère ligne
.....etc...
 
Function GetSatellites(ByVal TexteStream As TextStream) As String
' lis le TextStream jusqu'à trouver la chaine "TEST" et renvoie la ligne
With TexteStream
  Do While (Not .AtEndOfStream)
    L$ = .ReadLine
    if left(L$,4)="TEST" then exit do
  Loop
  return L$
end with
J'utilise ByVal pour ne pas affecter le TextStream mais à la ligne 3, au lieu de lire la toute premiere ligne du TextStream, je lis celle immédiatement après celle où j'avais trouvé "TEST".
Je pensais que ByVal faisait une "copie" du paramètre passé dans la fonction pour que la source ne soit pas modifiée...apparemment ce n'est pas le cas. Y a-t-il une astuce ?

Merci

Olivier