View previous topic :: View next topic |
Author |
Message |
Monarch-LFV
Joined: 22 Jul 2019 Posts: 240
|
(Separately) Posted: Wed May 25, 2022 10:45 Post subject: |
|
|
ZZZAlexZZZ
"Свои хотелки" имеется ввиду в блоке "ПРАВИЛА ПЕРЕИМЕНОВАНИЯ" (специально выделил строками "==========").
Можно и регулярку менять, и дописывать свои правила (второе, третье, и т.д.) в зависимости от поставленной задачи. Если вы не заметили, там кроме регулярки еще меняются знаки подчеркивания на пробелы командой replace и задвоенные пробелы (в цикле). |
|
Back to top |
|
|
ZZZAlexZZZ
Joined: 08 Mar 2014 Posts: 68
|
(Separately) Posted: Wed May 25, 2022 13:37 Post subject: |
|
|
Monarch-LFV
Можно пару примеров?
Например, второе - заменить 123 на 321, третье - заменить мама рама на Мама Рама. |
|
Back to top |
|
|
Monarch-LFV
Joined: 22 Jul 2019 Posts: 240
|
(Separately) Posted: Wed May 25, 2022 14:08 Post subject: |
|
|
ZZZAlexZZZ
Если конкрено так, то так:
Code: | fn=replace(fn, "123", "321")
fn=replace(fn, "мама рама", "Мама Рама") |
|
|
Back to top |
|
|
ZZZAlexZZZ
Joined: 08 Mar 2014 Posts: 68
|
(Separately) Posted: Wed May 25, 2022 15:42 Post subject: |
|
|
Monarch-LFV
Понял, спасибо. Почудилось что есть способ с регулярками без replace и дублирования
Code: |
objRegEx.Pattern = "[^\wА-Яа-яёЁ ]"
objRegEx.Global = True
|
|
|
Back to top |
|
|
WindR
Joined: 21 Dec 2019 Posts: 35
|
(Separately) Posted: Wed Mar 29, 2023 21:45 Post subject: |
|
|
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 |
|
|
Avada
Joined: 01 Aug 2008 Posts: 10280 Location: Россия, Саратов
|
(Separately) Posted: Thu Mar 30, 2023 07:10 Post subject: |
|
|
WindR
Автор интересующего скрипта на этом форуме, к сожалению, ответить вам не сможет. Возможно. захочет разбираться на Windows 11 кто-то ещё, ждите. А на скрипт, приведённый в текущей теме, достаточно было дать ссылку, а не цитировать его весь (см, прикреплённую памятку). _________________ Даже самая богатая фантазия
Не представит себе наши безобразия. |
|
Back to top |
|
|
sa
Joined: 29 Apr 2009 Posts: 2593
|
(Separately) Posted: Thu Mar 30, 2023 10:13 Post subject: |
|
|
WindR
Начиная c этого сообщения, выложено с десяток кнопок (с использованием утилиты TCFS2) для решения той же задачи, что указана в шапке скрипта. Выбирайте! |
|
Back to top |
|
|
Batya
Joined: 15 Dec 2004 Posts: 2219 Location: Москва, Россия
|
(Separately) Posted: Wed Apr 05, 2023 12:39 Post subject: |
|
|
WindR
Что-то меня с возрастом стало подводить зрение... В приведённом скрипте не вижу процитированную ниже строку. _________________ Нет, я не сплю. Я просто медленно моргаю. |
|
Back to top |
|
|
sa
Joined: 29 Apr 2009 Posts: 2593
|
(Separately) Posted: Wed Apr 05, 2023 14:15 Post subject: |
|
|
Batya
Наверное, эта строка ошибочно взята из другого скрипта на 40-ой странице. |
|
Back to top |
|
|
|
|
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
|