Чтение файлов из нескольких папок

[ZeVSalt]

Здравствуйте господа.
Натолкните на мысль. В нескольких папках лежат текстовые файлы, в каждом файле одна строка, как собрать из нескольких *.txt всё в один файл.
Структура папок такая:
[основная папка]
[1]
[1]
[2]
[3]
[4]
[2]
[1]
[2]

[3]
[1]
[2]
количество вложенных папок разное, но глубина всегда равна трем.
с чтением и записью в файл разберусь, а вот как выбрать все файлы во всех папках затрудняюсь.

 

[InnI]

ZeVSalt

выбрать все файлы во всех папках

_FileListToArrayRec()

 

[ZeVSalt]

#include <Array.au3> 
#include <File.au3>

Global $Folder = @ScriptDir & '\Информация БКИ' ; путь к папке
Global $Mask = "*.txt" ; маска файлов
Global $Files = _FileListToArrayRec($Folder, $Mask, 1, 1, 0, 2)
If @error Then Exit

For $i=1 To UBound($Files) -1
$FileOpen = FileOpen (@ScriptDir & "\otcet_bki.txt", 1)
$FileRead = FileReadLine ($Files, 1)
$FileWrite = FileWriteLine ($FileOpen, $FileRead & @CRLF)
FileClose ($FileOpen)
Next

выдает ошибку ERROR: _FileListToArrayRec(): undefined function.

 

[InnI]

ZeVSalt

выдает ошибку

Эта функция появилась в UDF, начиная с версии AutoIt 3.3.10.0.

 

[ZeVSalt]

обновил до последней версии, но видно где то накосячил. Заработало, но файл получается с пустыми строками, без данных


Добавлено:

Сообщение автоматически объединено: 12 Апр 2016

разобрался, спасибо.

#include <Array.au3>
#include <File.au3>

Global $Folder = @ScriptDir & '\Информация БКИ' ; путь к папке
Global $Mask = "*.txt" ; маска файлов
Global $Files = _FileListToArrayRec($Folder, $Mask, 1, 1, 0, 2)
If @error Then Exit

For $i=1 To UBound($Files) -1
$FileOpen = FileOpen (@ScriptDir & "\otcet_bki.txt", 1)
$FileRead = FileRead ($Files  [$i])
$FileWrite = FileWriteLine ($FileOpen, $FileRead)
FileClose ($FileOpen)
Next

 

[Alofa]

Наверно вы хотели написать так:

#include <File.au3>

Global $Folder = @ScriptDir & '\Информация БКИ' ; путь к папке
Global $Mask = "*.txt" ; маска файлов
Global $FileRead, $Files = _FileListToArrayRec($Folder, $Mask, 1, 1, 0, 2)
If @error Then Exit

For $i=1 To $Files[0]
   $FileRead &= FileRead ($Files[$i]) & @CRLF
Next

FileWrite(@ScriptDir & "\otcet_bki.txt", $FileRead)

 

[ZeVSalt]

Можете объяснить в чем разница?

For $i=1 To $Files[0]

For $i=1 To UBound($Files) -1

_FileListToArrayRec вроде же возвращает массив

как я понимаю ч-з UBound я считываю этот массив и записываю в файл.

*или я совсем ничего не понимаю

 

[Alofa]

Встречный вопрос. Первый элемент любого массива имеет индекс "0", какая причина подвигла вас начинать цикл "For" с индекса "1"?

... как я понимаю ч-з UBound я считываю этот массив и записываю в файл.

Неправильно понимаете. Посмотрите описание этой функции.

 

[CreatoR]

Alofa
Правильнее всё же проверять через Ubound (хотя бы как грамотную практику), это предотвратит падение скрипта в некоторых случаях.
См. Как предотвратить критические ошибки скрипта? в НЕофициальный FAQ AutoIt.

_FileListToArrayRec может вернуть и вовсе не массив, а пустую строку в случае ошибки (например, если файл не найден), и тогда при обращений к $Files[0] скрипт завершит свою работу с ошибкой.

 

[Alofa]

OffTopic:

... и тогда при обращений к $Files[0] скрипт завершит свою работу с ошибкой.

Вот на этот случай всегда стараюсь применять проверки на подобии, как в данном скрипте:

If @error Then Exit

Правильнее всё же проверять через Ubound (хотя бы как грамотную практику)

Я всегда за грамотность
Спасибо CreatoR - пойду почитаю.