Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBScript/JScript/WSH/WMI/HTA
Войти
Регистрация
Восстановить пароль
 
pmike367
0 / 0 / 0
Регистрация: 16.07.2015
Сообщений: 11
1

Проверка файлов на существование

22.07.2015, 12:56. Просмотров 361. Ответов 3
Метки нет (Все метки)

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

В папке есть файлы, которые формируются по следующей маске XYZ0*_AA.TXT, где * это порядковый номер файла (записывается в подобии 35 системы счисления, то есть первый файл называется XYZ01_AA.TXT, а последний 35 XYZ0Z_AA.TXT). От меня требуется, написать скрипт, который будет проверять есть ли разрыв между файлами (XYZ01_AA.TXT,XYZ0E_AA.TXT допустим в папке следующие фалы), если есть разрыв, то записать недостающие файлы в текстовый документ

Заранее спасибо
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.07.2015, 12:56
Ответы с готовыми решениями:

Проверка файлов на существование
Каким способом можно проверить, существует данный файл в файловой системе телефона или нет. мне не...

Проверка файлов на существование и размер
Как создать проверку на существование файла и размер. Например, если размер файла меняется от...

Проверка на существование нескольких файлов в нескольких папках
есть 5 папок(1,2,3,4,5), в них находятся 5 файлов( в каждой папке по файлу с известными именами)...

Проверка на существование
есть таблица Client со столбцами (Name,LastName,MobilePhoneNumber,Email) и нужно проверить на...

Проверка на существование
Есть один txt-файл. В нем построчно написаны файлы и их вес в байтах. Пример: files.rar 12345678...

3
ComSpec
3410 / 1954 / 628
Регистрация: 26.02.2014
Сообщений: 1,457
22.07.2015, 14:08 2
Visual Basic
1
2
3
4
5
6
7
8
9
sDir = "C:\Test"
Set FSO = CreateObject("Scripting.FileSystemObject")
For i = 1 To 9
    If Not FSO.FileExists(sDir & "\XYZ0" & i & "_AA.TXT") Then sList = sList & "XYZ0" & i & "_AA.TXT" & vbCrLf
Next
For i = 65 To 90
    If Not FSO.FileExists(sDir & "\XYZ0" & Chr(i) & "_AA.TXT") Then sList = sList & "XYZ0" & Chr(i) & "_AA.TXT" & vbCrLf
Next
FSO.OpenTextFile("list.txt", 2, True).Write(sList)
0
pmike367
0 / 0 / 0
Регистрация: 16.07.2015
Сообщений: 11
22.07.2015, 15:30  [ТС] 3
ComSpec, Большое спасибо, работает!

Добавлено через 1 час 2 минуты
я не учел тот факт, что файлы могут закончиться и на xyz09, а не xyz0z или в любом другом месте. как быть в таком случае?
0
pmike367
0 / 0 / 0
Регистрация: 16.07.2015
Сообщений: 11
24.07.2015, 14:37  [ТС] 4
Решено
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
if datePart("d",now)<10 and datePart("d",now)>0 then
    mth=datePart("d",now)
 else 
    mth=chr(datePart("d",now)+87)
 end if 
for each cFile in cFolder.files
    fName=right((left(cFile.name,5)),1)
    if isNumeric(fName) and fName>maxNum then
        maxNum=fName
    else if asc(fName)>maxSym then
        maxSym=asc(fName)
    end if 
    end if
 next
 For i = 97 To MaxSym
   If Not FSO.FileExists(sDir & "\XY"& mth &"0" & chr(i) & ".TXT") Then 
    sList = sList &  "\XY"& mth &"0" & i & ".TXT" & vbCrLf
    End If
 Next
For i = 1 to MaxNum
    If Not FSO.FileExists(sDir & "\XY"& mth &"0" & i & ".TXT") Then
    sList = sList & "\XY"& mth &"0" & i & ".TXT & vbCrLf
    End If
Next
0
24.07.2015, 14:37
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.07.2015, 14:37

Проверка на существование папки
if (localadress) cout&lt;&lt;&quot;Существует&quot;; else cout&lt;&lt;&quot;Надо создать&quot;; if (&quot;D:\\Games&quot;)...

Проверка на существование Задачи
Подскажите пожалуйста, как можно проверить существует ли уже эта задача, перед записью новой

Проверка на существование переменной
Всем доброго времени суток! Подскажи существует ли в JS аналог проверки на существование...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru