Concatenate TXT files

Question

Hello everyone,

I would like to concatenate the content of several TXT files into a single TXT or XLS file...

However, the problem arises (because I have already managed to do this with the Concat14fr software) that each line of the summary file should include the name of the original file!

Is this possible?

Thank you in advance

Angy

Configuration: Windows

cricri · Accepted Answer

Hello,  Arnaud's solution works very well for me, but using \ instead of /. That is to say in your case: opy mydirectory\* merge.txt  good luck

Aki · Answer

Hi,  It would be helpful to specify in which language you want to do this.  Have a nice weekend.

Zebechamel · Answer

If you have Linux, I can make you a small script that can both concatenate your text files and change the file name. @+

random · Answer

dos does this very well you put your files in a directory you write a batch dir >recap1.txt then copy recap1.txt+fic1.txt...+ficn.txt recap.txt del recap1.txt  -- isn't life beautiful?

Ravachol · Answer

Hi, Here’s a small script for GNU/Linux. As recommended by random, create a file containing the names of your text files, assuming they are all placed in the same directory, you can do: ls *.txt > list.txt, for example. Then from this same directory, you run the script like this: ./concat list.txt recap.txt Script code: #!/bin/bash # Usage ./concat FileList RecapFile # Set the carriage return as the only separator during expansion IFS=$'
' # Process the files contained in the first argument of the command line for File in `cat $1` do # Process the lines for each file for Line in `cat $File` do # Concatenation into the file passed as the second argument echo $Line $File >> $2 done done I tested it on about ten files, each with about a hundred lines, and it works.  See you later -- Man is not made for work, and the proof is that it tires him. Tristan Bernard

random · Answer

try this

Function file(x As String)

Dim dd As Variant
Dim line As String
Open "c:\@mydocs\resu.txt" For Output As #2
On Error GoTo errorHandler
ChDir x
dd = Dir(x & "\*.txt")

Do Until dd = ""

Open dd For Input As #1
Do While Not EOF(1)
Input #1, line
Write #2, line & " " & dd
Loop
Close #1
dd = Dir
Loop
errorHandler:
Close #2

End Function
you call your function in vba
print file(directory for example "c:\machin\chouette")
before you create a directory
c:\@mydocs\
at the end in this directory you will find your file named resul

residual issue your lines will be enclosed in quotes
in excel replace " with nothing

--
isn’t life beautiful?

random · Answer

In Excel, press Alt F11  then insert a module  copy the text of the function  then display the execution window   --  Isn't life beautiful?

Keroz · Answer

It fits on a command line if we don't use variables...

rem directory where the files are located
set source_directory=c:\temp
rem result file
set result_file=c:\result.txt

rem for each text file in the directory, we put it in i
rem then for each line in this file, we put it in a
rem then redirect an echo of the variables a and i to the result file
rem it will execute as long as there are lines in the file and as long as there are files
for /f %%i in ('dir /b %source_directory%\*.txt') do for /f "tokens=1 delims=" %%a in (%source_directory%\%%i) do echo %%a %%i >> %result_file%

Finally, you must have mastered it now...

rmed19 · Answer

Hello, We can simply do cat *.TXT >> resultat.txt

TFA · Answer

If your files have a common pattern (for example, fichier1.txt and fichier2.txt), you can use the syntax:

cat fichier* >> resultat.txt

But BE CAREFUL: if the pattern is also found in the result file, this will cause an infinite loop, rapidly increasing the size of the result file until saturation. For example:

cat *.txt >> resultat.txt

IS INCORRECT!

Zebul0n · Answer

sans le nom du fichier en dos type *.txt >> c:\monfichier.txt  avec le nom de fichier en deux lignes (entrée pour passer a la deuxieme) FOR %i IN (*.txt) do (@echo %i @type %i) >> c:\monficresult.txt

Concatenate TXT files

11 réponses

Canon mb5350 - cartridge replacement impossible

Texture issues in enshrouded

Select next line csh foreach

Win32 kamso then rootkit detection

Win32:spyware-gen [trj] detected by avast

Unknown video error on the freebox player

Make it or break it

How to open a cbr file

Please log in with manager privileges.

Wake on lan with livebox