Перейти к публикации

Виртуальные компоненты


Рекомендованные сообщения

17 минут назад, Kelny сказал:

 

Имя одного компонента можно и ручками поправить, тут задача стояла как раз таки во всех разных виртуальных компонентах убрать приписку "Копия " впереди.

Если поменяет один, то легко будет сделать поменять во всех. Я это имел ввиду.

Изменено пользователем brigval
Ссылка на сообщение
Поделиться на других сайтах


20 часов назад, Kelny сказал:

Есть рабочий пример в справке

Да, вроде сработало. Потестирую немного, посмотрю, не восстанавливает ли там опять имена.

Немного еще подкрутил код. Сперва я поставил условие, что нет ли в OldName "Копия ". Но получается если использовать Replace, то "Копия " может встретиться и в имени сборки, и тогда элемент раз за разом попадает в переименование. Хоть в итоге он и не переименовывается, но время на это уходит. Один компонтент обрабатывает секунд 10-15 (видимо ему требуется открытие или еще что...)

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

Пока все слишком железно по коду, но вроде работает и быстро.

        OldName = swChild.Name2
        
        'If InStr(OldName, "Копия ") <> 0 Then
        If Left(OldName, 6) = "Копия " Then
            'NewName = "123 " & OldName
            NewName = Replace(OldName, "Копия ", "")
            Debug.Print "OldName = " + OldName
            Debug.Print "NewName = " + NewName
            Debug.Print ""
            swChild.Name2 = NewName
        End If

 

Буду наблюдать. Но сейчас он действительно правит и имена и описание и пр.

Ссылка на сообщение
Поделиться на других сайтах

Присоединяйтесь к обсуждению

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

Гость
Ответить в тему...

×   Вставлено в виде отформатированного текста.   Вставить в виде обычного текста

  Разрешено не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отобразить как ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставить изображения напрямую. Загрузите или вставьте изображения по ссылке.

  • Сейчас на странице   0 пользователей

    Нет пользователей, просматривающих эту страницу.




×
×
  • Создать...