Discussion :

[rouletabille63]

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

[SfJ5Rpw8]

1 et 2 ) Comment lire le contenu d'un fichier texte ?

3 ) Comment déplacer un fichier ?


Nota: Comment utiliser les arguments en ligne de commande ?

[rouletabille63]

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