Discussion :

[nick_2428]

Bonjour, j'aimerais être capable de copier mon fichier source vers un autre fichier texte, à partir d'une ligne précise. la ligne en question sera toujours x*150+2250.

Voici ce que j'ai trouvé pour l'instant dans mes recherches et que j,ai tenté d'adapter à mon cas.

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
16
set fso=CreateObject("Scripting.FileSystemObject")
set oFich=fso.OpenTextFile(''monfichier'',1,True)
tx=oFich.ReadAll
oFich.Close    
tb=Split(tx,VbNewline)
 
N=x*150+2250
For i=N To Ubound(tb)
  S=S+tb(i)+Vbnewline
Next
 
Set oFich = Nothing
Set fso = Nothing
 
 
FSO4.CopyFile monfichier, monNEWfichier

Le FSO4 vient du temps ou je ne faisais qu'une simple copie du fichier et enlevait les trucs inutiles à la main avant de lancer un autre code pour le reste. J,aimerais maintenant tout automatiser ensemble, mais pour ça, je dois être en mesure de commencer la copie de mon fichier à la ligne N.

Merci d'avance et excusez mon faible niveau de connaissance, je suis en apprentissage.

[ProgElecT]

Salut

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
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