Remove elements from array with arraysearch

[NizonRox]

Hi, i'm currently facing problems with understanding how arrays work, or atleast a few commands that alter arrays.

My current situation is:

1. I'm taking the process list and putting it all in an array
2. I want to remove the boring common windows processes
3. Profit

And i'm currently stuck on step 2, while i already found this thread it dosn't seem that i can make it do what i want.

Current code:

Local $PList = ProcessList()
Local $RL[6] = ["smss.exe", "csrss.exe", "svchost.exe", "iexplore.exe", "chrome.exe", "conhost.exe"]
Sleep(1)
For $i=1 To Ubound($RL)-1
   Sleep(1)
   While Not @Error
   $iIndex = _ArraySearch($PList, $RL[$i], 1, 0, 0, 1)
   _ArrayDelete($PList, $iIndex)
   WEnd
Next

It seems to remove all but smss.exe from the array list unless i have it two times in the array.

 

Note: The sleep(1) is there to clear the error else the command wont fire for the rest of the array, any other way of doing it?

[Juvigy]

because you do

For $i=1 To Ubound($RL)-1

instead of

For $i=0 To Ubound($RL)-1

[BrewManNH]

Also, you should do it this way instead.

For $i=Ubound($RL)-1 to 0 Step -1

Otherwise,  you'll find out you're deleting the wrong elements very quickly.

[NizonRox]

13 hours ago, BrewManNH said:

Also, you should do it this way instead.

For $i=Ubound($RL)-1 to 0 Step -1

Otherwise,  you'll find out you're deleting the wrong elements very quickly.

Thanks, i found out that it's going to be a hassel to remove all the processes i don't want in my array. So i was thinking if there is there a way to remove everything in my array that dosn't match another array?

[jchd]

Try this:

Local $PList = ProcessList()
;~ _ArrayDisplay($PList)
Local $RL = ["smss", "csrss", "svchost", "iexplore.exe", "chrome", "conhost"]
Local $sTabooP = "(?i)((?:" & _ArrayToString($RL) & ")(?:\.exe)?\*?)"
Local $sProc
For $i = 1 To UBound($PList) - 2
    $sProc &= $PList[$i][0] & '*'       ; use * as séparator
Next
$sProc &= $PList[$i][0]     ; no final séparator

Local $sUserP = StringRegExpReplace($sProc, $sTabooP, "")
Local $aUserP = StringSplit($sUserP, '*', 2)
_ArrayDisplay($aUserP)

 

[NizonRox]

13 minutes ago, jchd said:

Try this:

Local $PList = ProcessList()
;~ _ArrayDisplay($PList)
Local $RL = ["smss", "csrss", "svchost", "iexplore.exe", "chrome", "conhost"]
Local $sTabooP = "(?i)((?:" & _ArrayToString($RL) & ")(?:\.exe)?\*?)"
Local $sProc
For $i = 1 To UBound($PList) - 2
    $sProc &= $PList[$i][0] & '*'       ; use * as séparator
Next
$sProc &= $PList[$i][0]     ; no final séparator

Local $sUserP = StringRegExpReplace($sProc, $sTabooP, "")
Local $aUserP = StringSplit($sUserP, '*', 2)
_ArrayDisplay($aUserP)

 

This looks kind of caotic, mind explaining what to expect from this?

[jchd]

You asked for a solution to your problem and I provided a fairly good one. Did you at least bother to run it?

The idea is to avoid O(n*m) array lookup and m*ArrayDelete. First a list of processes is grabbed, then we build a string of process names delimited by * which can't be found in process names. The list of processes you don't want to see is also converted into a string, each being separated by |which is suited for a regexp pattern. It even makes the .exe suffix optional in taboo list, as you would have noticed if you had taken a few seconds to look at the code.

We now use the power of a regular expression to remove any taboo name from the process list, convert what remains back to an array and display it.

So care to explain what is "caotic" there?

[Bilgus]

@jcHD You are already using _ArrayToString why not for plist as well?

#include <array.au3>
;Local $PList = ProcessList()
;Local $sProc
;~ _ArrayDisplay($PList)
Local $RL = ["smss", "csrss", "svchost", "iexplore.exe", "chrome", "conhost"]
Local $sTabooP = "(?i)((?:" & _ArrayToString($RL) & ")(?:\.exe)?\*?)"
Local $sProc = _ArrayToString(ProcessList(),"|",1, Default,"*",0,0)
#cs
For $i = 1 To UBound($PList) - 2
    $sProc &= $PList[$i][0] & '*'       ; use * as séparator
Next
$sProc &= $PList[$i][0]     ; no final séparator
#ce
Local $sUserP = StringRegExpReplace($sProc, $sTabooP, "")
Local $aUserP = StringSplit($sUserP, '*', 2)
_ArrayDisplay($aUserP)

#include <array.au3>
Local $RL = ["smss", "csrss", "svchost", "iexplore.exe", "chrome", "conhost"]
Local $sTabooP = "(?i)((?:" & _ArrayToString($RL) & ")(?:\.exe)?\*?)"
Local $sProc = _ArrayToString(ProcessList(),"|",1, Default,"*",0,0)
Local $sUserP = StringRegExpReplace($sProc, $sTabooP, "")
Local $aUserP = StringSplit($sUserP, '*', 2)
_ArrayDisplay($aUserP)

 

Edited March 20, 2018 by Bilgus

[jchd]

Because the process list is a 2D array, with process name and PID. I've examplified how to obtain the list on non-taboo process names only, but it's a trivial change to obtain both the names and their PID. I didn't have AutoIt handy to check which parameters to pass to _ArrayToString to obtain the same result.