Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
 Аватар для Vetrox
9 / 9 / 6
Регистрация: 08.10.2012
Сообщений: 266

Сканер директорий и файлов pdf, который генерировал бы удобный отчет

08.10.2012, 19:42. Показов 1032. Ответов 6
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
нужно сделать сканер директорий и файлов pdf, который генерировал бы удобный отчет
пример состоит в следующем:

-> dir_home содержит: 159 поддиректорий, содержащих 14583 страниц pdf
--> dir_1, всего: 5 файлов, 237 страниц
---- test1.pdf | 20 страниц
---- test2.pdf | 2 страниц
---- test3.pdf | 200 страниц
---- test4.pdf | 14 страниц
---- test5.pdf | 1 страниц
--> dir_2, всего: 1 файлов, 12 страниц
---- test1.pdf | 12 страниц
---- ...
и т.д.

подскажите как это реализовать? =)
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
08.10.2012, 19:42
Ответы с готовыми решениями:

На чем написать сканер директорий и файлов pdf, который генерировал бы удобный отчет
нужно сделать сканер директорий и файлов pdf, который генерировал бы удобный отчет пример состоит в следующем: --> dir_home...

Сканер директорий для локальной сети
Я пишу небльшую поисковую системму для локальной сети... подскажите плз, как просканить все дирректории на компютере например...

Ошибка при выполнении запроса который генерировал PHP
Всем привет. Я еще новичок в PHP. Если ошибаюсь или говорю чтото нето извиняюсь. написал функции которые сами генерируют запрос для...

6
es geht mir gut
 Аватар для SoftIce
11274 / 4760 / 1183
Регистрация: 27.07.2011
Сообщений: 11,439
08.10.2012, 19:51
Цитата Сообщение от Vetrox Посмотреть сообщение
страниц pdf
имеются в виду документы pdf или страницы в документе pdf?

Не по теме:

Ты к нам из Лазаря пожаловал?

1
 Аватар для Vetrox
9 / 9 / 6
Регистрация: 08.10.2012
Сообщений: 266
08.10.2012, 19:58  [ТС]
а, и страниц и документов забыл =)
на сколько я понимаю, вся загвоздка будет в страницах?

Не по теме:

Цитата Сообщение от SoftIce Посмотреть сообщение
Не по теме:
Ты к нам из Лазаря пожаловал?
от куда??? наверное...

0
64 / 20 / 1
Регистрация: 29.07.2012
Сообщений: 151
08.10.2012, 23:03
Файлы можешь обнаруживать так

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
25
Dim katalog As String
Dim now As String
Dim i As Integer
 
Private Sub Command1_Click()
Dim Files()
 
   katalog = InputBox("Ââåäèòå èìÿ ôàéëà")
 
   now = Dir(katalog & "\*.*", vbDirectory Or vbReadOnly Or vbHidden Or vbSystem)
    
   Do While now <> vbNullString
       ReDim Preserve Files(0 To i)
 
       Files(i) = now
       i = i + 1
 
       now = Dir()
   Loop
   
   If i <> 0 Then
       MsgBox Join(Files, vbCrLf), vbInformation
     Else: MsgBox "Ôàéëè íå íàéäåíû"
   End If
End Sub
А фильтровать расширения так

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
Option Explicit
 
Private Sub Form_Load()
autoredraw=true
Dim a As String
Dim b As String
Dim c As Integer
Dim d As String
c = 0
b = "ert.pdf"
 
    Do While d <> "."
    c = c + 1
        a = Mid(b, Len(b) - c)
        d = Mid(a, 2, 1)
    Loop
    a = Mid(a, 2)
Print a
Print d
'    Select Case a
'        Case ".lnk": Print ".lnk"
'        Case ".exe": Print ".exe"
 
End Sub
1
Эксперт WindowsАвтор FAQ
 Аватар для Dragokas
18030 / 7733 / 892
Регистрация: 25.12.2011
Сообщений: 11,502
Записей в блоге: 16
08.10.2012, 23:27
brifing,
2) КРЧ.
Visual Basic
1
a = mid$(b, instrrev(b, ".")+ 1)
2
es geht mir gut
 Аватар для SoftIce
11274 / 4760 / 1183
Регистрация: 27.07.2011
Сообщений: 11,439
09.10.2012, 09:57
Вот такой можно сделать, если не открывать каждый документ и не считать количество страниц.
Код в архиве.
Правда у меня на диске D (75 Gb) этот код работал почти 8 минут.

Не по теме:

Вот почему я спросил про Лазаря:


Название: avatar313184_1.gif.jpg
Просмотров: 92

Размер: 5.5 Кб


123.rar
1
 Аватар для Alex77755
11525 / 3812 / 683
Регистрация: 13.02.2009
Сообщений: 11,229
09.10.2012, 14:48
вся загвоздка будет в страницах?
в принципе имеется такая взможность.
Для выбранной папки:
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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Sub STATISIKA()
 
  Dim Folder As String
  Dim wb As String
  Dim i As Integer
  
    Dim AcroApp As Acrobat.CAcroApp
    Dim Part1Document As Acrobat.CAcroPDDoc
    Dim numPages As Long
    Set AcroApp = CreateObject("AcroExch.App")
    Set Part1Document = CreateObject("AcroExch.PDDoc")
  'Показываем диалог выбора папки
  With Application.FileDialog(msoFileDialogFolderPicker)
    .Title = "Выберите папку, файлы в которой нужно обработать"
    .ButtonName = "Выбрать"
    .AllowMultiSelect = False
    If .Show Then Folder = .SelectedItems(1) Else Exit Sub
  End With
   i = i + 1
   Cells(i, 1) = "Содержимое папки " & Folder
   i = i + 1
        Cells(i, 1) = "Файл"
        Cells(i, 2) = "Страниц"
  'Начинаем читать файлы из папки
  wb = Dir(Folder & Application.PathSeparator & "*.pdf")
  While Len(wb) > 0
        i = i + 1
        Part1Document.Open (Folder & Application.PathSeparator & wb)
        numPages = Part1Document.GetNumPages()
        Part1Document.Close
            Cells(i, 1) = wb
            Cells(i, 2) = numPages
        wb = Dir 'читаем следующий файл
  Wend
    AcroApp.Exit
    Set AcroApp = Nothing
    Set Part1Document = Nothing
  
End Sub
Для всех папок и подпапок добавить перебор...

Добавлено через 1 минуту
Это для макроса Ексел. Для VB надо малость переделать диалог выбора папки или вооще отказаться от выбора
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
09.10.2012, 14:48
Помогаю со студенческими работами здесь

Написать скрипт, который каждый раз при загрузке страницы генерировал бы календарь на текущий месяц
Написать скрипт, который каждый раз при загрузке страницы генерировал бы календарь на текущий месяц

Посоветуйте программу сканер в PDF
Пожалуйста, посоветуйте программу сканер в PDF Достаточно простую для освоения заурядному пользователю. ------------- Функции: ...

Быстрый сканер в PDF, какой выбрать?
Всем привет, нужна помощь профи в виде совета, ситуация такая: на предприятие нужен сканер(не протяжный), документы копировать, в PDF(ну...

Как соединить несколько PDF файлов в один документ PDF?
имею распечатку книжки в 45 pdf файлах. как-то неудобно просматривать её. как их все объединить в один pdf файл? Может спец софт необходим?

Разделение pdf-файла на несколько pdf-файлов
Здравствуйте, подскажите как разделить файл pdf - состоящий из n-страниц, на несколько файлов pdf через itextsharp.


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

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Новые блоги и статьи
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Как объединить две одинаковые БД Access с разными данными
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha
Etyuhibosecyu 20.11.2025
Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
Мысли в слух
kumehtar 18.11.2025
Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .
Создание Single Page Application на фреймах
krapotkin 16.11.2025
Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru