Получения списка файла из каталога

forfrends · 29 Сен 2010

Друзья, помогите.
У меня есть масса файлов формата ".txt"
мне их надо открыть, изменить, и полученную информацию записать в другой файл. Но это все я сам сделаю.
Проблема вот в чем: я незнаю как получить список всех файлов в папке, что бы потом можно было открывать поочередно все файлы из списка и работать с ними.
Поиск по форуму почти ничего не дал - почти ничего не нашел, а что нашел - не понял как с этим работать.
Если можно - по подродней описать сам процесс спасибо!

madmasles · 29 Сен 2010

forfrends,
Из справки:

Код:

#Include <File.au3>
_FileListToArray($sPath [, $sFilter = "*" [, $iFlag = 0]])

Или подробнее:

Код:

#include <File.au3>
#include <Array.au3>
;получаем список всех файлов с расширением .txt в папке MyFolder в текущей папке.
$aFiles = _FileListToArray(@ScriptDir & '\MyFolder', '*.txt', 1)
_ArrayDisplay($aFiles)
For $i = 1 To $aFiles[0]
	;в цикле по очереди, например, открываем файл,
	$hFileTemp = FileOpen(@ScriptDir & '\MyFolder\' & $aFiles[$i], 0)
	;читаем,
	$sTextTemp = FileRead($hFileTemp)
	;закрываем.
	FileClose($hFileTemp)
	;или делаем то, что нам надо.
Next

dwerf · 29 Сен 2010

Если нет необходимости в одновременном доступе ко всем файлам можно использовать функции FileFindFirstFile и FileFindNextFile напрямую.

Пример из справки:

Код:

; Shows the filenames of all files in the current directory.
$hSearch = FileFindFirstFile(@ScriptDir & '\MyFolder\*.txt')  

; Check if the search was successful
If $hSearch = -1 Then
    MsgBox(0, 'Error', 'No files/directories matched the search pattern')
    Exit
EndIf

While 1
    $sFile = FileFindNextFile($hSearch) 
    If @error Then ExitLoop
    
    MsgBox(4096, 'File:', $sFile)
WEnd

; Close the search handle
FileClose($hSearch)

forfrends · 29 Сен 2010

Спасибо большое!

Alexander · 2 Ноя 2010

Ситуация такая:
Вот собрался переустанавливать систему, и естественно нужно потом устанавливать драйвера. Так вот, я подумал, что это не удобно делать с десятками дисков)))
Вот хочу все файлы диска с драйвером всунуть в один exe. В программе будут кнопки, соответствующие каждому драйверу. При нажатии на кнопку извлекаются файлы (FileInstall) определенного драйвера в папку Temp. Потом запускается установка(RunWait), я устанавливаю драйвер, когда установилось, эта папка удаляется с Temp(для того и RunWait). Но не в этом суть. На диске очень много папок и файлов, а мне нужно ввести каждый для распаковки. Но не буду же я делать это вручную. Так вот хочу спросить, как получить список всех файлов в папке примерно такого вида:
Папка1\Папка2\1.txt
Папка1\Папка2\2.txt
Папка1\2.txt

kaster · 2 Ноя 2010

Alexander
не изобретай велосипед. Для этого есть уже готовые инструменты. Driver Magician например

Alexander · 2 Ноя 2010

Не хочу я пользоваться утилитами, я хочу все сделать сам :IL_AutoIt_1:
Мне только это нужно:

Так вот хочу спросить, как получить список всех файлов в папке примерно такого вида:
Папка1\Папка2\1.txt
Папка1\Папка2\2.txt
Папка1\2.txt

madmasles · 3 Ноя 2010

Alexander [?]

как получить список всех файлов в папке примерно такого вида:
Папка1\Папка2\1.txt
Папка1\Папка2\2.txt
Папка1\2.txt

Попробуйте так:

Код:

#include <Array.au3>

$aReturn = _FileSearch(@DesktopDir, '*.txt', 1)
_ArrayDisplay($aReturn)

Func _FileSearch($sPath, $sFileMask = '*', $iFlag = 0)
	;фильтры для поиска нужно указывать через ;
	;$iFlag = 0 - Файлы и папки (по умолчанию)
	;$iFlag = 1 - Только файлы
	;$iFlag = 2 - Только папки
	Local $sOutBin, $sOut, $aOut, $sRead, $hDir, $sAttrib
	Switch $iFlag
		Case 1
			$sAttrib = ' /A-D'
		Case 2
			$sAttrib = ' /AD'
		Case Else
			$sAttrib = ' /A'
	EndSwitch

	$sOut = StringToBinary('0' & @CRLF, 2)
	$aMasks = StringSplit($sFileMask, ';')

	For $i = 1 To $aMasks[0]
		$hDir = Run(@ComSpec & ' /U /C DIR "' & $sPath & '\' & $aMasks[$i] & '" /S /B' & $sAttrib, @SystemDir, @SW_HIDE, 6)
		While 1
			$sRead = StdoutRead($hDir, False, True)
			If @error Then
				ExitLoop
			EndIf
			If $sRead <> "" Then
				$sOut &= $sRead
			EndIf
		WEnd
	Next
	$aOut = StringRegExp(BinaryToString($sOut, 2), '[^\r\n]+', 3)
	If @error Then
		Return SetError(1)
	EndIf
	$aOut[0] = UBound($aOut) - 1
	Return $aOut
EndFunc   ;==>_FileSearch

Yashied · 3 Ноя 2010

Где-то это уже было.

;)

Alexander · 3 Ноя 2010

madmasles
Yashied
Спасибо! А как теперь сделать, чтоб каждый результат вставлялся так: DirCreate('результат') и т.д. и записывалось в txt файл. Но чтоб как в этом скрипте можно было включать опцию "поиск файлов", "поиск папок", "поиск папок и файлов".
*'результат' без пути до папки
Например:
@DesktopDir & '\Драйвера...'
C:\Documents and Settings\Admin\Рабочий стол\Драйвера...
заменить при отображении на:
DirCreate(@TempDir (так и отобразить) & '\Драйвера...')

PS. Все, уже не нужно, сделал сам :IL_AutoIt_1:

Bingo888 · 4 Сен 2019

madmasles сказал(а):

forfrends,
Из справки:

Код:

#Include <File.au3>
_FileListToArray($sPath [, $sFilter = "*" [, $iFlag = 0]])

Или подробнее:

Код:

#include <File.au3>
#include <Array.au3>
;получаем список всех файлов с расширением .txt в папке MyFolder в текущей папке.
$aFiles = _FileListToArray(@ScriptDir & '\MyFolder', '*.txt', 1)
_ArrayDisplay($aFiles)
For $i = 1 To $aFiles[0]
    ;в цикле по очереди, например, открываем файл,
    $hFileTemp = FileOpen(@ScriptDir & '\MyFolder\' & $aFiles[$i], 0)
    ;читаем,
    $sTextTemp = FileRead($hFileTemp)
    ;закрываем.
    FileClose($hFileTemp)
    ;или делаем то, что нам надо.
Next

madmasles сказал(а):

forfrends,
Из справки:

Код:

#Include <File.au3>
_FileListToArray($sPath [, $sFilter = "*" [, $iFlag = 0]])

Или подробнее:

Код:

#include <File.au3>
#include <Array.au3>
;получаем список всех файлов с расширением .txt в папке MyFolder в текущей папке.
$aFiles = _FileListToArray(@ScriptDir & '\MyFolder', '*.txt', 1)
_ArrayDisplay($aFiles)
For $i = 1 To $aFiles[0]
    ;в цикле по очереди, например, открываем файл,
    $hFileTemp = FileOpen(@ScriptDir & '\MyFolder\' & $aFiles[$i], 0)
    ;читаем,
    $sTextTemp = FileRead($hFileTemp)
    ;закрываем.
    FileClose($hFileTemp)
    ;или делаем то, что нам надо.
Next

Сообщение автоматически объединено: 4 Сен 2019

Добрый день! Подскажите, написал скрип котрый по очереди открывает файлы в папке и сохраняет нужные даные в файл. Проблема заключается в том что незнаю как правильно написать чтоб програмка не создавала новый файл а дозаписывала новые строки в текущий уже созданный файл.
Вот мой код:

#include <Array.au3> ;подключаем
#include <Excel.au3>
#include <File.au3>

$aFiles = _FileListToArray(@ScriptDir & '\in', '*.csv', 1)

For $i =1 To $aFiles[0]
$hFileTemp = FileOpen(@ScriptDir & '\in\' & $aFiles[$i], 0)
$String = FileRead($hFileTemp) ;читаем

$sFilePath1 = @ScriptDir & "\result1.xls"

$HFILL = StringRegExp($String, '(?s)<HFILL>(.*?)</HFILL>', 3)
$HTIN = StringRegExp($String, '(?s)<HTIN>(.*?)</HTIN>', 3)
$HNAME = StringRegExp($String, '(?s)<HNAME>(.*?)</HNAME>', 3)
$HBOS = StringRegExp($String, '(?s)<HBOS>(.*?)</HBOS>', 3)
$H01G1S = StringRegExp($String, '(?s)<H01G1S>(.*?)</H01G1S>', 3)
$HTINSTI = StringRegExp($String, '(?s)<HTINSTI>(.*?)</HTINSTI>', 3)
$HSTI = StringRegExp($String, '(?s)<HSTI>(.*?)</HSTI>', 3)
$HLOCSTI = StringRegExp($String, '(?s)<HLOCSTI>(.*?)</HLOCSTI>', 3)
$HEMAIL = StringRegExp($String, '(?s)<HEMAIL>(.*?)</HEMAIL>', 3);вытягиваем

Local $aResult[1000][9]
$aResult[0][0] = 'Дата формування'
$aResult[0][1] = 'ЄД'
$aResult[0][2] = 'НАЗВА '
$aResult[0][3] = 'ПІБ '
$aResult[0][4] = 'ДІЄ '
$aResult[0][5] = 'ЄДР'
$aResult[0][6] = 'НАЗВА '
$aResult[0][7] = 'ПОСИЛАННЯ '
$aResult[0][8] = 'ЕМЕІЛ'

$aResult [1][0] = $HFILL[0]
$aResult [1][1] = $HTIN[0]
$aResult [1][2] = $HNAME[0]
$aResult [1][3] = $HBOS[0]
$aResult [1][4] = $H01G1S[0]
$aResult [1][5] = $HTINSTI[0]
$aResult [1][6] = $HSTI [0]
$aResult [1][7] = $HLOCSTI[0]
$aResult [1][8] = $HEMAIL[0]

$oExcel = _Excel_Open(True)
$oWorkbook = _Excel_BookNew($oExcel)
_Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, $aResult)
_Excel_BookSaveAs($oWorkbook, $sFilePath1[$i])
_Excel_BookClose($oWorkbook)
_Excel_Close($oExcel)

Next

CreatoR · 5 Сен 2019

Bingo888 сказал(а):
Подскажите,

Как это относится к теме?

CreatoR · 5 Сен 2019

Bingo888 сказал(а):
Вот мой код:

Который нужно заключать в соответствующий тег.

Автор темы	Похожие темы	Форум	Ответы	Дата
	Функции-призраки получения резолюции _GDIPlus_ImageGetHorizontalResolution и _GDIPlus_ImageGetVerticalResolution	Общие вопросы по AutoIt	11	3 Янв 2023
B	Автоматизация получения информации о штрафах с сайта ГИБДД	Покупка/продажа, поиск услуг	0	13 Апр 2021
	функция для получения полного пути файла из эксплорера	Общие вопросы по AutoIt	2	15 Авг 2020
D	Команды для получения информации SMART	Общие вопросы по AutoIt	0	8 Авг 2020
F	[Сеть, интернет] Напишите за меня скрипт получения списка исполнителей и треков с music.yandex.ru	Стол заказов	1	15 Май 2012

Поиск

Поиск

Получения списка файла из каталога

forfrends

Новичок

madmasles

Модератор

dwerf

Использует ArchLinux

forfrends

Новичок

Alexander

Новичок

kaster

Мой Аватар, он лучший самый

Alexander

Новичок

madmasles

Модератор

Yashied

Модератор

Alexander

Новичок

Bingo888

Новичок

CreatoR

Must AutoIt!

CreatoR

Must AutoIt!