Récuperation nom et contenu de fichier texte

**garfield1701** · 29/01/2016, 10h04

Bonjour, je voudrais récupérer le nom et le contenu de plusieurs fichiers texte situé dans un même dossier et les coller dans un nouveau fichier texte.
j'arrive à récupérer tous le contenu des différents fichiers texte et les mettre dans un nouveau fichier texte avec la commande suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

for /r "C:\MonRep\" %%i in (*.txt) do for /f "delims=" %%j in ('type "%%i"') do echo %%j>> Resultat.txt

Est-il possible à partir du même fichier batch de récupérer le nom des fichiers et de les copier avant leur contenu?

Merci d'avance

François

**sachadee** · 29/01/2016, 19h53

Salut,

Ta question n'est pas très clair, mais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
@echo off&cls
set "$Path=C:\MonRep\"

for /f "delims=" %%a in ('dir /b /a-d "%$Path%"\*.txt') do (
   echo contenu de %%a :
   type %%a)

**garfield1701** · 01/02/2016, 11h48

Bonjour et merci pour ta réponse , mais j'ai essayé et celà ne marche pas. Que dois-je trouver?
Pour être plus précis dans ma demande, voilà ce que je voudrais faire :
Dans un repertoire, j'ai disons 3 fichiers texte nommés a.txt, b.txt et c.txt. Dans le fichier a.txt, j'ai 12345, dans le fichier b.txt, j'ai abcd et dans le fichier c.txt, j'ai ab12.
Je voudrais récupérer les noms de fichiers et leurs contenu dans un fichier resultat.txt. Je joins en pièce jointe la structure du fichier que je voudraids récupérer.

Merci encore

François

**hackoofr** · 01/02/2016, 16h54

Envoyé par garfield1701

Bonjour et merci pour ta réponse , mais j'ai essayé et celà ne marche pas. Que dois-je trouver?
Pour être plus précis dans ma demande, voilà ce que je voudrais faire :
Dans un repertoire, j'ai disons 3 fichiers texte nommés a.txt, b.txt et c.txt. Dans le fichier a.txt, j'ai 12345, dans le fichier b.txt, j'ai abcd et dans le fichier c.txt, j'ai ab12.
Je voudrais récupérer les noms de fichiers et leurs contenu dans un fichier resultat.txt. Je joins en pièce jointe la structure du fichier que je voudraids récupérer.

Merci encore

François

Solution in Vbscript

Code VB :

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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
Option Explicit
Dim LogFile,SourceFolder,objFSO,Ws
Set objFSO = CreateObject("Scripting.FileSystemObject")
LogFile = Left(Wscript.ScriptFullName,InstrRev(Wscript.ScriptFullName, ".")) & "txt"
if objFSO.FileExists(LogFile) Then 'Si le fichier LogFile existe 
    objFSO.DeleteFile LogFile 'alors on le supprime
end If
SourceFolder = Browse4Folder()
Call Scan4Folder(SourceFolder)
MsgBox "The script is finished by Hackoo !",VbInformation,"The script is finished by Hackoo !"
Set Ws = CreateObject("wscript.shell")
ws.run DblQuote(LogFile)
'**************************************************************************
Function Browse4Folder()
    Dim objShell,objFolder,Message
    Message = "Please select a folder "
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.BrowseForFolder(0,Message,0,0)
    If objFolder Is Nothing Then
        Wscript.Quit
    End If
    Browse4Folder = objFolder.self.path
End Function
'*********************************************************************
Function Scan4Folder(Folder)
    Dim fso,objFolder,File
    Dim Tab,aFile,FileName,Contenu,TXT_Copied
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set objFolder = fso.GetFolder(Folder)
    For Each File in objFolder.Files
        If UCase(fso.GetExtensionName(File)) = "TXT" And File.Size <> 0 Then
            FileName = File.Name'fso.GetBaseName(File)
            Contenu = ReadFile(File,"all") 
            TXT_Copied = TXT_Copied & DblQuote(FileName) & vbCrLf & Contenu & vbCrLf & vbCrLf
'Msgbox "The File " & DblQuote(FileName) & " is copied on " & vbCrLf &_
'DblQuote(Contenu),vbInformation,DblQuote(File)         
        End If  
    Next
    Call WriteFile(TXT_Copied,LogFile)
End Function
'*********************************************************************
Function DblQuote(Str)
    DblQuote = Chr(34) & Str & Chr(34)
End Function
'*********************************************************************
Function ReadFile(path,mode)
    Const ForReading = 1
    Dim objFSO,objFile,i,contents
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFile = objFSO.OpenTextFile(path,ForReading)
    If mode = "byline" then
        Dim arrFileLines()
        i = 0
        Do Until objFile.AtEndOfStream
            Redim Preserve arrFileLines(i)
            strLine = objFile.ReadLine
            strLine = Trim(strLine)
            If Len(strLine) > 0 Then
                arrFileLines(i) = strLine
                i = i + 1
                ReadFile = arrFileLines
            End If    
        Loop
        objFile.Close
    End If
    If mode = "all"  Then
        contents = objFile.ReadAll
        ReadFile = contents
        objFile.Close
    End If
End Function
'*****************************************************************
'Fonction pour écrire le résultat dans un fichier texte
Sub WriteFile(strText,LogFile)
    Dim fs,ts 
    Const ForAppending = 8
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set ts = fs.OpenTextFile(LogFile,ForAppending,True)
    ts.WriteLine strText
    ts.Close
End Sub
'*****************************************************************

**sachadee** · 01/02/2016, 17h14

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
@echo off
setlocal enabledelayedexpansion

(for %%a in (*.txt) do (
  echo %%~nxa
  for /f "delims=" %%b in (%%a) do echo %%b
  echo.
))>sortie.log

**garfield1701** · 02/02/2016, 08h27

Bonjour et merci,
hackoofr, j'ai essayé avec VB6 et lorsque je veux le tester,il me mets un message "Erreur de compilation", le curseur mets Set en surbrillance (3ème ligne) et j'ai la ligne "Dim Tab,aFile,FileName,Contenu,TXT_Copied" qui est en rouge.

sachadee, j'ai essayé, ça marche , mais peut-on supprimer dans le fichier log le texte

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
"D:\Public\test>(
echo a.txt  
 for /F "delims=" %b in (a.txt) do echo %b  
 echo.
) "

en début de fichier et avant chaque contenu de fichier (voir pièce jointe)

Merci encore à vous deux

**hackoofr** · 02/02/2016, 08h33

Envoyé par garfield1701

Bonjour et merci,
hackoofr, j'ai essayé avec VB6 et lorsque je veux le tester,il me mets un message "Erreur de compilation", le curseur mets Set en surbrillance (3ème ligne) et j'ai la ligne "Dim Tab,aFile,FileName,Contenu,TXT_Copied" qui est en rouge.

Copier et coller le code directement dans le notepad et enregistrer sous le nom hackoo.vbs puis exécuter le par double clic

**garfield1701** · 02/02/2016, 08h52

Merci hackoofr, nickel, par contre j'ai une autre question, peut-on directement dans le script renseigner le chemin d'accès au dossier que l'on veux lister (ex C:\Dataexports\notes).

Merci encore

François

**hackoofr** · 02/02/2016, 09h14

Envoyé par garfield1701

Merci hackoofr, nickel, par contre j'ai une autre question, peut-on directement dans le script renseigner le chemin d'accès au dossier que l'on veux lister (ex C:\Dataexports\notes).
Merci encore
François

Code vb :

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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
Option Explicit
Dim LogFile,SourceFolder,objFSO,Ws
Set objFSO = CreateObject("Scripting.FileSystemObject")
LogFile = Left(Wscript.ScriptFullName,InstrRev(Wscript.ScriptFullName, ".")) & "txt"
if objFSO.FileExists(LogFile) Then 'Si le fichier LogFile existe 
    objFSO.DeleteFile LogFile 'alors on le supprime
end If
SourceFolder = "C:\Dataexports\notes"
'msgbox SourceFolder
Call Scan4Folder(SourceFolder)
MsgBox "The script is finished by Hackoo !",VbInformation,"The script is finished by Hackoo !"
Set Ws = CreateObject("wscript.shell")
ws.run DblQuote(LogFile)
'**************************************************************************
Function Browse4Folder()
    Dim objShell,objFolder,Message
    Message = "Please select a folder "
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.BrowseForFolder(0,Message,0,0)
    If objFolder Is Nothing Then
        Wscript.Quit
    End If
    Browse4Folder = objFolder.self.path
End Function
'*********************************************************************
Function Scan4Folder(Folder)
    Dim fso,objFolder,File
    Dim Tab,aFile,FileName,Contenu,TXT_Copied
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set objFolder = fso.GetFolder(Folder)
    For Each File in objFolder.Files
        If UCase(fso.GetExtensionName(File)) = "TXT" And File.Size <> 0 Then
            FileName = File.Name'fso.GetBaseName(File)
            Contenu = ReadFile(File,"all") 
            TXT_Copied = TXT_Copied & DblQuote(FileName) & vbCrLf & Contenu & vbCrLf & vbCrLf
'Msgbox "The File " & DblQuote(FileName) & " is copied on " & vbCrLf &_
'DblQuote(Contenu),vbInformation,DblQuote(File)         
        End If  
    Next
    Call WriteFile(TXT_Copied,LogFile)
End Function
'*********************************************************************
Function DblQuote(Str)
    DblQuote = Chr(34) & Str & Chr(34)
End Function
'*********************************************************************
Function ReadFile(path,mode)
    Const ForReading = 1
    Dim objFSO,objFile,i,contents
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFile = objFSO.OpenTextFile(path,ForReading)
    If mode = "byline" then
        Dim arrFileLines()
        i = 0
        Do Until objFile.AtEndOfStream
            Redim Preserve arrFileLines(i)
            strLine = objFile.ReadLine
            strLine = Trim(strLine)
            If Len(strLine) > 0 Then
                arrFileLines(i) = strLine
                i = i + 1
                ReadFile = arrFileLines
            End If    
        Loop
        objFile.Close
    End If
    If mode = "all"  Then
        contents = objFile.ReadAll
        ReadFile = contents
        objFile.Close
    End If
End Function
'*****************************************************************
'Fonction pour écrire le résultat dans un fichier texte
Sub WriteFile(strText,LogFile)
    Dim fs,ts 
    Const ForAppending = 8
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set ts = fs.OpenTextFile(LogFile,ForAppending,True)
    ts.WriteLine strText
    ts.Close
End Sub
'*****************************************************************

**garfield1701** · 02/02/2016, 10h51

Encore Merci hackoofr, c'est exactement ce don't j'avais besoin.

Bonne journée

François

**sachadee** · 02/02/2016, 12h09

Salut,

j'ai effectivement oublié le

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

@echo off

En début de code

**hackoofr** · 02/02/2016, 12h15

Envoyé par garfield1701

Encore Merci hackoofr, c'est exactement ce don't j'avais besoin.
Bonne journée
François

Tant mieux pour vous

N'oubliez pas de marquer cette discussion comme

Bonne journée

**hackoofr** · 02/02/2016, 14h10

Juste une petite mise en forme de la solution de Sacha

+1

Code BAT :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
@echo off
Title Recuperation nom et contenu de fichier texte by Sacha
mode con:cols=60 lines=2 & COLOR 0b
echo        Veuillez patienter un peu traitement en cours ...
setlocal enabledelayedexpansion
(for %%a in (*.txt) do (echo "%%~nxa"
        for /f "delims=" %%b in ('Type "%%a"') do echo %%b
        echo.)
)>sortie.log
start "" sortie.log

**garfield1701** · 02/02/2016, 17h14

Merci hackoofr, la j'ai l'embarras du choix!!
Merci encore

**garfield1701** · 08/02/2016, 16h04

Je reviens vers vous car à l'usage j'aimerais une petite amelioration. J'utilise le vbs de hackoofr et je voudrais savoir si il est possible d'exclure de la recherché un fichier précis (liste.txt)

Merci d'avance

François

**hackoofr** · 08/02/2016, 16h44

Envoyé par garfield1701

Je reviens vers vous car à l'usage j'aimerais une petite amelioration. J'utilise le vbs de hackoofr et je voudrais savoir s'il est possible d'exclure de la recherché un fichier précis (liste.txt)
Merci d'avance
François

Code vb :

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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
Option Explicit
Dim LogFile,SourceFolder,objFSO,Ws
Set objFSO = CreateObject("Scripting.FileSystemObject")
LogFile = Left(Wscript.ScriptFullName,InstrRev(Wscript.ScriptFullName, ".")) & "txt"
if objFSO.FileExists(LogFile) Then 'Si le fichier LogFile existe 
    objFSO.DeleteFile LogFile 'alors on le supprime
end If
SourceFolder = "C:\Dataexports\notes"
'msgbox SourceFolder
Call Scan4Folder(SourceFolder)
MsgBox "The script is finished by Hackoo !",VbInformation,"The script is finished by Hackoo !"
Set Ws = CreateObject("wscript.shell")
ws.run DblQuote(LogFile)
'**************************************************************************
Function Browse4Folder()
    Dim objShell,objFolder,Message
    Message = "Please select a folder "
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.BrowseForFolder(0,Message,0,0)
    If objFolder Is Nothing Then
        Wscript.Quit
    End If
    Browse4Folder = objFolder.self.path
End Function
'*********************************************************************
Function Scan4Folder(Folder)
    Dim fso,objFolder,File,Excluded_File
    Dim Tab,aFile,FileName,Contenu,TXT_Copied
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set objFolder = fso.GetFolder(Folder)
    Excluded_File = "liste.txt"
    For Each File in objFolder.Files
        If LCase(fso.GetExtensionName(File)) = "txt" And File.Name <> Excluded_File And File.Size <> 0 Then
            FileName = File.Name
            Contenu = ReadFile(File,"all") 
            TXT_Copied = TXT_Copied & DblQuote(FileName) & vbCrLf & Contenu & vbCrLf & vbCrLf
'Msgbox "The File " & DblQuote(FileName) & " is copied on " & vbCrLf &_
'DblQuote(Contenu),vbInformation,DblQuote(File)         
        End If  
    Next
    Call WriteFile(TXT_Copied,LogFile)
End Function
'*********************************************************************
Function DblQuote(Str)
    DblQuote = Chr(34) & Str & Chr(34)
End Function
'*********************************************************************
Function ReadFile(path,mode)
    Const ForReading = 1
    Dim objFSO,objFile,i,contents
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFile = objFSO.OpenTextFile(path,ForReading,-2)
    If mode = "byline" then
        Dim arrFileLines()
        i = 0
        Do Until objFile.AtEndOfStream
            Redim Preserve arrFileLines(i)
            strLine = objFile.ReadLine
            strLine = Trim(strLine)
            If Len(strLine) > 0 Then
                arrFileLines(i) = strLine
                i = i + 1
                ReadFile = arrFileLines
            End If    
        Loop
        objFile.Close
    End If
    If mode = "all"  Then
        contents = objFile.ReadAll
        ReadFile = contents
        objFile.Close
    End If
End Function
'*****************************************************************
'Fonction pour écrire le résultat dans un fichier texte
Sub WriteFile(strText,LogFile)
    Dim fs,ts 
    Const ForAppending = 8
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set ts = fs.OpenTextFile(LogFile,ForAppending,True,-1)
    ts.WriteLine strText
    ts.Close
End Sub
'*****************************************************************