IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBScript Discussion :

[VBS]Ecrire à la fin d'une ligne


Sujet :

VBScript

  1. #1
    Nouveau membre du Club
    Inscrit en
    Mars 2009
    Messages
    52
    Détails du profil
    Informations forums :
    Inscription : Mars 2009
    Messages : 52
    Points : 38
    Points
    38
    Par défaut [VBS]Ecrire à la fin d'une ligne
    Bonjour,

    Bonne et heureuse année à tous.

    Je me permets de vous faire part d'un petit soucis que je n'arrive pas à résoudre même avec maintes recherches sur internet.

    J'ai un fichier de 9435 lignes dans lequel je dois ajouter à la fin de chaque ligne 1 caractère. Ne voulant pas le faire ligne par ligne, je voulais faire un petit script qui le ferait à ma place.

    Mon problème :
    - Je sais écrire à la fin d'un fichier
    - Je sais remplacer une chaîne de caractère dans un fichier
    - Je sais lire un fichier

    Mais je ne sais pas comment écrire à la fin d'une ligne.

    Je vous remercie par avance pour votre aide.

  2. #2
    Membre actif
    Homme Profil pro
    retraité
    Inscrit en
    Juillet 2011
    Messages
    380
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 78
    Localisation : France, Pas de Calais (Nord Pas de Calais)

    Informations professionnelles :
    Activité : retraité

    Informations forums :
    Inscription : Juillet 2011
    Messages : 380
    Points : 247
    Points
    247
    Par défaut
    Bonjour
    A mon avis il faut lire le fichier ligne par ligne; ajouter le caractère et écrire dans un autre fichier.
    Windows 10
    Microsoft Edge (64 bits)
    Google Chrome Version 67.0.3396.99 (Build officiel) (64 bits)

  3. #3
    Nouveau membre du Club
    Inscrit en
    Mars 2009
    Messages
    52
    Détails du profil
    Informations forums :
    Inscription : Mars 2009
    Messages : 52
    Points : 38
    Points
    38
    Par défaut
    C'est ce qu'il m'avait semblé être la seule solution.

    Je vais donc m'orienter vers ça.

    Merci d'avoir répondu.

  4. #4
    Membre actif
    Homme Profil pro
    retraité
    Inscrit en
    Juillet 2011
    Messages
    380
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 78
    Localisation : France, Pas de Calais (Nord Pas de Calais)

    Informations professionnelles :
    Activité : retraité

    Informations forums :
    Inscription : Juillet 2011
    Messages : 380
    Points : 247
    Points
    247
    Par défaut
    je vous propose ce qui suit :
    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
    26
    27
      const  ficlu    = "ficlu.txt"
      const  ficecrit = "fnouv.txt"
      const  carac    = "*" '       caractère à mettre en bout de ligne
     
     Set        oFso = CreateObject("Scripting.FileSystemObject")
         if not ofso.fileexists(ficlu) then _
                msgbox "fichier non trouvé",, ficlu : wscript.quit
     
    Const ForReading    = 1
    const ForWriting    = 2
    Const TristateTrue  = -1     ' Unicode
     
       Set fs   = oFso.OpenTextFile(ficecrit,ForWriting,true)
     
                     fic= oFSO.GetFile(ficlu).path
      Set fl = oFso.OpenTextFile(fic,ForReading, TristateTrue)
     
      while Not fl.AtEndOfStream
         lig = fl.readline
                fs.writeline (lig & carac)
      Wend
      fl.Close  : fs.close
     
      '     renommer les fichiers
                 f= left(ficlu,len(ficlu)-3) & "bak"
                 ofso.movefile  ficlu, f
                 ofso.movefile  ficecrit, ficlu
    à vous de voir
    Windows 10
    Microsoft Edge (64 bits)
    Google Chrome Version 67.0.3396.99 (Build officiel) (64 bits)

  5. #5
    Nouveau membre du Club
    Inscrit en
    Mars 2009
    Messages
    52
    Détails du profil
    Informations forums :
    Inscription : Mars 2009
    Messages : 52
    Points : 38
    Points
    38
    Par défaut
    Merci papyxy,

    Pour ça j'avais le code (qui ressemble à peut prêt au tien).

    Bonne journée

  6. #6
    Membre actif
    Homme Profil pro
    retraité
    Inscrit en
    Juillet 2011
    Messages
    380
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 78
    Localisation : France, Pas de Calais (Nord Pas de Calais)

    Informations professionnelles :
    Activité : retraité

    Informations forums :
    Inscription : Juillet 2011
    Messages : 380
    Points : 247
    Points
    247
    Par défaut
    faut mettre "résolu" si vous avez eu satisfaction.
    Windows 10
    Microsoft Edge (64 bits)
    Google Chrome Version 67.0.3396.99 (Build officiel) (64 bits)

Discussions similaires

  1. script shell ecrire à la fin d'une ligne d'un fichier
    Par patricx dans le forum Shell et commandes GNU
    Réponses: 2
    Dernier message: 17/02/2012, 00h11
  2. Ecrire a la fin d'une ligne d'un fichier .txt
    Par Vince_14 dans le forum LabVIEW
    Réponses: 5
    Dernier message: 02/05/2011, 20h45
  3. Ecrire à la fin d'une ligne *antérieure* à la fin d'un fichier
    Par samsap31 dans le forum Entrée/Sortie
    Réponses: 8
    Dernier message: 07/08/2007, 18h51
  4. Comment détecter la fin d'une ligne en C ?
    Par radouane_as dans le forum Débuter
    Réponses: 10
    Dernier message: 08/06/2007, 19h13
  5. ecrire a la fin d'une ligne d'un fichier
    Par warubi dans le forum C++
    Réponses: 6
    Dernier message: 08/02/2007, 17h12

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