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

  1. #1
    Candidat au Club
    Profil pro
    Inscrit en
    septembre 2005
    Messages
    2
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : septembre 2005
    Messages : 2
    Points : 2
    Points
    2

    Par défaut Ecrire à une ligne specifique dans un fichier

    Bonjour,

    Voici mon script rédigé en VBS. il génère un fichier csv, contenant plusieurs champs séparés par les points virgules.

    Comment peut on écrire à une ligne spécifique d'un fichier?

    Je souhaite positionner (OutPutFile.Write ouser.givenName & ";") à la 5eme ligne de mon fichier.
    Merci pour votre aide.
    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
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    Dim oContainer
    Dim OutPutFile
    Dim OutPutFileLog
    Dim FileSystem 
    Dim PropArray 
    Dim entete,ouser
    'On ERROR RESUME NEXT
     
    Server = "localhost"
    Port = "389"
    Instance = "Annuaire"
    OU =  "OU=Ut,OU=personnes"
    OU2 =  "OU=bureau"
    'Initilisation des variables globales
    Set FileSystem 		= WScript.CreateObject("Scripting.FileSystemObject")
    Set OutPutFile 		= FileSystem.CreateTextFile("C:\Perso\Utilisateurs.csv", True)
    set oContainer=GetObject("LDAP://" & Server & ":" & Port & "/" & OU & ",CN=" & Instance & ",dc=workgroup")
    set oConAgence=GetObject("LDAP://" & Server & ":" & Port & "/" & OU2 & ",CN=" & Instance & ",dc=workgroup")
     
     
    exportUsers oContainer,oConAgence
     
    OutPutFile.Close
    'OutPutFileLog.Close
    Set FileSystem = Nothing
    Set oContainer = Nothing
     
    WScript.Echo "Finished"
    WScript.Quit(0) 
     
    function exportUsers (oContainer,oConAgence)
    'Dim tabStr
    'tabstr=Split(entete, ";")
     
     
    	On Error resume next
     
    	'Wscript.Echo oCont.Class
    	'oCont.filter = Array("user")
    	For Each ouser In oContainer
    		wscript.echo ouser.name
     
    			OutPutFile.Write   ouser.cn & ";"
                            OutPutFile.Write  ouser.sn & ";"
                            OutPutFile.Write  ouser.givenName & ";"
                            OutPutFile.writeLine  oUser.title 
    Next
     
    	OutPutFile.WriteLine
     
    End function

  2. #2
    Modérateur
    Avatar de l_autodidacte
    Homme Profil pro
    Retraité : Directeur de lycée/Professeur de sciences physiques
    Inscrit en
    juillet 2009
    Messages
    2 273
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 64
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Retraité : Directeur de lycée/Professeur de sciences physiques
    Secteur : Enseignement

    Informations forums :
    Inscription : juillet 2009
    Messages : 2 273
    Points : 5 385
    Points
    5 385

    Par défaut

    L'idée peut être ICI
    Ne pas oublier le tag si satisfait.
    Voter pour toute réponse satisfaisante avec pour encourager les intervenants.
    Balises CODE indispensables. Regardez ICI
    Toujours utiliser la clause Option Explicit(VBx, VBS ou VBA) et Ne jamais typer variables et/ou fonctions en VBS.
    Vous pouvez consulter mes contributions
    Ne pas oublier de consulter les différentes FAQs et les Cours/Tutoriels VB6/VBScript
    Ne pas oublier L'Aide VBScript et MSDN VB6 Fr

Discussions similaires

  1. [Débutant] Ecrire à une ligne précise dans un fichier texte
    Par Oromis56 dans le forum VB.NET
    Réponses: 4
    Dernier message: 13/04/2015, 17h49
  2. supprimer une ligne spécifié dans un fichier
    Par ouadie99 dans le forum Général Dotnet
    Réponses: 2
    Dernier message: 15/03/2008, 15h25
  3. Ecrire à une ligne précise dans un fichier
    Par Valkirion dans le forum Langage
    Réponses: 3
    Dernier message: 27/03/2007, 15h18
  4. ecrire une touche directionnelle dans un fichier excel
    Par aA189 dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 06/08/2006, 20h41
  5. Réponses: 6
    Dernier message: 04/03/2004, 09h35

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