récupérer les 2 premières lignes de plusieurs fichiers txt et écrire le résultat dans une autre txt

**samsam007** · 02/02/2018, 10h34

Bonjour le forum,

Je commence par dire que mes notions en batch sont très très faibles..
Pour me faciliter la vie dans mon boulot, il faudrait que je puisse lancer un script qui va venir me récupérer les 2 premières lignes de plusieurs fichiers txt (tous dans le même répertoire) (le nombre de txt n'est pas fixe...) et me liste celles-ci dans un autre fichier txt intitulé par exemple bilan.txt
Est-ce possible? Si oui comment?

Merci d'avance pour vos réponses

**hackoofr** · 02/02/2018, 13h37

Fichier batch à tester

Code Batch :

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
@echo off
mode 80,3 & color 0A
Title Read 2 lines from each text files and save result in one file
set "TmpOutPutFile=%Tmp%\Bilan.txt"
set "OutPutFile=%~dp0Bilan.txt"
If exist "%TmpOutPutFile%" Del "%TmpOutPutFile%"
If exist "%OutPutFile%" Del "%OutPutFile%"
For /r %%f in (*.txt) do (
    Call :ShowAction "%%~nxf"
    Call :Write_N_Lines "%%f" 2 "%TmpOutPutFile%"
)
If Exist "%TmpOutPutFile%" ( Copy "%TmpOutPutFile%" "%OutPutFile%" >nul & Del "%TmpOutPutFile%" )
Start "" "%OutPutFile%" & exit
::*********************************************************************************
:Write_N_Lines <InputFile> <N Lines> <OutPutFile>
REM %1 Represente le fichier d'entrée qu'on va lire
REM %2 Represente le nombre de lignes qui doivent être lues à partir du fichier %1
REM %3 Represente le fichier de sortie
set /a "compteur=0"
setlocal enabledelayedexpansion
for /f "delims=" %%i in ('Type %1') do (
::compteur d'incrémentation pour chaque ligne lue
  set /a "compteur+=1"
:: Si le compteur est inferieur ou égale au nombre de lignes lues 
REM alors on l'écrit dans le fichier de sortie %3
  if !compteur! LEQ %2 ( echo %%i )>> %3
)
Goto :Eof
::*********************************************************************************
:ShowAction
Cls
echo(
echo    Lire les 2 premiers lignes du fichier %1
Timeout /T 1 /nobreak>nul
exit /b
::*********************************************************************************

**samsam007** · 02/02/2018, 13h48

Bjr hackoofr,

Merci pour le retour!!
Par contre je ne suis pas sûr de bien comprendre. J'ai enregistré le code en .bat. J'ai ensuite mis le bat dans le répertoire qui contient l'ensemble de mes fichiers txt.
J'ai lancé le script mais je ne pense pas que cela fonctionne??
Dois-je modifier certaine ligne?
Ce script est bien prévu pour lire les 2 premières lignes de x fichiers txt dans un répertoire??
Et d'écrire le résultat dans un fichier txt.

merci

**hackoofr** · 02/02/2018, 13h58

Chez moi ça marche bien

C'est quoi le nom que vous avez enregistré ce batch ?

**samsam007** · 02/02/2018, 14h05

tri.bat ?

**samsam007** · 02/02/2018, 14h08

chez moi j'ai un dossier avec x fichiers TXT qui sont nommés via une succession de chiffres.
il faudrait que le script ouvre chaque fichier....lise les 2 premières lignes et copie le contenu de celles-ci dans un fichier TXT (bilan par exemple)

**hackoofr** · 02/02/2018, 14h24

Envoyé par samsam007

chez moi j'ai un dossier avec x fichiers TXT qui sont nommés via une succession de chiffres.
il faudrait que le script ouvre chaque fichier....lise les 2 premières lignes et copie le contenu de celles-ci dans un fichier TXT (bilan par exemple)

Vérifiez bien si ces fichiers ont le .txt comme extension
Essayez de nouveau ce batch :

Code Batch :

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
@echo off
mode 80,3 & color 0A
Title Read 2 lines from each text files and save result in one file
set "TmpOutPutFile=%Tmp%\Bilan.txt"
set "OutPutFile=%~dp0Bilan.txt"
If exist "%TmpOutPutFile%" Del "%TmpOutPutFile%"
If exist "%OutPutFile%" Del "%OutPutFile%"
For %%f in (*.txt) do (
    Call :ShowAction "%%~nxf"
    Call :Write_N_Lines "%%f" 2 "%TmpOutPutFile%"
)
If Exist "%TmpOutPutFile%" ( Copy "%TmpOutPutFile%" "%OutPutFile%" >nul & Del "%TmpOutPutFile%" )
Start "" "%OutPutFile%" & exit
::*********************************************************************************
:Write_N_Lines <InputFile> <N Lines> <OutPutFile>
REM %1 Represente le fichier d'entrée qu'on va lire
REM %2 Represente le nombre de lignes qui doivent être lues à partir du fichier %1
REM %3 Represente le fichier de sortie
set /a "compteur=0"
setlocal enabledelayedexpansion
for /f "delims=" %%i in ('Type %1') do (
::compteur d'incrémentation pour chaque ligne lue
  set /a "compteur+=1"
:: Si le compteur est inferieur ou égale au nombre de lignes lues 
REM alors on l'écrit dans le fichier de sortie %3
  if !compteur! LEQ %2 ( echo %%i )>> %3
)
Goto :Eof
::*********************************************************************************
:ShowAction
Cls
echo(
echo    Lire les 2 premiers lignes du fichier %1
rem Timeout /T 1 /nobreak>nul
exit /b
::*********************************************************************************

**samsam007** · 02/02/2018, 14h47

Voilà à quoi ressemble mon dossier :

Nom : Printecran-1.jpg
Affichages : 1458
Taille : 238,5 Ko

J'ai inséré le .bat au même niveau et que je le lance il lit bien des choses mais pas le contenu de ses fichiers TXT.
Mes fichiers portent bien l'extension (.txt)

Merci

**sachadee** · 02/02/2018, 15h04

Salut,

Voici une solution qui va récuperer les 2 premières lignes sans lire tous le fichier
pour optimiser le temp de traitement.

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
::By SachaDee - 2018

@echo off
setlocal enabledelayedexpansion

(for %%a in (*.txt) do (
  (set /p line1=
   set /p line2=)<"%%a"
   echo !line1! 
   echo !line2!
 )
)>bilan.out

endlocal
echo Done !!!
pause

Resultat dans bilan.out

Simple et rapide !!!

**samsam007** · 02/02/2018, 15h15

salut sachadee,

Merci pour la réponse mais cela ne fonctionne pas??
J'ai crée un fichier .bat avec ton code. j'ai placé celui-ci dans le même répertoire que mes fichiers TXT.
Le batch se lance, je valide en appuyant sur une touche puis rien....??

**hackoofr** · 02/02/2018, 15h19

Peut-être un problème d'encodage de fichier ?
Ouvrez un de ces fichiers texte avec notepad++ et donnez nous le type d'encodage de ce fichier, sinon envoyer nous un fichier txt par pièce-jointe

**sachadee** · 02/02/2018, 15h45

Tu as regardé si le fichier bilan.out est créer ????

**samsam007** · 02/02/2018, 15h49

les fichiers txt sont encodés en ANSI (via notepad++)
heu.... non le fichier le fichier bilan.out n'est même pas créer... j'ai essayé de le faire manuellement mais il reste vide??

**sachadee** · 02/02/2018, 15h53

essaye ça :

Code :

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

1
2
3
@echo off
for %%a in (*.txt) do echo %%a
pause

et dis-moi si ça te liste bien tous les fichier !

**samsam007** · 02/02/2018, 16h01

heu.... non pas de listing de tous mes fichiers?? mais pourquoi??

**hackoofr** · 02/02/2018, 16h10

Essayez avec ce vbscript et changer juste le chemin de cette variable MasterFolderPath et dis-moi le résultat :

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
Option Explicit
Dim MasterFolderPath,fso,File,Folder,ws,LogFile
MasterFolderPath = "C:\Users\Hackoo\Desktop\Hackoo\" '<===== Changer juste cette ligne à la votre
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(MasterFolderPath)
Set ws = CreateObject("Wscript.Shell")
LogFile = "Bilan.txt"
if fso.FileExists(LogFile) Then
    fso.DeleteFile LogFile
end If
for each file in folder.Files
    if Lcase(fso.getExtensionName(file.path)) = "txt" then
        Call WriteLog(ExtractLinesFromTextFile(file,1,2),LogFile)
    end if
Next
ws.run LogFile
'*********************************************************************************************************
Public Function ExtractLinesFromTextFile(ByRef TextFile, ByRef FromLine, ByRef ToLine) '<-- Inclusive
    If FromLine <= ToLine Then
        With CreateObject("Scripting.FileSystemObject").OpenTextFile(TextFile)
            Do Until .Line = FromLine Or .AtEndOfStream
                .SkipLine
            Loop
            Do Until .Line > ToLine Or .AtEndOfStream
                ExtractLinesFromTextFile = ExtractLinesFromTextFile & (.ReadLine & vbNewLine)
            Loop
        End With
    Else
        wscript.echo "erreur de depassement de lignes", vbCritical, "erreur de depassement de lignes"
    End If
End Function
'*********************************************************************************************************
Sub WriteLog(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
'*********************************************************************************************************

**sachadee** · 02/02/2018, 16h12

Tu mets bien le fichiers .bat dans le dossier oú se trouve les fichier .txt ?

**samsam007** · 02/02/2018, 16h22

@sachadee : oui oui le bat est bien dans le même répertoire que les TXT.
Les fichiers sont sur un serveur local... cela ne perturbe en rien le script??

@hackoofr :
AHHHHHH..... votre code fonctionne !!!!!

SUPER
Juste un petit bug sur la dernière lecture ^^?? (cf.image ci-dessous)

Nom : Printecran-1.jpg
Affichages : 1744
Taille : 14,6 Ko

**hackoofr** · 02/02/2018, 17h03

Envoyé par samsam007

Juste un petit bug sur la dernière lecture ^^?? (cf.image ci-dessous)
Nom : Printecran-1.jpg
Affichages : 1744
Taille : 14,6 Ko

C'est un problème d'encodage de fichier qui vient de ce (BOM = Byte Order Mark)
En français signifie Indicateur d'ordre des octets
C'est pourquoi je t'ai demandé de m'envoyer quelques fichiers pour vérifier leurs encodage

**hackoofr** · 02/02/2018, 18h42

Voici un vbscript qui detecte si le fichier est en unicode ou non

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
Option Explicit
Dim fso,MasterFolderPath,file,folder,ws,LogFile
set fso = CreateObject("Scripting.FileSystemObject")
MasterFolderPath = "C:\Users\Hackoo\Desktop\Hackoo\" '<===== Changer juste cette ligne à la votre
Set folder = fso.GetFolder(MasterFolderPath)
Set ws = CreateObject("Wscript.Shell")
LogFile = "Detect_Unicode_Files.txt"
if fso.FileExists(LogFile) Then
    fso.DeleteFile LogFile
end If
for each file in folder.Files
    if Lcase(fso.getExtensionName(file.path)) = "txt" then
        Call WriteLog(File & " ===> " & Detect_Unicode(File) & vbcrlf & String(70,"*"),LogFile)
    end if
Next
ws.run LogFile
wscript.Quit()
'************************************************************
'Function to detect Unicode Files
Function Detect_Unicode(FileName)
Dim fso,stream,intAsc1Chr,intAsc2Chr
set fso = CreateObject("Scripting.FileSystemObject")
Set Stream = FSO.OpenTextFile(FileName, 1, False)
intAsc1Chr = Asc(Stream.Read(1))
intAsc2Chr = Asc(Stream.Read(1))
Stream.Close
If intAsc1Chr = 255 And intAsc2Chr = 254 Then 
    Detect_Unicode  = True
Else
    Detect_Unicode  = False
End If
End Function
'************************************************************
Sub WriteLog(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
'************************************************************

récupérer les 2 premières lignes de plusieurs fichiers txt et écrire le résultat dans une autre txt [Batch]

Scripts/Batch

Discussions similaires

Partager

Partager