1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
| Set fso=CreateObject("Scripting.FileSystemObject")
Set oFich=fso.OpenTextFile(''monfichier'',1,True)
'tx=oFich.ReadAll
tb=Split(oFich.ReadAll,VbNewline)
oFich.Close
'tb=Split(tx,VbNewline)
'N=x*150+2250
Dim Deb, Fin
Deb = x*150+2250: Fin = Ubound(tb)
'For i=N To Ubound(tb)
For i=Deb To Fin
S=S&tb(i) & vbNewline
Next
S = left(S,len(S)-2) ' pour enlever le dernier vbNewLine
Set oFich=fso.OpenTextFile(''monNEWfichier'',2,True)
oFich.Write s
oFich.Close
Set oFich = Nothing
Set fso = Nothing
'FSO4.CopyFile monfichier, monNEWfichier |
Partager