Get filename Regex quotation mark and slash issue

[youtuber]

I need to get the names Testasdf and Testblabla match

https://regex101.com/r/bnsgwG/1

I have done many trials, the regex pattern is very confused and the final pattern is  : (?i)^"*.(.*?)|.*(?=.exe)\.\w{2,3}.([^"]+)

[jchd]

What's the condition to not match myprogram as well?

If it's for getting program names w/o extension in this sample, use (?i)["\\]([^\\]*)\.exe"

Explain your complete requirements in full detail please.

Edited February 28, 2020 by jchd

[youtuber]

There I just need the names Testasdf.exe and Testblabla.exe.
except program.exe

I tried a little closer pattern but I failed

https://regex101.com/r/bnsgwG/2

[jchd]

Again, what's the condition to NOT match the other(s) .exe ???

[youtuber]

@jchd 

1 hour ago, jchd said:

(?i)["\\]([^\\]*)\.exe"

 

(?i)["\\]([^ \\]*)\.exe" ; Here is exactly the condition I want when there is one empty, an interesting empty 

https://regex101.com/r/BL19yc/2

Yes, this works fine for me, thanks, but can it cause problems for a more specific mess?

 

Edited February 28, 2020 by youtuber

[jchd]

Please be more specific! Your question is way too vague.

[youtuber]

I think I should narrow the rules.
for example

(?i)["\\]([^ \\]*)(?=.exe)\.\w{2,3}"

There is a regex pattern that works well for me here.
To understand me better.

https://regex101.com/r/BL19yc/2

Edited February 28, 2020 by youtuber

[jchd]

1 minute ago, youtuber said:

(?=.exe)\.\w{2,3}

There is redundancy here: you ask for the string .exe to follow the matchpoint and then you want it to match the pattern \.\w{2,3}

It's plain that .exe matches \.\w{2,3}

[jchd]

You get the same matches with (?i)["\\]([^ \\]+).exe"

[youtuber]

But if there is no empty, there is no match.

In this section ([^\\]+)
Thank you.

Works well for me

(?i)["\\]([^ \\]+).exe"
or
(?i)["\\]([^ \\]*)\.exe"
or
(?i)["\\]([^ \\]*)(?=.exe)\.\w{2,3}"

[jchd]

Do you encounter empty program names often, like "C:\chkfhi\.exe" ?

[youtuber]

No blank name.no problem.

 

[TheXman]

"\\?([\w ]+)(?=\.exe)

This should also work (with the following assumptions):

• file name will always be enclosed in double quotes
• file name will consist of only letters, number, underscores, and spaces
• file name will always end with .exe
• file name optionally begins with a "\" directly after the initial double quote

I left off the (?i) for case-insensitivity.  You can add it back if it's needed.

https://regex101.com/r/xYqThi/1

 

Edited February 28, 2020 by TheXman

[iamtheky]

That makes an assumption that the file name is not in a subdirectory as something like this in the last line is not captured

ShellExecute(@HomeDrive & "\Program Files\PROGRAMDIR\Program Dir\my program.exe", @ScriptDir & "\test\Testblabla.exe")

And the previous lot are equivalent to just acting on an exe with no spaces in the name

(?:\\|")\w*.exe

 

i would lean towards the trailing comma as the criteria to exclude "my program.exe" from the example.  In both the first Send command and the last Shellexecute,  the exe is in the last parameter.

[Malkey]

Here is a reply to your questions.

#include <Array.au3>

#cs
Send('BLA.CMD "Testasdf.exe" folder\file.txt asdf123')
Send('{enter}')
ShellExecute(@ScriptDir & "\folder\file.txt")

ShellExecute(@HomeDrive & "\Program Files\PROGRAMDIR\Program Dir\my program.exe", @ScriptDir & "\Testblabla.exe")
#ce

Local $sTestString = StringRegExpReplace(FileRead(@ScriptFullPath), "(?s)^.*?#cs\v+|\v+#ce.*$", "")
; ConsoleWrite($sTestString & @CRLF)

$a1 = StringRegExp($sTestString, '(?i)[\w\h]+(?=\.exe"(?:\h|\)))', 3) ; post #1, after results Testasdf and Testblabla
_ArrayDisplay($a1)

$a2 = StringRegExp($sTestString, '(?i)[\w\h]+\.exe(?="(?:\h|\)))', 3) ; post #3, after results Testasdf.exe and Testblabla.exe
_ArrayDisplay($a2)

ConsoleWrite(StringRegExpReplace($sTestString, '(?is).*?(?<= "|"\\)([\w\h]+)(\.exe"\h|\.exe"\)).*?', "\1" & ' ') & @CRLF)  ; post #1, after results Testasdf and Testblabla
ConsoleWrite("------------------" & @CRLF)
ConsoleWrite(StringRegExpReplace($sTestString, '(?is).*?(?<= "|"\\)([\w\h]+\.exe)("\h|"\)).*?', "\1" & @CRLF))   ; post #3, after results Testasdf.exe and Testblabla.exe

#cs ; Returns @ output console:-
Testasdf Testblabla
------------------
Testasdf.exe
Testblabla.exe
#ce

 

[mikell]

8 hours ago, iamtheky said:

i would lean towards the trailing comma as the criteria to exclude "my program.exe" from the example

I agree ... so this should work

#Include <Array.au3>

$txt = "Send('BLA.CMD ""Testasdf.exe"" folder\file.txt asdf123')" & @crlf & _ 
    "Send('{enter}')" & @crlf & _ 
    "ShellExecute(@ScriptDir & ""\folder\file.txt"")" & @crlf & _ 
    "ShellExecute(@HomeDrive & ""\Program Files\PROGRAMDIR\Program Dir\my program.exe"", @ScriptDir & ""\Testblabla.exe"")"

$res = StringRegExp($txt, '(\w+)\.exe(?!.*?,)', 3)
_ArrayDisplay($res)

 

[youtuber]

@mikell Your sample pattern doesn't work for this

#Include <Array.au3>

$txt = "Send('BLA.CMD ""Testasdf!^+%&()=_.exe"" folder\file.txt asdf123')" & @crlf & _
    "Send('{enter}')" & @crlf & _
    "ShellExecute(@ScriptDir & ""\folder\file.txt"")" & @crlf & _
    "ShellExecute(@HomeDrive & ""\Program Files\PROGRAMDIR\Program Dir\my program.exe"", @ScriptDir & ""\Testblabla!^+%&()=_.exe"")"

$res = StringRegExpReplace($txt, '(\w+)\.exe(?!.*?,)', 'Replacewith.exe')
MsgBox(0,"", $res)

 

I will use it for this

#include <File.au3>

Local $FileSearch = _FileListToArray(@ScriptDir & "\", "*.exe", 1)
If Not @error Then
    For $i = 1 To $FileSearch[0]
        _ChangeEXEnameINau3($FileSearch[$i])
    Next
EndIf

Func _ChangeEXEnameINau3($aFileNameExe)
    Local $aFileList = _FileListToArray(@ScriptDir & "\MyprojectAu3\", "*.au3", 1)
    If Not @error Then
        For $i = 1 To UBound($aFileList) - 1
            $Au3_path = @ScriptDir & "\MyprojectAu3\" & $aFileList[$i]
            $Read = FileRead($Au3_path)
            $sRegexRep = StringRegExpReplace($Read, '(\w+)\.exe(?!.*?,)', $aFileNameExe)
            $Open = FileOpen($Au3_path, 2)
            FileWrite($Open, $sRegexRep)
            FileClose($Open)
        Next
    EndIf
EndFunc   ;==>_ChangeEXEnameINau3

Edited February 28, 2020 by youtuber

[mikell]

54 minutes ago, youtuber said:

Your sample pattern doesn't work for this

It's because the file names contain non-word characters. Just replace in the expression \w  by  [^"] 

#Include <Array.au3>

$txt = "Send('BLA.CMD ""Testasdf!^+%&()=_.exe"" folder\file.txt asdf123')" & @crlf & _
    "Send('{enter}')" & @crlf & _
    "ShellExecute(@ScriptDir & ""\folder\file.txt"")" & @crlf & _
    "ShellExecute(@HomeDrive & ""\Program Files\PROGRAMDIR\Program Dir\my program.exe"", @ScriptDir & ""\Testblabla!^+%&()=_.exe"")"

$res = StringRegExpReplace($txt, '([^"]+)\.exe(?!.*?,)', 'Replacewith.exe')
MsgBox(0,"", $res)

 

[youtuber]

@mikell  , 1 Does not match when there is a comma at the end of $txt

#Include <Array.au3>

$txt = "Send('BLA.CMD ""Testasdf!^+%&()=_.exe"" folder\file.txt asdf123', 1)"
$res = StringRegExpReplace($txt, '([^"]+)\.exe(?!.*?,)', 'Replacewith.exe')
MsgBox(0,"", $res)

 

[mikell]

Hmm. jchd, was right, you must strictly define your requirements

Currently it seems that the best way is the concept from Malkey

#Include <Array.au3>

$txt = "Send('BLA.CMD ""Testasdf!^+%&()=_.exe"" folder\file.txt asdf123', 1)" & @crlf & _
    "Send('{enter}')" & @crlf & _
    "ShellExecute(@ScriptDir & ""\folder\file.txt"")" & @crlf & _
    "ShellExecute(@HomeDrive & ""\Program Files\PROGRAMDIR\Program Dir\my program.exe"", @ScriptDir & ""\Testblabla!^+%&()=_.exe"")"

$res = StringRegExpReplace($txt, '[^"]+(?=\.exe"(?:\h|\)))', 'Replacewith.exe')
MsgBox(0,"", $res)