[Цитировать]

    Ander_73
  • 15549
  • Стаж: 7 лет 11 месяцев
  • Сообщений: 3939
  • Репутация:127

    [+] [-]
bighead, ag
Совершенно непонятно, почему не отработалась смена кодовой страницы...
Но зато я углядел в этой мешанине конкретный глюк, спасибо!

[Цитировать]

    Ander_73
  • 15549
  • Стаж: 7 лет 11 месяцев
  • Сообщений: 3939
  • Репутация:127

    [+] [-]
Тест.
Усугубление версиоза: попытка найти и определить версию установленного в системе Офиса.
У меня нет "испытательной базы", поэтому если всё глючно и неправильно, просьба сигнализировать.
Скачать

УПД: Рабочая ссылка ниже в теме.


Последний раз редактировалось: Ander_73 (2024-12-27 13:08), всего редактировалось 1 раз

[Цитировать]

    sergeysvirid
  • 104
  • Стаж: 10 лет
  • Сообщений: 2615
  • Репутация:127

    [+] [-]
  • Откуда: 65 регион (GMT+11)
104682попытка найти и определить версию установленного в системе Офиса.
Ander_73,
Привет! aa
Да вроде всё верно показывает. ay

[Цитировать]

    Ander_73
  • 15549
  • Стаж: 7 лет 11 месяцев
  • Сообщений: 3939
  • Репутация:127

    [+] [-]
sergeysvirid, aa
Это хорошо! Спасибо за тесты fr
Опять правка: таки не работает в среде х86 как надо, таки пришлось перезапуск добавлять...
Скачать

Комментарий от sergeysvirid


Спасибо, перезакачал az

[Цитировать]

    bighead
  • 29484
  • Стаж: 3 года 2 месяца
  • Сообщений: 423
  • Репутация:24

    [+] [-]
Ander_73, а какие версии офиса он детектит?

Картинка

Поиск установленного офиса висит 8 сек каждый раз. Мой 2013 офис не находит al

Картинка

Win10 22H2

[Цитировать]

    Ander_73
  • 15549
  • Стаж: 7 лет 11 месяцев
  • Сообщений: 3939
  • Репутация:127

    [+] [-]
bighead, я ж говорю: нету испытательной базы ac
У меня все компы с Мондой (правда, старой) и там всё ок, есессно. И пара древних с 2010 (там тоже детектит).
Вот код:
@echo off
for /f "delims=" %%a in (
'reg query HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall /f InstallLocation /s'
) do for /f "tokens=1,3 delims=\" %%b in ("%%a") do ^
if /i "%%b"=="HKEY_LOCAL_MACHINE" (set "off=%%a") else if /i "%%c"=="Microsoft Office" goto out
set "off="
:out
if defined off for /f "tokens=3" %%a in ('reg query "%off%" /v DisplayVersion') do set off=%%a
echo %off%
Проверь по скорости и детекту, плз. Если ок, то им и заменю.
Запускать ТОЛЬКО из подсистемы х64 (никаких Тоталей х86, мать их...)

[Цитировать]

    bighead
  • 29484
  • Стаж: 3 года 2 месяца
  • Сообщений: 423
  • Репутация:24

    [+] [-]
Ander_73, этот практически сразу срабатывает, но 13 офис не нашёл
Добавлено через 5 минут 57 секунд:
Ander_73, ради интереса глянул вручную, у меня удалятора офиса запись реестра тут вот:
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\ProPlusRetail - ru-ru

Картинка

[Цитировать]

    Ander_73
  • 15549
  • Стаж: 7 лет 11 месяцев
  • Сообщений: 3939
  • Репутация:127

    [+] [-]
bighead, понял, спасибо.
Я нашёл у себя комп с 2013 - детектит штатно.
Но у меня стандартный путь установки: "C:\Program Files\Microsoft Office"
А у тебя "C:\Program Files\Microsoft Office 15" - это нечто, конечно... think
Добавлено через 7 минут 6 секунд:
Замени
if /i "%%c"=="Microsoft Office" goto out
на
echo "%%c"| >nul find "Microsoft Office"&& goto out
сильно медленнее будет? Хотя, это уже костыли, конечно...

[Цитировать]

    bighead
  • 29484
  • Стаж: 3 года 2 месяца
  • Сообщений: 423
  • Репутация:24

    [+] [-]
Ander_73, вроде с репака кролика ставил)
Визио тут.
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\VisioProRetail - ru-ru

Office installer детектит оба.


Добавлено через 13 минут 20 секунд:
Всё отлично)
Чуток дольше получается, но быстрее, чем первый вариант. 2 секунды))
Запустил несколько раз, первый раз после уже определения версии небольшая пауза была, сейчас сразу к меню переходит.

Картинка

[Цитировать]

    Ander_73
  • 15549
  • Стаж: 7 лет 11 месяцев
  • Сообщений: 3939
  • Репутация:127

    [+] [-]
104693Чуток дольше получается, но быстрее, чем первый вариант. 2 секунды))
Запустил несколько раз, первый раз после уже определения версии небольшая пауза была, сейчас сразу к меню переходит.
Ну, понятно, закешировалось ab
Первый вариант - это вообще "проба пера", просто получится или нет. Получается пока не очень...

[Цитировать]

    Ander_73
  • 15549
  • Стаж: 7 лет 11 месяцев
  • Сообщений: 3939
  • Репутация:127

    [+] [-]
Бодание с поиском офиса: оптимизация скорости.
Скачать

[Цитировать]

    vovan1982
  • 214
  • Стаж: 9 лет
  • Сообщений: 1146
  • Репутация:78

    [+] [-]
  • Откуда: Ростов-на-Дону
Ander_73, aa. Сканирует на моем старичке буке практически мгновенно (около секунды) и детектит на нем 2013 Офис.

[Цитировать]

    bighead
  • 29484
  • Стаж: 3 года 2 месяца
  • Сообщений: 423
  • Репутация:24

    [+] [-]
Ander_73, проверил на другом компе с 13 офисом, всё мгновенно определяет)

[Цитировать]

    Ander_73
  • 15549
  • Стаж: 7 лет 11 месяцев
  • Сообщений: 3939
  • Репутация:127

    [+] [-]
vovan1982, bighead, камрады, спасибо за тесты! fr
---
Надо ещё учитывать, что надпись видна не только во время поиска офиса, но и скачивания (и парсинга) "простынки" с текущими версиями офиса. Значит, общая скорость работы теперь приемлемая ab

[Цитировать]

    Gerd
  • 38295
  • Стаж: 21 день
  • Сообщений: 12
  • Репутация:1

    [+] [-]
Ander_73, проверил на своём компьютере. Офис 2007 сразу нашёл. Спасибо!

Страница 3 из 6


Показать сообщения:    

Текущее время: 18-Янв 10:43

Часовой пояс: UTC + 3


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