[Help] Combine file txt with both name

[ngocthang26]

Thank so much view my topic. I have problem when want to combine many file txt have both name.

Example: 

A.txt

->  ( A,B,C )

A (1).txt

->  (D,E,F)

A (2).txt

-> (1,2,3)

B.txt

-> ( 2 )

B (1).txt

-> ( 3 )

With code have result, All line code combine with name original

A.txt 

-> ( A,B,C,D,E,F,1,2,3 )

B.txt

-> ( 2,3 )

 

Thanks anyone.

[rudi]

Hello,

 

I just can guess, what you want to achive. All these files are in *ONE* folder, and shall be renamed to a continuous row A.TXT B.TXT ... or shall the content of all A.TXT A(1).txt ... go into a new A.TXT file?

 

Could you pls. give an example, how the names currently are, and how you want them to look like, when the script did its job?

 

regards, Rudi.

[mikell]

Try this. Wildcards are your friends - the help file too 

$hSearch = FileFindFirstFile("A.txt")
$sFileName = FileFindNextFile($hSearch)
$sResult = FileRead($sFileName) & ","

$hSearch = FileFindFirstFile("A *.txt")
While 1
   $sFileName = FileFindNextFile($hSearch)
   If @error Then ExitLoop
   $txt = FileRead($sFileName)
   $sResult &= $txt & ","
WEnd

$hTxt = FileOpen("result_A.txt", 2)  ;  2 = overwrite
$sResult = StringTrimRight($sResult, 1)  ; remove the trailing comma
FileWrite($hTxt, $sResult)
FileClose($hTxt)

FileClose($hSearch)

 

[abberration]

And here's what I would do (assuming his files and data are literally what he stated):

#include <file.au3>
#include <array.au3>

$array = _FileListToArrayRec(@ScriptDir & "\files", "*.txt", $FLTAR_FILES, $FLTAR_NORECUR, $FLTAR_SORT, $FLTAR_NOPATH)

For $i = 1 To $array[0] ; Rename the files that have no number to have a " (0)" to put them alphabetical order.
    If NOT StringInStr($array[$i], "(") Then
        $string = StringSplit($array[$i], ".", 2)
        FileMove(@ScriptDir & "\files\" & $array[$i], @ScriptDir & "\files\" & $string[0] & " (0)" & ".txt")
    EndIf
Next

$array = _FileListToArrayRec(@ScriptDir & "\files", "*.txt", $FLTAR_FILES, $FLTAR_NORECUR, $FLTAR_SORT, $FLTAR_NOPATH)

For $i = 1 To $array[0] ; Make the new files in the parent directory.
    $fileName = StringLeft($array[$i], 1)
    $data = FileRead(@ScriptDir & "\files\" & $array[$i])
    $data = StringReplace($data, "-> ", "")
    FileWrite(@ScriptDir & "\" & $fileName & ".txt", $data)
Next

$array = _FileListToArrayRec(@ScriptDir, "*.txt", $FLTAR_FILES, $FLTAR_NORECUR, $FLTAR_SORT, $FLTAR_NOPATH)

For $i = 1 To $array[0] ; Replace all the )( with commas and clean up stray ) and (.
    $data = FileRead(@ScriptDir & "\" & $array[$i])
    $makeCommas = StringReplace($data, ")(", ",")
    $cleanup = StringReplace($makeCommas, ")", "")
    $cleanup = StringReplace($cleanup, "(", "")
    _FileWriteToLine($array[$i], 1, $cleanup, True)
Next

I put the files in a folder called files and made the output in the script directory.

Edited September 23, 2019 by abberration
Added a line of code

[BrewManNH]

The old DOS command line had a way to do this with the copy command. you could do something like this:

copy a.txt+a (1).txt+a (2).txt a_new.txt

 

This would combine the 3 files into a new file called a_new.txt.