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

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Inscrit en
    Mars 2009
    Messages
    54
    Détails du profil
    Informations forums :
    Inscription : Mars 2009
    Messages : 54
    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 éclairé
    Homme Profil pro
    retraité
    Inscrit en
    Juillet 2011
    Messages
    386
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 80
    Localisation : France, Pas de Calais (Nord Pas de Calais)

    Informations professionnelles :
    Activité : retraité

    Informations forums :
    Inscription : Juillet 2011
    Messages : 386
    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.

  3. #3
    Membre averti
    Inscrit en
    Mars 2009
    Messages
    54
    Détails du profil
    Informations forums :
    Inscription : Mars 2009
    Messages : 54
    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 éclairé
    Homme Profil pro
    retraité
    Inscrit en
    Juillet 2011
    Messages
    386
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 80
    Localisation : France, Pas de Calais (Nord Pas de Calais)

    Informations professionnelles :
    Activité : retraité

    Informations forums :
    Inscription : Juillet 2011
    Messages : 386
    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

  5. #5
    Membre averti
    Inscrit en
    Mars 2009
    Messages
    54
    Détails du profil
    Informations forums :
    Inscription : Mars 2009
    Messages : 54
    Par défaut
    Merci papyxy,

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

    Bonne journée

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

    Informations professionnelles :
    Activité : retraité

    Informations forums :
    Inscription : Juillet 2011
    Messages : 386
    Par défaut
    faut mettre "résolu" si vous avez eu satisfaction.

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: 16/02/2012, 23h11
  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, 19h45
  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, 17h51
  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, 18h13
  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, 16h12

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