在AutoIt中重写一个字符串一次，但不是第二次

-1

我正在研究一些AutoIt代码来帮助我处理办公室恶作剧和东西。第一个字符串的作用是将字符串“shutdown pc00xxx”重写为shutdown /r /m pc00xxx /t 0，但我无法获得第二个字符串。在AutoIt中重写一个字符串一次，但不是第二次

我有以下代码：

func RunProc($string) 
    Local $command = StringLower($string) 
    Local $subs = StringMid($command, 1, 4) 
    Local $computer = StringInStr($command, "pc") 

    if $subs == "shut" Then 

     Run("shutdown /r /m " & StringMid($command, $computer) & " /t 0") 

    ElseIf $subs == "clos" Then 

     Local $prleft = StringTrimLeft($command, 6) 
     Local $extend = StringInStr($command, "on") 
     Local $pright = StringTrimRight($prleft, $extend) 
     Local $strclose = StringMid($string, $prleft, $pright) 
     Run("taskkill.exe /S "& StringMid($command, $computer) & " /im " & $strclose & ".exe") 
    EndIf

的问题是，我试图改写短语“CLOSE “东西” ON “pc00xxx” 是taskkill.exe/S pc00xxx/IM SOMETHING.exe ，我正在尝试获取“CLOSE”和“ON pc00xxx之间的子串”。

因此，举例来说，我会键入关闭Outlook ON PC00xxx和有$ a的值strclose是：

$strclose = outlook

来源

2016-11-10 wrichards0

试试这个：

$string = 'CLOSE OUTLOOK ON PC00xxx' 
$aMatch = StringRegExp($string, '(?i)close (.+) on pc.+', 1) 
If IsArray($aMatch) Then ConsoleWrite('App: ' & $aMatch[0] & @CRLF)

来源

2016-11-10 19:02:14 McBarby

另外，使用StringSplit：

$string = 'CLOSE OUTLOOK ON PC00xxx' 
$stringcomponents=StringSplit(StringStripWS($string,4)," ") 
$strclose=$stringcomponents

来源

2016-11-11 15:21:50 Richard

在AutoIt中重写一个字符串一次，但不是第二次

回答

相关问题