HandyCache
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
madmasles
Цитата: Есть файлы такого вида ar1x001, ar1x002, ar1x003, arp1x001 и до ar999x001, ar1x002, ar999x003, arp999x001 и т.д
Нужно все файлы начинающиеся с ar1, arp1, где 1 число от 1 до 999, разложить по папкам от 001 до 999 |
Цитата: #include <File.au3>
$sDirFrom = @ScriptDir ;папка в которой ищем
$sDirTo = @ScriptDir & '\test' ;папка куда перемещаем
If Not FileExists($sDirFrom) Then
MsgBox(16, 'Error', 'Нет такой папки ' & $sDirFrom)
Exit
EndIf
$aFileList = _FileListToArray($sDirFrom, 'ar*', 1)
If @error = 4 Then
MsgBox(16, 'Error', 'Нет таких файлов в папке ' & $sDirFrom)
Exit
EndIf
For $i = 1 To $aFileList[0]
If StringRegExp($aFileList[$i], '(ar|arp)(\d{3})x', 0) And _
Not StringRegExp($aFileList[$i], '(ar|arp)(000)x', 0) Then
FileMove($sDirFrom & '\' & $aFileList[$i], _
$sDirTo & '\' & StringRegExpReplace($aFileList[$i], '^(?:ar|arp)(\d{3})x.*', '\1') & _
'\' & $aFileList[$i], 9)
EndIf
Next |
Что нужно изменить в скрипте если вместо ar001x001, ar001x002, ar01x003, arp01x001, вот такие файлы ar1x001, ar1x002, ar1x003, arp1x001 и до ar999x001, ar1x002, ar999x003, arp999x001 и т.д? Спасибо. |
Всего записей: 130 | Зарегистр. 09-10-2008 | Отправлено: 14:02 15-01-2011 | Исправлено: HandyCache, 14:14 15-01-2011 |
|
.