Text file copy

[Dieuz]

Hi,

I was wondering if there is any code outhere that will do the following things:

Let's say I have a 1000 .txt file with text in it. I want to run a code that will copy every text in those files and paste it all in 1 big .txt file.

If nobody made a code for that, I might start one.

Thanks in advance,

Edited March 26, 2008 by Dieuz

[JustinReno]

I made one:

At the top of your script, make sure you #Include<Misc.au3>

http://quadryders.com/phpcc/snippet.php?sid=98

Edited March 26, 2008 by Jardenix

[narayanjr]

FileRead

FileWrite

_FileListToArray

[Dieuz]

Thanks Jardenix, how long would it take to copy let's say 1000 files with 10k words in each one.

[JustinReno]

I'm not sure, just a minute...

[Dieuz]

kk I will test it right now! Thanks alot again!

[JustinReno]

It took me around 7.6 seconds. And sorry, its #Include <File.au3> not Misc!

[JustinReno]

This is the example I used:

#Include <File.au3>

Global $String, $H_GetTextFiles

DirCreate(@ScriptDir & "\Test")

For $I = 1 To 10000
    $String &= 1
Next

For $I = 1 To 1000
    FileWrite(@ScriptDir & "\Test\" & $I & ".txt", $String)
Next

_TextFileMerger(@ScriptDir & "\Test", @ScriptDir & "\Test\All.txt")

Func _TextFileMerger($H_FolderPath, $H_OutPutFilePath, $V_ExecuteWhenDone = 0)
    ;$Timer = TimerInit()
    $H_GetTextFiles = _FileListToArray($H_FolderPath, "*.txt")
    For $I = 1 To $H_GetTextFiles[0]
        $S_GetTextFileData = FileRead($H_FolderPath & "\" & $H_GetTextFiles[$I])
        FileWrite($H_OutPutFilePath, "   ***" & $H_GetTextFiles[$I] & "***" & @CRLF)
        FileWrite($H_OutPutFilePath, $S_GetTextFileData)
        FileWrite($H_OutPutFilePath, @CRLF & "***** Text File Divider *****" & @CRLF)
     Next
     ;MsgBox(0, "", TimerDiff($Timer) / 1000)
     If $V_ExecuteWhenDone = 1 Then ShellExecute($H_OutPutFilePath)
EndFunc

For $I = 1 To $H_GetTextFiles[0]
    FileDelete(@ScriptDir & "\Test\" & $H_GetTextFiles[$I])
Next

[Dieuz]

Haha right!

#Include <Misc.au3>
#include <File.au3>

$H_FolderPath = @SCRIPTDIR & "\test"
$H_OutPutFilePath = @SCRIPTDIR & "\file.txt"


Func _TextFileMerger($H_FolderPath, $H_OutPutFilePath, $V_ExecuteWhenDone = 0)
     $H_GetTextFiles = _FileListToArray($H_FolderPath, "*.txt")
     For $I = 1 To $H_GetTextFiles[0]
          $S_GetTextFileData = FileRead($H_FolderPath & "\" & $H_GetTextFiles[$I])
          FileWrite($H_OutPutFilePath, "   ***" & $H_GetTextFiles[$I] & "***" & @CRLF)
          FileWrite($H_OutPutFilePath, $S_GetTextFileData)
          FileWrite($H_OutPutFilePath, @CRLF & "***** Text File Divider *****" & @CRLF)
      Next
     If $V_ExecuteWhenDone = 1 Then ShellExecute($H_OutPutFilePath)
EndFunc

Cant get this to work properly, any idea?

[weaponx]

You could do this the old fashioned way using command line copy (see copy /?).

Concatenation is performed when multiple source files are seperated with a plus symbol or you can use wildcards.

Merge all txt files into output.txt:

copy *.txt output.txt

Merge only certain text files:

copy text1.txt+text2.txt+text3.txt output.txt

Of course you could easily generate a list of files to concatenate in AutoIt and use RunWait() to perform the copy.

Edited March 26, 2008 by weaponx

[JustinReno]

#include <File.au3>

_TextFileMerger(@ScriptDir & "\Test", @ScriptDir & "\All Files.txt")

Func _TextFileMerger($H_FolderPath, $H_OutPutFilePath, $V_ExecuteWhenDone = 0)
     $H_GetTextFiles = _FileListToArray($H_FolderPath, "*.txt")
     For $I = 1 To $H_GetTextFiles[0]
          $S_GetTextFileData = FileRead($H_FolderPath & "\" & $H_GetTextFiles[$I])
          FileWrite($H_OutPutFilePath, "   ***" & $H_GetTextFiles[$I] & "***" & @CRLF)
          FileWrite($H_OutPutFilePath, $S_GetTextFileData)
          FileWrite($H_OutPutFilePath, @CRLF & "***** Text File Divider *****" & @CRLF)
      Next
     If $V_ExecuteWhenDone = 1 Then ShellExecute($H_OutPutFilePath)
EndFunc

Edited March 26, 2008 by Jardenix

[Dieuz]

Thanks Jardenix, appreciate your help alot!

[JustinReno]

Your welcome, I'm also working on a _TextFileUnMerger().