Импорт из Excel, смена произвольных свойств объекта

Импорт из Excel, смена произвольных свойств объекта

Сообщение vito » Ср ноя 06, 2019 5:33 pm

В карточке товаров произвольные свойства есть ссылка на товар на сайте,все ссылки водил вручную при создании товара.
Адрес сайта поменялся, при импорте из XL произвольные свойства ссылка на товар не проставляется.
А нужно поменять как можно это зделать.
vito
 
Сообщения: 6
Зарегистрирован: Ср ноя 06, 2019 5:13 pm

Re: Импорт из Excel, смена произвольных свойств объекта

Сообщение dmitry » Ср ноя 06, 2019 6:36 pm

1. Скопировать текст ниже.
2. В программе нажать клавиши Ctrl+F10.
3. Вставить текст, изменить старое название и новое название на свои реальные, нажать ОК.

Код: Выделить всё
Const OldName As String = "Supershop.com.ua"
Const NewName As String = "Megashop.com.ua"

Dim R As Predpr.TableSQL, Str As String, TbStr As String
TbStr = "SELECT Val_3, counter FROM ArticleParams WHERE Val_3 Like '%" & OldName  & "%'"
R = DB.OpenRecordset(TbStr, , True, "ArticleParams")
Do While Not R.EOF
Str = R("Val_3")
R.Edit()
R("Val_3") = Str.Replace(OldName, NewName)
R.Update()
R.MoveNext()
Loop
R.Close()


Или загрузить маленький модуль (вложение внизу), извлечь из него файл в папку программы,
в главном окне программы появится соотв. кнопка (если не появится, щелкнуть там на пустом фоне ПКМ - "Создать ярлык"),
нажать ее - все будет понятно.

1.png
1.png (7.92 КБ) Просмотров: 874
Вложения
Заменить_значение_извлечь.rar
(3.38 КБ) Скачиваний: 58
dmitry
Разработчик
 
Сообщения: 3724
Зарегистрирован: Чт янв 27, 2011 3:43 pm

Re: Импорт из Excel, смена произвольных свойств объекта

Сообщение vito » Чт ноя 07, 2019 3:10 pm

Текстовый формат произвольных свойств меняет, формат файл, ссылка неменяет.
vito
 
Сообщения: 6
Зарегистрирован: Ср ноя 06, 2019 5:13 pm

Re: Импорт из Excel, смена произвольных свойств объекта

Сообщение dmitry » Чт ноя 07, 2019 4:00 pm

Текст с небольшими изменениями, действия с ним те же.

Код: Выделить всё
Const OldName As String = "Supershop.com.ua"
Const NewName As String = "Megashop.com.ua"

Dim R As Predpr.TableSQL, Str As String, TbStr As String
TbStr = "SELECT Val_5, counter FROM ArticleParams WHERE Val_5 Like '%" & OldName  & "%'"
R = DB.OpenRecordset(TbStr, , True, "ArticleParams")
Do While Not R.EOF
Str = R("Val_5")
R.Edit()
R("Val_5") = Str.Replace(OldName, NewName)
R.Update()
R.MoveNext()
Loop
R.Close()
dmitry
Разработчик
 
Сообщения: 3724
Зарегистрирован: Чт янв 27, 2011 3:43 pm

Re: Импорт из Excel, смена произвольных свойств объекта

Сообщение vito » Пт ноя 08, 2019 8:59 am

Большое спасибо получилось. А ещё из файла XL добавить ссылки новым товарам штобы не вводить вручную.
vito
 
Сообщения: 6
Зарегистрирован: Ср ноя 06, 2019 5:13 pm

Re: Импорт из Excel, смена произвольных свойств объекта

Сообщение dmitry » Пт ноя 08, 2019 9:32 am

Для новых товаров дополнительные свойства заполнятся.
dmitry
Разработчик
 
Сообщения: 3724
Зарегистрирован: Чт янв 27, 2011 3:43 pm


Вернуться в Использование программы

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 6

cron