Discussion :

[julien2602]

Bonjour,
je souhaiterai creer un vbscript qui me permette de couper-coller des 1000 premieres lignes d'un fichier pour les mettre dans un deuxieme fichier que je crée
en effet, le premier fichier est enorme est je n'arrive pas à l'ouvrir, qqsoit le logiciel utilisé
je me dis qu'en le splittant, ça sera mieux
qq'un aurait une idée?

[ced600]

Pour le faire ton soft devra ouvrir le fichier, donc cela ne résoudra pas ton problème. C'est toi qui génère ce fichier ?

En général pour ce genre de chose, lorsque l'on remplis un fichier de log pra exemple, on s'arange pour ne pas dépassé un certain nombre de ligne, et dans le cas on l'on dépasse un crée un deuxième fichier de logs.
Ainsi de suite, et avec une rotation des logs (du genre au bout du dixième fichier on écrase le premier) on n'évitent d'encombrer le disque dur.

Si ce n'est pas toi qui génére un tel fichier, je te conseille de demander à ce qui le génére de le découper

Essaye notepad++ sinon, il est pas mal.
Il y a des éditeurs sur le net qui sont capable d'ouvrir des fichier de gros volume.

Si tu veux vraiment essayer de faire un script, regarde autour de FileSystemObject.

[julien2602]

Ce qui se passe, c'est que c'est une fichier avec l'extension sql qui permet d'inserer en masse des données ds une table par des commandes "insert"
je pensais que vu qu'on ne l'ouvrait pas, la commande open pouvait gerer un fichier d'une grosse taille
y'aurait un moyen, soit de l'ouvrir, soit de le decouper en plusieurs fichiers de plus petites tailles?

[ced600]

En dehors de le couper à la création, et donc de ne pas faire de fichier trop volumineux, je ne sais pas faire !!!
Désolé.

[julien2602]

Merci quand même

[RadPAT]

Salut,

et as-tu essayé qquechose comme ca ?

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
Const ForReading = 1
Const ForWriting = 2
 
Fic1 = "Nom du fichier SQL à extraire" 
Fic2 = "FichierOut.Txt"
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(Fic1, ForReading)
 
Set objFile1 = objFSO.CreateTextFile(Fic2, ForWriting)
 
Do Until objFile.AtEndOfStream
    strLine = objFile.ReadLine
    objFile1.WriteLine strLine
    I = I + 1
    If I > 999 Then Exit Do
Loop
 
objFile.Close
objFile1.Close

Ici ca fait du copier coller. Pour un couper coller il faudrait passer ton fichier sql en append et remplacer la ligne que tu es en train de lire par un "".
Peux-tu essayer juste pour ma culture personnelle

Merci.

A++

[julien2602]

Merci
je vais essayer et te tenir au courant