Total Commander Forum Index Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB
 
 RulesRules   SearchSearch   FAQFAQ   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Script Request
Goto page Previous  1, 2, 3 ... 40, 41, 42
 
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander printer-friendly view
View previous topic :: View next topic  
Author Message
Monarch-LFV



Joined: 22 Jul 2019
Posts: 227

Post (Separately) Posted: Wed May 25, 2022 10:45    Post subject: Reply with quote

ZZZAlexZZZ
"Свои хотелки" имеется ввиду в блоке "ПРАВИЛА ПЕРЕИМЕНОВАНИЯ" (специально выделил строками "==========").
Можно и регулярку менять, и дописывать свои правила (второе, третье, и т.д.) в зависимости от поставленной задачи. Если вы не заметили, там кроме регулярки еще меняются знаки подчеркивания на пробелы командой replace и задвоенные пробелы (в цикле).
Back to top
View user's profile Send private message
ZZZAlexZZZ



Joined: 08 Mar 2014
Posts: 68

Post (Separately) Posted: Wed May 25, 2022 13:37    Post subject: Reply with quote

Monarch-LFV
Можно пару примеров?
Например, второе - заменить 123 на 321, третье - заменить мама рама на Мама Рама.
Back to top
View user's profile Send private message
Monarch-LFV



Joined: 22 Jul 2019
Posts: 227

Post (Separately) Posted: Wed May 25, 2022 14:08    Post subject: Reply with quote

ZZZAlexZZZ
Если конкрено так, то так:
Code:
fn=replace(fn, "123", "321")
fn=replace(fn, "мама рама", "Мама Рама")
Back to top
View user's profile Send private message
ZZZAlexZZZ



Joined: 08 Mar 2014
Posts: 68

Post (Separately) Posted: Wed May 25, 2022 15:42    Post subject: Reply with quote

Monarch-LFV
Понял, спасибо. Почудилось что есть способ с регулярками без replace и дублирования

Code:

objRegEx.Pattern = "[^\wА-Яа-яёЁ ]"
    objRegEx.Global = True
Back to top
View user's profile Send private message
WindR



Joined: 21 Dec 2019
Posts: 35

Post (Separately) Posted: Wed Mar 29, 2023 21:45    Post subject: Reply with quote

Flasher wrote:
По запросу:
Code:
'============================= VBS =============================
' Выделение всех объектов между двумя выделенными (включительно)
' Условие: необходим компонент TCScript.dll 1.0.0.14+
' Параметры: %S [/p:<ms>]
' Ключ /p:<ms> задаёт задержку в миллисекундах (40 по умолчанию)
'========================================== Автор: Flasher © ===
Option Explicit : Dim A, TCH, M, Check : Set A = WSH.Arguments
Set TCH = CreateObject("TCScript.Helper")
If A.UnNamed.Count <> 2 Then Quit "Выберите 2 объекта!"
M = A.Named("p") : If IsEmpty(M) Then M = 40
With TCH
  .Pause = 0 : .LockTC True : Cm(2049)(2056)
  Check = StrComp(A(0), .GetInfo("SN"), 1) <> 0
  If Check Then Cm(2053) End If : Cm(544)
  If Check Then Cm(2056) : .SendKeyStroke "+^{HOME}" : .Sleep M
  Cm(2057) : Check = StrComp(A(1), .GetInfo("SN"), 1)
  If Check = 0 Then Cm(544) Else Cm(2054)(2937) : .SendKeyStroke "+{End}" : .Sleep M
  Cm(525) : If Check <> 0 Then Cm(2054) End If  : .LockTC False
End With: Set TCH = Nothing
Function Cm(n) TCH.SendCommand n, 1 : Set Cm = GetRef("Cm") End Function

Sub Quit(Msg)
  With TCH
    Dim Color : .LockTC False
    Color = .INIRead(.MainINI, "Colors", "BackColor", "16777215")
    If Color = "-1" Then Color = 16777215
    CreateObject("Internet.HHCtrl").TextPopup Msg,_
    .INIRead(.MainINI, "AllResolutions", "FontNameTip", "Verdana") &","&_
    .INIRead(.MainINI, "AllResolutions", "FontSizeTip", "10"), 20, 10,_
    Abs(.INIRead(.MainINI,"Colors","ForeColor","-1")), Color
    WSH.Sleep 2000 : Set TCH = Nothing : WSH.Quit
  End With
End Sub


На Windows 11 22H2 строка
Code:
If A.Named.Exists("a") - ((Split(Split(FSO.OpenTextFile(WSS.Environment("Process")("COMMANDER_INI"))._
ReadAll, "LastSearchOptions=")(1), vbCr)(0) And 1024) = 0) = 0 Then Keys = "{TAB 6} "

выдаёт ошибку

Script: C:\TCPU\Scripts\search.vbs
Line: 11
Char: 1
Error: Subscript out of range: '[number: 1]'
Code: 800A0009
Source: Microsoft VBScript runtime error
Back to top
View user's profile Send private message
Avada



Joined: 01 Aug 2008
Posts: 10236
Location: Россия, Саратов

Post (Separately) Posted: Thu Mar 30, 2023 07:10    Post subject: Reply with quote

WindR
Автор интересующего скрипта на этом форуме, к сожалению, ответить вам не сможет. Возможно. захочет разбираться на Windows 11 кто-то ещё, ждите. А на скрипт, приведённый в текущей теме, достаточно было дать ссылку, а не цитировать его весь (см, прикреплённую памятку).
_________________
Даже самая богатая фантазия
Не представит себе наши безобразия.
Back to top
View user's profile Send private message
sa



Joined: 29 Apr 2009
Posts: 2563

Post (Separately) Posted: Thu Mar 30, 2023 10:13    Post subject: Reply with quote

WindR
Начиная c этого сообщения, выложено с десяток кнопок (с использованием утилиты TCFS2) для решения той же задачи, что указана в шапке скрипта. Выбирайте!
Back to top
View user's profile Send private message
Batya



Joined: 15 Dec 2004
Posts: 2218
Location: Москва, Россия

Post (Separately) Posted: Wed Apr 05, 2023 12:39    Post subject: Reply with quote

WindR
Что-то меня с возрастом стало подводить зрение... В приведённом скрипте не вижу процитированную ниже строку.
_________________
Нет, я не сплю. Я просто медленно моргаю.
Back to top
View user's profile Send private message
sa



Joined: 29 Apr 2009
Posts: 2563

Post (Separately) Posted: Wed Apr 05, 2023 14:15    Post subject: Reply with quote

Batya
Наверное, эта строка ошибочно взята из другого скрипта на 40-ой странице.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander All times are GMT + 4 Hours
Goto page Previous  1, 2, 3 ... 40, 41, 42
Page 42 of 42

 
Jump to:  
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


Powered by phpBB © 2001, 2005 phpBB Group