Gets the common parts in all paths

[Davider]

Here is the Powershell code

Can anyone provide a simpler QM equivalent code?  
 

Code:

Copy      Help

$s = @'
C:\Users\Administrator\hello
C:\Users\Administrator\hello\B
C:\Users\Administrator\hello\C\a.bat
C:\Users\Administrator\hello\B\1.txt
C:\Users\Administrator\Desktop\Test0\DEF\A
C:\Users\Administrator\Desktop\Test0\DEF\B
C:\Users\Administrator\Desktop\Test0\DEF\1.txt
C:\Users\Administrator\Desktop\Test0\DEF\2.txt
'@

$s = $s -split "\r?\n"
for ($i = 0; $i -lt $s.length; $i++)
{
    if (!(gv a 2>$null))
    {
        for ($j = 0; $j -lt $s[$i + 1].length; $j++)
        {
            if (($s[$i][0 .. $j] -join '') -ne ($s[$i + 1][0 .. $j] -join '')) { $a = $s[$i][0 .. ($j - 1)] -join ''; break }
        }
    }
    if ($s[$i + 1] -notmatch [regex]::Escape($a)) { $a; rv a }
}

---