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 :

lecture de lignes sur une même position


Sujet :

VBScript

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Profil pro
    Inscrit en
    Février 2009
    Messages
    85
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : Février 2009
    Messages : 85
    Par défaut lecture de lignes sur une même position
    Bonjour,

    je souhaite modifier mon script en démarrant la lecture de chaque ligne sur la 5 eme position.


    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
    28
    29
    30
    31
    32
    33
     
    Const ForReading = 1, ForWriting = 2, ForAppending = 8 
    Dim fso, f , f1, f2
    Dim st ,st1
    Set objDictionary = CreateObject("Scripting.Dictionary")
    Set fso = CreateObject("Scripting.FileSystemObject")
     
    'test.txt est le fichier avec la totalité des ecritures
    Set f = fso.OpenTextFile("C:\test.txt", ForReading)
     
    'test1.txt est le fichier incomplet
    Set f1 = fso.OpenTextFile("C:\test1.txt", ForReading)
     
    'creation de test2.txt qui sera la difference des 2 fichiers
    Set f2 = fso.CreateTextFile("c:\test2.txt") 
    f2.Close
     
    ' je charge l'ensemble des lignes du fichier f1 dans une librairie
    Do Until f1.AtEndOfStream
    	ligne = f1.ReadLine
    	objDictionary.Add ligne, ligne
    Loop
    Set f2 = fso.OpenTextFile("c:\test2.txt", ForWriting)
    Do Until f.AtEndOfStream
        ligne = f.ReadLine
    'si je ne trouve pas les lignes de f dans la librairie je les copie dans f2 ainsi que les lignes de f1 non reconnues 
    	If Not objDictionary.Exists(ligne) Then
    		f2.WriteLine ligne
    	End If
    Loop
    f.Close
    f1.Close
    f2.Close
    Est-ce que je peux indiquer la position lorsque je lis la totalité de mon fichier?
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    ("C:\test.txt", ForReading)

  2. #2
    Membre chevronné Avatar de pitchalov
    Homme Profil pro
    Inscrit en
    Avril 2007
    Messages
    340
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 39
    Localisation : France

    Informations forums :
    Inscription : Avril 2007
    Messages : 340
    Par défaut
    Salut.

    En utilisant des fonctions de traitement de chaînes, ça devrait marcher :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    ...
    ligne = f1.ReadLine
    ligne = Right(ligne, Len(ligne) - 5)
    ...

  3. #3
    Membre confirmé
    Profil pro
    Inscrit en
    Février 2009
    Messages
    85
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : Février 2009
    Messages : 85
    Par défaut
    Non, message d'erreur!

    affectation de propriété incorrects: 'Right'

  4. #4
    Rédacteur
    Avatar de omen999
    Profil pro
    Inscrit en
    Février 2006
    Messages
    1 302
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2006
    Messages : 1 302
    Par défaut
    bonjour,
    Non, message d'erreur!
    vbscript couine quand l'argument length de la fonction Right est inférieur à 0
    donc :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    If Len(ligne)>4 Then ligne = Right(ligne, Len(ligne) - 5)
    nomen omen, nemo non omen - Consultez la FAQ VBScript et les cours et tutoriels VBScript
    le plus terrible lorsqu'une voiture renverse un piéton, c'est que ce sont les freins qui hurlent. (ramón)
    pas de questions techniques par mp

  5. #5
    Membre confirmé
    Profil pro
    Inscrit en
    Février 2009
    Messages
    85
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : Février 2009
    Messages : 85
    Par défaut
    Merci!

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [XL-2010] Copier/coller selon critère existant sur plusieurs lignes sur une même ligne
    Par Frs95 dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 18/12/2014, 17h32
  2. Retour à la ligne sur une même ligne de code
    Par Christ79 dans le forum VBA Access
    Réponses: 2
    Dernier message: 13/12/2013, 13h11
  3. Lecture et écriture sur une même socket ?
    Par nico_ayci dans le forum Réseau
    Réponses: 2
    Dernier message: 19/05/2008, 07h17
  4. Aligner du texte à gauche et à droite sur une même ligne ?
    Par pontus21 dans le forum Balisage (X)HTML et validation W3C
    Réponses: 5
    Dernier message: 12/04/2005, 11h25
  5. 2 éléments sur une même ligne
    Par ben_iap dans le forum Général JavaScript
    Réponses: 6
    Dernier message: 24/11/2004, 17h27

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