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 :

Comment ouvrir et renommer un fichier texte


Sujet :

VBScript

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Profil pro
    Inscrit en
    Mai 2009
    Messages
    99
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mai 2009
    Messages : 99
    Par défaut Comment ouvrir et renommer un fichier texte
    Bonsoir à tous
    étant novice en VBS je cherche à savoir comment on peut renommer un fichier texte avec une partie de ce nom à l'intétieur du fichier. Voici avec à travers un exemple exposé mon problème
    Exemple un fichier arrive dans le répertoire C:\temp et dont je ne connais pas le nom exact dudit fichier l’exemple FIC_123.TXT
    Dans le répertoire c:\temp\
    Nous avons donc :
    Nom fichier :
    FIC_123.TXT
    Contenu du fichier :
    RBC9ZCD090GG
    RBC9ZCD100AA

    Je voudrais faire un script en VBS qui
    1)Ouvre le fichier FIC_123.TXT
    2)Récupère la chaine de caractères « 9ZCD »
    3)Renomme le fichier FIC_123.TXT en FIC_9ZCD.TXT

    Nota : Il faut aussi paramétrer le nom fichier car demain ce fichier pourrait se nommer FIC_9999.TXT

    vous remerciant par avance
    Je vous souhaite une bonne soirée

  2. #2
    Expert éminent


    Profil pro
    Inscrit en
    Juin 2003
    Messages
    14 008
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2003
    Messages : 14 008

  3. #3
    Membre confirmé
    Profil pro
    Inscrit en
    Mai 2009
    Messages
    99
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mai 2009
    Messages : 99
    Par défaut
    Bonjour à tous,
    tout d'abord un grand merci à bbil pour sa réponse qui m'a mis sur la voie, voici le script complet :
    ------------------------
    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
     Dim fs, f, sf, f1, s, lFicSou, lFicDest, ldir
        ldir = "D:\temp\test"
        Set fs = CreateObject("Scripting.FileSystemObject")
        Set f = fs.GetFolder(ldir)
        Set sf = f.Files    
     
        For Each f1 In sf
     
            If Mid(f1.Name, 1, 3) = "FIC" Then
    MsgBox f1.Name
     
        Set of = fs.OpenTextFile(f1.Path)
            lFicSou = ldir & "\" & f1.Name
            lFicDest = ldir & "\FIC_" & Mid(of.Readline, 4, 4) & ".dat"    
     
            While Not of.AtEndOfStream
            MsgBox of.readline
            Wend
     
            s = s & f1.Name
            s = s & vbCrLf
     
                fs.CopyFile lFicSou, lFicDest
                Fso.DeleteFile lFicSou
          of.Close
     
          End If
          Next
     
        MsgBox s
    ---------------------------
    A ceux qui démarrent une précision il est possible avec "Access" de dérouler le script en mode pas à pas ce qui facilite la compréhension du script surtout si comme moi vous débutez, ce qui explique mes questions questions basics.
    Encore merci et bonne soirée
    Sujet résolu

Discussions similaires

  1. Comment en VBA modifier un fichier texte sans l'ouvrir dans Excel ?
    Par shadok6 dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 31/10/2008, 13h54
  2. Comment ouvrir et modifier un fichier html ?
    Par babeu dans le forum Framework .NET
    Réponses: 2
    Dernier message: 06/11/2006, 09h45
  3. [VS.NET]Comment ouvrir un explorateur de fichier?
    Par batosai dans le forum Visual Studio
    Réponses: 5
    Dernier message: 19/10/2006, 14h16
  4. [VB.NET]comment écrire/lire dans un fichier text
    Par zouhib dans le forum Windows Forms
    Réponses: 1
    Dernier message: 19/05/2006, 17h11
  5. Réponses: 4
    Dernier message: 06/01/2006, 19h13

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