Get filename Regex quotation mark and slash issue

[jchd]

Aim at a moving target to make time pass away fast 😉

[jchd]

... and patience!

[Deye]

@unrealistic requests  (realistic now 😄)

$patt = "\w+(?=.exe)\.\w{3}"
_ArrayDisplay(StringRegExp($txt, '.*\w+ ' & $patt & '(*SKIP)(?!)|' & $patt, 3))

 

Edited February 28, 2020 by Deye

[youtuber]

@mikell 

Your pattern returns two .exe.exe

Testasdf!^+%&()=_ .exe.exe Testblabla!^+%&()=_.exe.exe

 

This is the better working solution for me.

but it won't work if an exe name looks like this Testasdf!^+%&()=_.exe

#include <File.au3>

Local $FileSearch = _FileListToArray(@ScriptDir & "\", "*.exe", 1)
If Not @error Then
    For $i = 1 To $FileSearch[0]
        ;but it won't work if an exe name looks like this Testasdf!^+%&()=_.exe
        $aRegex = StringRegExp($FileSearch[$i], '(?i)([^"]+)(?=.exe)\.\w{2,3}', 3)
        If IsArray($aRegex) Then
            _ChangeEXEnameINau3($aRegex[0])
        EndIf
    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, '[^"]+(?=\.exe"(?:\h|\)))', $aFileNameExe)
            $Open = FileOpen($Au3_path, 2)
            FileWrite($Open, $sRegexRep)
            FileClose($Open)
        Next
    EndIf
EndFunc   ;==>_ChangeEXEnameINau3

 

[Deye]

just add more combos they are supported 

$patt = "\w+(?=.exe)\.\w{3}"
_ArrayDisplay(StringRegExp($var, '.*\w ' & $patt & '(*SKIP)(?!)|' & $patt &'|\w+[ -_]+(?=.exe)\.\w{3}', 3))

 

[youtuber]

Thank you all

Exactly like I want

#include <File.au3>

Local $FileSearch = _FileListToArray(@ScriptDir & "\", "*.exe", 1)
If Not @error Then
    For $i = 1 To $FileSearch[0]
        $aRegexRep1 = StringRegExpReplace($FileSearch[$i], '^.*\\|\.[^.]*$',"")
            _ChangeEXEnameINau3($aRegexRep1)
    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)
            $bRegexRep2 = StringRegExpReplace($Read, '[^"]+(?=\.exe"(?:\h|\)))', $aFileNameExe)
            $Open = FileOpen($Au3_path, 2)
            FileWrite($Open, $bRegexRep2)
            FileClose($Open)
        Next
    EndIf
EndFunc   ;==>_ChangeEXEnameINau3

 

 

Edited February 28, 2020 by youtuber

[mikell]

4 minutes ago, youtuber said:

Exactly like I want

Hurray !