Total Commander

Loopback писал(а):Не могу подтвердить, у себя не вижу этих проблем.

Loopback писал(а):Тут еще и алгоритм неправильно работал.

Flasher писал(а):пустое значение касается только одиночного объекта. А в случае выделения одного объекта из нескольких должны подставляться соотв. ключи с одним индексом.

Flasher писал(а):Фокус в обоих режимах просмотра по-прежнему теряется.

Flasher писал(а):. Вспомнил наш старый разговор про выравнивание размера

Loopback писал(а):У меня не теряется

Loopback писал(а):возможно, нужно добавить задержку после запуска

Loopback писал(а):Раньше надо было вспоминать

Flasher писал(а):И в режиме окна тоже?

Flasher писал(а):Лучше сделать ожидание активации/смены фокуса. Аля WinWaitActive в AutoIt.

Flasher писал(а):Ещё у меня косячит подмена доменов, дублируя первые символы:

Loopback писал(а):Только в минимизированном состоянии.

Loopback писал(а):Слишком много усилий ради незначительного результата.

Loopback писал(а):Проверил на указанной замене - не дублируется...

Flasher писал(а):При чём тут окно клиента,

Flasher писал(а):для клиента, чтобы фокус при свёрнутом режиме в ТС оставался.

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

Flasher писал(а):Не зря я предлагал регулярку...

Loopback писал(а):Потому что из этого

Loopback писал(а):теперь повторил.

Loopback писал(а):Исправлю последний момент, наверно это решит проблему.

Flasher писал(а):Отсутствие фокуса?

Flasher писал(а):Ты меняешь реплейсом, а надо присвоением подстановочного значения переменной.

Loopback писал(а):всё решается гораздо проще.

Loopback писал(а):неважно как решать, главное чтобы работало.

Dom = "site2"
Var  = Array("site",  "newsiteX")
Var1 = Array("site1", "newsite1")
Var2 = Array("site2", "newsite2")
Var3 = Array("site3", "newsite3")

For Each i In Array(Var, Var1, Var2, Var3)
  NewDom = Replace(Dom, i(0), i(1))
  If NewDom <> Dom Then Exit For
Next
MsgBox "Неверный результат: " & NewDom

Select Case Dom
  Case Var1(0) NewDom = Var1(1)
  Case Var2(0) NewDom = Var2(1)
  Case Var3(0) NewDom = Var3(1)
End Select
MsgBox "Верный результат: " & NewDom

Flasher писал(а):с QuickView тоже

Flasher писал(а):VBS для примера

Loopback писал(а):Да.

Loopback писал(а):Ну, без индусского кода, конечно