На главную страницу
Русский English
 


Поддержка
Форум
Техподдержка
Закрытый разделПерсональная

Авторизация

Запомнить меня на этом компьютере
  Забыли свой пароль?
  Регистрация



Поиск по сайту


Подписка

Изменение параметров

Hits 66852079
8182
Hosts 3525200
1340
Visitors 53088280
7991

69


Главная / Поддержка / Форумы / Макро

Форум «Макро»

Версия для печати Версия для печати

Список форумов
Новые темы
Список тем
Поиск по форумам
Помощь
Войти
Регистрация


Тема: «Вызов файлов из каталога » в форуме: Макро   Просмотров: 1290
 
Nick_A
Посетитель
 
Всего сообщений: 45
Дата регистрации: 30.09.2021
Создано: 29.01.2022 16:49:08
 
 
Добрый день. Собираю потихоньку макрос из кусочков того, что есть.
Выкопал в папке macro кусочек кода, который позволяет открывать поочередно все файлы в указанной папке и что-либо сделать:

Dim file : For Each file In ssfiles
Path = folder+"\"+file.name
Rastr.Load RG_REPL, Path, Shbl

'действие с каждым загруженным файлом
Rastr.rgm ""

for i=0 to spVetv.size - 1
a = a + spR.z(i)
Next

Next

Судя по протоколу Растр старательно открывает все файлы, лежащие в папке, рассчитывает УР, но вот в переменную а не складывает ничего, а должен бы сумму сопротивлений всех ветвей в данном случае. Если запустить цикл по ветвям с суммированием сопротивлний в одном отдельном файле, то результат получается. Не подскажете, в чем мб причина?
 
Профиль
Наверх
Евгений Машалов
Администратор

 
Всего сообщений: 1042
Дата регистрации: 23.04.2007
Создано: 30.01.2022 16:30:07
 
 
То что у Вас "spR" нужно запрашивать после загрузки каждого файла. После загрузки очередного файла взятые до того поля станут показывать в никуда. Такая вот трактовка COM.
 
Профиль
Наверх
Nick_A
Посетитель
 
Всего сообщений: 45
Дата регистрации: 30.09.2021
Создано: 30.01.2022 20:46:12
 
 
Ух ты! Как просто оказалось то... Спасибо)
 
Профиль
Наверх



Читают тему
гостей: 1, пользователей: 0, из них скрытых: 0


Список форумов
Новые темы
Список тем
Поиск по форумам
Помощь
Войти
Регистрация







Программный комплекс «RasrWin»
Программный комплекс «RastrWin»
© «RastrWin», 1988-2019