Что нового

Как добавить несколько расширений в _FileListToArray

reset86

Новичок
Сообщения
48
Репутация
0
Всем привет, написал, простой скрипт, но не знаю как добавить в _FileListToArray несколько расширений, либо что то другое придумать. Нужно что то тиоп того - $FArr =_FileListToArray(@ScriptDir, '*.pdf, *.txt', 1)

Это сам код, он полностью рабочий, только мне нужно что бы был нужный мне список файлов, все облазил, не нашел решения, понятно что плохо лазил, либо вообще не туда смотрю.

Ну либо от обратного, убирать из массива не нужные файлы или что не проходят по маски названия файла дата_цена_наименование.
*.* не годится если что, потому что фигачит все файлы

Код:
#include <File.au3>
#include <Array.au3>
#include <FileConstants.au3>


$sFile = @ScriptDir & "\Перечень счетов.csv"
$hFile = FileOpen($sFile, $FO_OVERWRITE + $FO_ANSI)
$FArr =_FileListToArray(@ScriptDir, '*.pdf', 1)

For $i = 0 To UBound($FArr) - 1
    $FArr[$i] = StringRegExpReplace($FArr[$i], '_', ';')
    $FArr[$i] = StringRegExpReplace($FArr[$i], '\.[^.]*$', '')
Next

_FileWriteFromArray($hFile, $FArr, 1)
_FileWriteToLine("Перечень счетов.csv", 1, "Дата;Цена;Наименование", 0)

FileClose($hFile)
 
Последнее редактирование:

All2khoff

Продвинутый
Сообщения
369
Репутация
65
Код:
#include <File.au3>
#include <Array.au3>
#include <FileConstants.au3>


$sFile = @ScriptDir & "\Перечень счетов.csv"
$hFile = FileOpen($sFile, $FO_OVERWRITE + $FO_ANSI)
$FArr =_FileListToArray(@ScriptDir, '*.pdf', 1)
$FArr2 =_FileListToArray(@ScriptDir, '*.txt', 1)

arrayfuncion($FArr)
arrayfuncion($FArr2)

Func arrayfuncion($arr)

    For $i = 0 To UBound($arr) - 1
        $arr[$i] = StringRegExpReplace($arr[$i], '_', ';')
        $arr[$i] = StringRegExpReplace($arr[$i], '\.[^.]*$', '')
    Next

    _FileWriteFromArray($hFile, $arr, 1)
    _FileWriteToLine("Перечень счетов.csv", 1, "Дата;Цена;Наименование", 0)
EndFunc
FileClose($hFile)
 
Последнее редактирование:

InnI

AutoIT Гуру
Сообщения
4,932
Репутация
1,436
Код:
$FArr =_FileListToArrayRec(@ScriptDir, '*.pdf;*.txt', 1)
 
Верх