1. #1
    Candidat au Club
    Homme Profil pro
    Technicien Help Desk
    Inscrit en
    novembre 2016
    Messages
    3
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 38
    Localisation : France, Pas de Calais (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Technicien Help Desk
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : novembre 2016
    Messages : 3
    Points : 3
    Points
    3

    Par défaut 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.

  2. #2
    Membre expert Avatar de jopopmk
    Homme Profil pro
    Développeur informatique
    Inscrit en
    mars 2011
    Messages
    1 798
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : mars 2011
    Messages : 1 798
    Points : 3 329
    Points
    3 329

    Par défaut

    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
    Plus je connais de langages, plus j'aime le C.

  3. #3
    Modérateur
    Avatar de Sankasssss
    Homme Profil pro
    Développeur .NET
    Inscrit en
    novembre 2006
    Messages
    1 696
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 34
    Localisation : Belgique

    Informations professionnelles :
    Activité : Développeur .NET
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : novembre 2006
    Messages : 1 696
    Points : 3 846
    Points
    3 846

    Par défaut

    J'ai déplacé la discussion

  4. #4
    Rédacteur/Modérateur
    Avatar de ProgElecT
    Homme Profil pro
    Retraité
    Inscrit en
    décembre 2004
    Messages
    3 938
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 61
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Communication - Médias

    Informations forums :
    Inscription : décembre 2004
    Messages : 3 938
    Points : 7 522
    Points
    7 522

    Par défaut

    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.

Discussions similaires

  1. Script vbs pour ajouter une combo dans Excel
    Par xant dans le forum VBScript
    Réponses: 5
    Dernier message: 11/12/2008, 10h52
  2. Client : Script vbs pour taches périodiques
    Par bris dans le forum VBScript
    Réponses: 1
    Dernier message: 20/03/2007, 09h42
  3. [Script] Commande pour ajouter un favoris reseau
    Par Oui-Oui MB dans le forum Autres Logiciels
    Réponses: 5
    Dernier message: 07/03/2006, 14h42
  4. Script VBS pour copier "Mes documents"
    Par DiabloZizi dans le forum Windows
    Réponses: 1
    Dernier message: 06/03/2006, 22h49
  5. Script VBS pour connaitre taille d'une image
    Par fredoh dans le forum Windows
    Réponses: 2
    Dernier message: 24/02/2006, 14h27

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo