[Quote]

    Ander_73
  • 15549
  • Longevity: 9 years 4 months
  • Posts: 4227
  • REPUTATION:127

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

[Quote]

    Ander_73
  • 15549
  • Longevity: 9 years 4 months
  • Posts: 4227
  • REPUTATION:127

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

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


Last edited by Ander_73 on 2024-12-27 13:08; edited 1 time in total

[Quote]

    sergeysvirid
  • 104
  • Longevity: 11 years
  • Posts: 2727
  • REPUTATION:127

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

[Quote]

    Ander_73
  • 15549
  • Longevity: 9 years 4 months
  • Posts: 4227
  • REPUTATION:127

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

Comment from sergeysvirid


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

[Quote]

    bighead
  • 29484
  • Longevity: 4 years 6 months
  • Posts: 435
  • REPUTATION:24

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

Картинка

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

Картинка

Win10 22H2

[Quote]

    Ander_73
  • 15549
  • Longevity: 9 years 4 months
  • Posts: 4227
  • REPUTATION: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, мать их...)

[Quote]

    bighead
  • 29484
  • Longevity: 4 years 6 months
  • Posts: 435
  • REPUTATION:24

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

Картинка

[Quote]

    Ander_73
  • 15549
  • Longevity: 9 years 4 months
  • Posts: 4227
  • REPUTATION: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
сильно медленнее будет? Хотя, это уже костыли, конечно...

[Quote]

    bighead
  • 29484
  • Longevity: 4 years 6 months
  • Posts: 435
  • REPUTATION:24

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

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


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

Картинка

[Quote]

    Ander_73
  • 15549
  • Longevity: 9 years 4 months
  • Posts: 4227
  • REPUTATION:127

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

[Quote]

    Ander_73
  • 15549
  • Longevity: 9 years 4 months
  • Posts: 4227
  • REPUTATION:127

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

[Quote]

    vovan1982
  • 214
  • Longevity: 11 years
  • Posts: 1191
  • REPUTATION:84

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

[Quote]

    bighead
  • 29484
  • Longevity: 4 years 6 months
  • Posts: 435
  • REPUTATION:24

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

[Quote]

    Ander_73
  • 15549
  • Longevity: 9 years 4 months
  • Posts: 4227
  • REPUTATION:127

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

[Quote]

    Gerd
  • 38295
  • Longevity: 1 year 5 months
  • Posts: 33
  • REPUTATION:2

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

Page 3 of 6


Display posts:    

Current time is: 10-Jun 00:27

All times are UTC + 3


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You cannot attach files in this forum
You can download files in this forum