[CDR 2024] Автоматическое переименование файлов
- Автор темы Иван 1965
- Дата начала
Избавились от одной строки, а взамен написали целых пять. Такая себе оптимизация.
Весь цикл можно проще написать:
Do
fullFileName = folderPath & baseFileName & IIf(fileIndex = 0, "", fileIndex) & fileExt
fileIndex = fileIndex + 1
Loop Until Dir(fullFileName) = ""
- Сообщения
- 12 976
- Реакции
- 3 841
Потому что оплата сдельная. Чем больше написал, тем больше получил. 
- Сообщения
- 34 006
- Реакции
- 11 123
Судя по экспоненциальному росту размеров современных приложений, индусам риса выдают пропорционально логарифму того что накодили за деньПотому что оплата сдельная. Чем больше написал, тем больше получил.
- Сообщения
- 34 006
- Реакции
- 11 123
Чем драчувать лишние строки в цикле, лучше скажите - а нормальную валидацию ввода числовых целых и дробных полей ввода в VBA еще не придумали? А то, понимаешь, космические корабли бороздят просторы исскуственного интеллекта, а чтобы нормально ввести число 0.5 чтобы в соседнем поле ввелось число 2*0.5=1.0 (и наоборот) с фильтром - приходится колхозить какой то бином Ньютона... 
В VBA (Visual Basic for Applications) можно использовать событие KeyPress или KeyDown для фильтрации вводимых символов в TextBox. Это позволяет контролировать, какие символы могут быть введены пользователем.
Если нужно разрешить ввод только определенных символов (например, цифр, точек и запятых), можно использовать следующий код:
Код:
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
' Разрешаем только цифры, точку, запятую и Backspace
If Not ((KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 46 Or KeyAscii = 44) And KeyAscii <> 8 Then
KeyAscii = 0 ' Отменяем ввод символа
End If
End SubKeyAscii = 46 соответствует точке (.).
KeyAscii = 44 соответствует запятой (
.Эти примеры помогут вам настроить фильтрацию ввода в TextBox в зависимости от ваших требований.
- Сообщения
- 34 006
- Реакции
- 11 123
Да как символы фильтровать понятно - это вообще без KeyPress реализовать просто в OnChange. Я вообще про реализацию вменяемого числового поля ввода, связанного с другими, с механизмами превалидации, поствалидации и т.д. Неужели никто до сих пор такого готового не реализовал за многие десятилетия существования Майкрософтовского VBA?
Последнее редактирование модератором:
Похожая задача сейчас. Нужно экспортировать из корел множество объектов в JPG. Пользуюсь макросом "ExportToJPG", который я когда-то и нашёл на этом замечательном форуме. Но очень не хватает функции, чтобы к каждому имени файла добавлялось "_1", "_2", "_3" и так далее. Но в связи с тем, что подобные задачи появляются не каждый день, а от случая к случаю - за два года в коде не продвинулся. Пользуюсь тем, что есть.
Вложения
Как вариант, при каждом вводе символа можно проверять получившуюся строку на IsNumeric. Можно, конечно, возиться с Keypress, но тогда надо проверять, а была ли уже введена точка для дробного числа или пользователь вводит вторую точку. Опять же, введенную точку-разделитель для дробных частей нужно конвертировать в запятую для правильного перевода строки в число.
- Сообщения
- 34 006
- Реакции
- 11 123
Да можно, конечно, и я такое делал, вопрос в том, что в итоге все равно получается костыльная дичь, где нибудь вообще есть нормально реализованные числовые поля ввода на VBA или это какое то нетривиальное действие? Я уж не спрашиваю про готовые библиотеки, которых, как я понимаю, тоже в природе нету...
- Сообщения
- 2 457
- Реакции
- 2 362
приглашаем в кабинет оригинальный файл (Sancho позволил над ним издеваться), аккуратно вскрываем, накладываем пластырь от zollinger
... теперь только при эскпорте выделенного к имени JPG будет автоматом добавляться счётчик - без потверждения - _1, _2 ... и далее
при экспорте целиком страниц функционал без изменений.
...
и, кстати, Sancho предусмотрел ручное управление такими ситуациями
вот в это поле вполне можно руками вбивать свои "добавки"
Идея интересная. Попробую покопаться.
Подскажите, а в архиве Вы загрузили уже видоизменённый макрос? У меня корел (версия Х6, если что) не даёт загрузить именно эту версию. А тот, что я выше показывал, работает без проблем.
- Сообщения
- 2 457
- Реакции
- 2 362
VBA7 ... если у вас распоследний Х6 со всеми заплатами ( а их там около 6-7 - насколько я помню) - то должен. На этой версии как раз VBA обновлялось с 6 на 7.
Иначе придется "разбирать на атомы" и далее собирать обратно.
- Сообщения
- 2 457
- Реакции
- 2 362
- Сообщения
- 34 006
- Реакции
- 11 123
- Сообщения
- 2 457
- Реакции
- 2 362
ну да ...
всю эту партитуру - басы, теноры и фальцеты 1-го классаВсё зависит от того, что вы понимаете под словом "нормально". Кто-то ограничится проверкой "а число ли это вообще?" при выходе из текстбокса, а кто-то захочет контролировать ввод посимвольно, не разрешая вводить буквы и прочее, непохожее на цифры. В идеале можно сделать унаследованный от текстбокса класс, который будет отсеивать лишние символы, разрешая только то, что задано битами флагов.
- Сообщения
- 34 006
- Реакции
- 11 123
В идеале можно сделать все что угодно, но где они эти реализации? Я ни в одном макросе VBA не видел вменяемой реализации ввода числа с плавающей точкой, чтобы хотя б как в винапишном окне было
И как там в винапишном окне это всё происходит? Пользователь набирает цифры, набирает точку, набирает цифры после запятой и нажимает Ентер?