Discussion :

[peter mac allow way]

bonjour à tous,

je développe un utilitaire très simple ( 15 milles lignes quand même en batch) pour différentes requêtes mysql sur deux bases de données.

j'utilise actuellement un batch pour ajouter dans un fichier un point virgule et le chiffre un a chaque ligne d'un fichier. je renouvelle cette opération pour 6 fichiers.

le hic, c'est que les fichiers font plus de 300 000 lignes.

avec mon batch, l'ajout de ce suffixe prend 15 minutes par fichiers environ.

par contre, jai essayé avec un script vbs, j'arrive à ajouter un préfixe en quelques secondes sur ce même fichier mais pas en suffixe....


si vous pouvez m'aider..... D'avance merci a tous. l'idéal serait un simple vbs que j'appellerai depuis mon batch.

[jopopmk]

Salut,

pas sûr que tu sois sur le bon forum (mais pas sûr non plus qu'il existe un forum VBS).
Si tu nous montrais un peu ton code, et précisais le besoin, on aurait plus de billes pour t'aider

[Sankasssss]

J'ai déplacé la discussion

[ProgElecT]

Salut peter mac allow way, bienvenue sur DVP

un point virgule et le chiffre un a chaque ligne

Tu ne nous indiques pas ou ajouter ces point et chiffre
Voici un code de base pour ta demande.

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
TraitementFichier "C:\PersoFrancis\Aide UserControl.txt"
 
 
Sub TraitementFichier(ChemNomFich)
Dim Fichier, fso, F
   Const ForReading = 1, ForWriting = 2
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set F = fso.OpenTextFile("C:\PersoFrancis\Aide UserControl.txt", ForReading)
   Fichier = F.ReadAll
   F.Close
   Fichier = TransformeFichier(Fichier)
   Set F = fso.OpenTextFile("C:\PersoFrancis\Aide UserControl.txt", ForWriting, True)
   F.Write Fichier
   F.Close
   Set F = Nothing
   Set fso = Nothing
End Sub
Function TransformeFichier(Contenu)
    Contenu = Replace(Contenu, vbNewLine, ";" & vbNewLine, vbTextCompare)
    Contenu = Contenu & ";"
    Contenu = "1 " & Contenu
    Contenu = Replace(Contenu, vbNewLine, vbNewLine & "1 ", vbTextCompare)
    TransformeFichier = Contenu
End Function

la sub TraitementFichier ouvre le fichier, passe la main à la fonction TransformeFichier et ferme le fichier une fois son contenu transformé.
la transformation ajout le chiffre 1 plus un espace en début de chaque ligne et un ; en fin de chaque ligne.