VBScript для поиска двух строк в TXT
Этот бит PowerShell действительно меняет настройки реестра, но он не меняет поведение моих ноутбуков при закрытии крышки. Использование powercfg делает то же самое, что и этот объект WMI.
По-видимому, в подсистеме реестра PowerButtons and Lid есть 2 разных набора записей в реестре.
Этот скрипт и одинаковые команды в powercfg, измените эту подгруппу в пределах от Power Options >> Advanced Settings до Do Nothing (или Sleep или Hibernate или любой номер опции из 0 - 3, который вы установили), но в пределах фактических настроек панели управления для Change what the power buttons do и Change what closing the lid does не затронуты.
Если я использую powercfg или аналогичный сценарий PS для того, что было написано выше, я могу на самом деле Change Plan Settings получить желаемое поведение для затемнения дисплея (или что-то еще). Я просто не могу найти ничего, что будет работать для подгруппы Power Buttons and Lid.
1 ответ
, если он не является частью более крупного vbscript, и у вас есть возможность загружать материалы, вы можете использовать инструмент обработки файлов, такой как gawk для Windows , например, один лайнер
C:\test> gawk "/Hallo123/{h=$0}/Test123/{t=$0}END{print h \"\n\" t}" file
27.07.2010 09:45 ... Hallo123 ... 'This Result
27.07.2010 09:45 ... Test123 ... 'And this Result
С vbscript используйте instr () для проверки каждой строки "Hallo123 "и" Test123 ", затем, если он найден, присвойте этой строке переменную. В конце итерации файла распечатайте эти 2 переменные.
пример поиска "Hallo"
Set objFS = CreateObject("Scripting.FileSystemObject")
'File to scan
strFile = "c:\test\file.txt"
'Pattern to search for, eg Hallo
strPattern = "Hallo"
Set objFile = objFS.OpenTextFile(strFile)
Do Until objFile.AtEndOfStream
strLine = objFile.ReadLine
If InStr(strLine,strPattern)>0 Then
WScript.Echo strLine
H=strLine
End If
Loop
Wscript.Echo H