dim ligne_premiere, ligne_deux ,ligne_skip , A,toto

ReadLineTextFile
skiplineinfile
ligne_premiere = skiplineinfile
'wscript.echo "ligne_premiere " & ligne_premiere
ReadTextFileTest
SkipTextFile

skiplineinfile1
ligne_deux = skiplineinfile1
ReadLineTextFile1
'wscript.echo "ligne_deux " & ligne_deux
ReadTextFileTest1
SkipTextFile1



'==================
'lis 1ere ligne fichier
'==================
function ReadLineTextFile
   Const ForReading = 1, ForWriting = 2
   Dim fso, MyFile
   Set fso = CreateObject("Scripting.FileSystemObject")
      Set MyFile = fso.OpenTextFile("ECRIBP13907F_20071025235617.txt", ForReading)
   ReadLineTextFile = MyFile.ReadLine 
'wscript.echo "lis 1ere ligne  " &  ReadLineTextFile
End Function

'==================
'saute 8 lignes
'=================
Function SkipLineInFile
   Const ForReading = 1, ForWriting = 2
   Dim fso, f
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile("C:\cours_ib\ECRIBP13907F_20071025235617.txt", ForReading)
   f.SkipLine
   SkipLineInFile = f.ReadLine
   SkipLineInFile = f.ReadLine
   SkipLineInFile = f.ReadLine
   SkipLineInFile = f.ReadLine
   SkipLineInFile = f.ReadLine
   SkipLineInFile = f.ReadLine
   SkipLineInFile = f.ReadLine
   SkipLineInFile = f.ReadLine
'wscript.echo "SkipLineInFile _saute_8_lignes  " & SkipLineInFile 
End Function


'==================
'ecris dans fichier tout l'enregistrement 1ere date 
'==================
Function ReadTextFileTest
   Const ForReading = 1, ForWriting = 2, ForAppending = 8
   Dim fso, f, Msg
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile("C:\cours_ib\testfile.txt", ForWriting, True)
   f.Write ligne_premiere
   Set f = fso.OpenTextFile("C:\cours_ib\testfile.txt", ForReading)
   ReadTextFileTest = f.Read(47)
' wscript.echo "ecris dans fichier tout l'enregistrement 1ere date" 
End Function


'==================
'ecris dans fichier tout l'enregistrement 2ere date 
'==================
Function ReadTextFileTest1
   Const ForReading = 1, ForWriting = 2, ForAppending = 8
   Dim fso, f, Msg
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile("C:\cours_ib\testfile.txt", ForWriting, True)
   f.Write ligne_deux
   Set f = fso.OpenTextFile("C:\cours_ib\testfile.txt", ForReading)
   ReadTextFileTest1 = f.Read(47)
' wscript.echo "ecris dans fichier tout l'enregistrement 2ere date" 
End Function

'==================
'ecris dans fichier saute 40 ecris les 6
'==================
Function SkipTextFile 
   Const ForReading = 1, ForWriting = 2
   Dim fso, f,ligne_skip
Set fso = CreateObject("Scripting.FileSystemObject")      
Set f = fso.OpenTextFile("C:\cours_ib\testfile.txt", Forreading, True)
F.skip(40)
'j ecris ds fichier skiptextfile ce qui reste de testfile une fois saute les 40 lignes  
SkipTextFile =  F.readline
' wscript.echo "date1-ecris dans fichier tout l'enregistrement skiptextfile"  &  skiptextfile
 Set f = fso.OpenTextFile("C:\cours_ib\testfile1.txt", Forwriting, True)
F.write  skiptextfile 
' F.write  toto
 
  End Function


'==================
'ecris dans fichier saute 40 ecris les 6
'==================
Function SkipTextFile1
   Const ForReading = 1, ForWriting = 2,ForAppending = 8
   Dim fso, f,ligne_skip
Set fso = CreateObject("Scripting.FileSystemObject")      
Set f = fso.OpenTextFile("C:\cours_ib\testfile.txt", Forreading, True)
F.skip(40)
SkipTextFile1 =  F.readline
 wscript.echo "date2-ecris dans fichier tout l'enregistrement skiptextfile"  &  skiptextfile1
' Set f = fso.OpenTextFile("C:\cours_ib\testfile1.txt", Forwriting, True)
  Set f = fso.OpenTextFile("C:\cours_ib\testfile1.txt", ForAppending, True)
 wscript.echo "skiptextfile1 : "   &  skiptextfile1
 F.write  " "  &  skiptextfile1

end function

'==================
'lis ligne derniere date comptable 
'==================
function ReadLineTextFile1
   Const ForReading = 1, ForWriting = 2
   Dim fso, MyFile
   Set fso = CreateObject("Scripting.FileSystemObject")
      Set MyFile = fso.OpenTextFile("ECRIBP13907F_20071025235617.txt", ForReading)
   ReadLineTextFile1 = skiplineinfile1
' wscript.echo "ReadLinetextfile1_'lis ligne derniere date comptable :" & ReadLineTextFile1  
'wscript.echo "ligne_deux " & ligne_deux
End Function


'==================
'saute 9 lignes
'=================
Function SkipLineInFile1
   Const ForReading = 1, ForWriting = 2
   Dim fso, f
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile("C:\cours_ib\ECRIBP13907F_20071025235617.txt", ForReading)
   f.SkipLine
   SkipLineInFile1 = f.ReadLine
   SkipLineInFile1 = f.ReadLine
   SkipLineInFile1 = f.ReadLine
   SkipLineInFile1 = f.ReadLine
   SkipLineInFile1 = f.ReadLine
   SkipLineInFile1 = f.ReadLine
   SkipLineInFile1 = f.ReadLine
   SkipLineInFile1 = f.ReadLine
  SkipLineInFile1 = f.ReadLine
'wscript.echo "SkipLineInFile 1_saute_9_lignes  " & SkipLineInFile1 

End Function