Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.82/11: Рейтинг темы: голосов - 11, средняя оценка - 4.82
0 / 0 / 0
Регистрация: 11.01.2012
Сообщений: 3

Автоматическое добавление следующего номера документа в шаблон

11.01.2012, 17:12. Показов 2200. Ответов 7
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Здравствуйте.

У меня ситуация примерно такая: есть шаблон, внутри него упоминаются цифры, которые по сути являются номером данного документа в реестре. Каждый новый документ - цифра=N+1, где N - эта цифра в прошлом документе. Вопрос заключается в том, можно ли как-нибудь написать скрипт, который будет автоматически находить предыдущий документ с максимальной цифрой в названии, брать ее(или внутри этого документа ее находить), прибавлять единицу и вставлять ее?

Проблема, в общем, в самой идее как находить нужный файл. Называются они примерно так: СЗ_040_Заявление_Анохиной, СЗ_041_Заявление_Кузьмина, где "040" и "041" - номера. Т.е. например в самом документе я понимаю как найти, а вот возможно ли хотя бы принципиально сделать поиск по максимальной цифре в номерах документов среди какой-то папки - не представляю вообще как.

Надеюсь, кто-нибудь поймет суть) Спасибо за внимание)
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
11.01.2012, 17:12
Ответы с готовыми решениями:

Автоматическое создание номера документа
Добрый день. Подскажите пожалуйста, как создать автоматическое формирование номера документа. Грубо тот же счетчик, но своего формата. ...

Добавление приказов (doc файлы) к сотруднику. Автоматическое внесение: номера приказа,имени и фамилии и тд
Добрый день. Столкнулся с такой проблемой: необходимо крепить вордовский файл с внесением изменений. К примеру выбираем из комбо бокса...

Автоматическое заполнение табличной части документа при изменении реквизита этого документа
Здравствуйте. Делаю свою конфу на 1с 8.3.5. Добавил справочник "Сотрудники" и подчиненный ему справочник "КритерииОценки", где ...

7
15155 / 6428 / 1731
Регистрация: 24.09.2011
Сообщений: 9,999
11.01.2012, 17:26
Поищите по Dir или filesystemobject
1
0 / 0 / 0
Регистрация: 11.01.2012
Сообщений: 3
11.01.2012, 17:45  [ТС]
Это я нашел, спасибо. Например, на форуме есть поиск всех файлов и папок внутри директории. Но он производится так, что мы получаем данные о их наличии и можем использовать как, например, количественные. Но вот получив количество файлов как перейти к поиску наибольшей цифры в названии - непонятно.

Может быть, был на форуме(или еще где-нибудь видели) пример хоть какой-нибудь работы с названиями файлов? Равно как и в книжке по VBA Поиском такого найти, к сожалению, не удалось. Но интуиция говорит что ничего такого прям сложного-то в задаче нет. Правда делал что-то на Visual Basic'e... Очень много лет назад, поэтому надеюсь найти что-то близкое по смыслу, от чего уже можно было бы плясать.
0
 Аватар для chealbert
257 / 143 / 85
Регистрация: 13.10.2011
Сообщений: 454
11.01.2012, 17:45
Dir вытягивает по очереди имена файлов из каталога, а далее обрабатывать как текстовые данные: например, занести в масив, те которые начинаются с числа (можно поиграть Left и Cint) а затем найти максимальное (отсортировать)
1
0 / 0 / 0
Регистрация: 11.01.2012
Сообщений: 3
11.01.2012, 17:47  [ТС]
Опс. Я понял, спасибо) Виноват)

Тему, наверное, можно закрыть)
0
 Аватар для KoGG
5640 / 1622 / 418
Регистрация: 23.12.2010
Сообщений: 2,430
Записей в блоге: 1
12.01.2012, 09:59
Вот шаблон с процедурой AutoNew
Вложения
Тип файла: zip Шаблон_Автонумерация.zip (11.9 Кб, 32 просмотров)
0
 Аватар для KoGG
5640 / 1622 / 418
Регистрация: 23.12.2010
Сообщений: 2,430
Записей в блоге: 1
12.01.2012, 10:26
Добавлено: ChDir
Вложения
Тип файла: zip Шаблон_Автонумерация.zip (12.0 Кб, 17 просмотров)
0
 Аватар для KoGG
5640 / 1622 / 418
Регистрация: 23.12.2010
Сообщений: 2,430
Записей в блоге: 1
18.01.2012, 13:34
Добавлен FileDialog для ввода полного нового имени.
Вложения
Тип файла: zip Шаблон_Автонумерация.zip (13.3 Кб, 20 просмотров)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
18.01.2012, 13:34
Помогаю со студенческими работами здесь

Автоматическое создание документа на основании другово документа
У меня возникла проблема, как сделать так чтобы при создании Документа1 создавались и заполнялись данные в Документе 2 и Документе 3, а...

Автоматическое выделение следующего элемента в ListBox
Здравствуйте. На форме есть ListBox шириной в одну строку. Нужно сделать так, чтобы при клике мышкой по стрелочкам вверх или вниз на...

Автоматическое заполнение документа
Доброго времени суток!!! Задача сделать функционал по "авто заполнению" текстового документа для дальнейшей печати. Формат коечного файла...

Автоматическое заполнение документа
Всем добрый день, народ подскажите или пошлите по ссылке, где почитать по такому вопросу: Страничка-анкета на HTML, при ее заполнении все...

Добавление следующего по индексу элемента в listBox
Здравствуйте. Подкажите пожалуйста, как сделать так, чтобы при вводе слова в текст бокс, выбирались все совпадения, + элемент со следующим...


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

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Новые блоги и статьи
Символьное дифференцирование
igorrr37 13.02.2026
/ * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image
8Observer8 10.02.2026
Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .
Установка Qt-версии Lazarus IDE в Debian Trixie Xfce
volvo 10.02.2026
В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru