script vbs pour ajout suffixe

Version imprimable

09/05/2017, 08h00
peter mac allow way

script vbs pour ajout suffixe

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.
09/05/2017, 14h47
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 ;)
10/05/2017, 15h36
Sankasssss

J'ai déplacé la discussion ;)

Salut peter mac allow way, bienvenue sur DVP

Citation:

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:

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.