copy contents of 100s of text file into a new text file

[iceberg]

hi guys,

i remember there was a post on this....i tried searching for it but cdn't locate it.

would appreciate if someone could direct me to it by providing the link to the post.

thanks.

[Zedna]

Use RunWait() with this:

copy    file1.txt +   file2.txt + file3.txt file_out.txt

[qazwsx]

you could also use a for loop to write the command to a .bat file so you don't have to type so much, and then you could run the .bat file.

[GEOSoft]

If the files are all in one folder then you could just use _FileListToArray() and then loop through the array.

Where $fList is the array returned from _FileListToArray()

If IsArray($flist) Then
   $Out = ""
   For $I = 1 To Ubound($fList)-1
      $Out &= FileRead($fList[$I]) & @CRLF
   Next
   FileWrite("My_New_File.txt", StringStripWs($Out, 2))
EndIf

[iceberg]

thanks alot everyone!

[nobbe]

or Use RunWait() with this:

"type *.csv >> test.txt"

[iceberg]

hi all,

i managed to resolve the issue in this manner.

thanks for all your help anyway.

$search = FileFindFirstFile("*.txt")

If $search = -1 Then
    MsgBox(0, "Error", "No files/directories matched the search pattern - *.txt")
    Exit
EndIf

$x = 0

While 1
    $file = FileFindNextFile($search)
    If @error Then ExitLoop

    $open = FileOpen($file, 0)
    
    If $open = -1 Then
        MsgBox(0, "Error", "Unable to open file.")
        Exit
    EndIf
    
    $x = $x + 1
    
    $chars = FileRead($open)
    If @error = -1 Then ExitLoop
;MsgBox(0, "Char read:", $chars)
    FileWrite("output.doc", $chars & @CRLF)
    FileClose($file)
    SplashTextOn("Monitor Status", "Current File : " & $file & @CRLF & "Number of files processed : " & $x, 400, 50, -1, -1, 33, "", 12)
WEnd

SplashOff()
FileClose($search)
MsgBox(0, "Status", "All completed.")
Exit

[dorit30]

There is Udf (Sorry i cant rem. who post it ) but its not mine

CODE

Func _FileGetNewest($s_Path = @MyDocumentsDir, $s_Mask = '*', $i_Flags = 1)

Dim $a_File, $s_NewestFileName = '', $s_NewestFileDate = '', $s_FileName = '', $s_FileDate = ''

$a_File = _FileListToArray($s_Path, $s_Mask, $i_Flags)

If Not @error Then

For $i = 1 To $a_File[0]

$s_FileName = $s_Path & '\' & $a_File[$i]

$s_FileDate = FileGetTime($s_FileName, 0, 1)

If $s_FileDate > $s_NewestFileDate Then

$s_NewestFileName = $s_FileName

$s_NewestFileDate = $s_FileDate

EndIf

Next

EndIf

Return $s_NewestFileName

EndFunc