Problem Regex + loop

[jerem488]

Hi all,

I have a folder with many files. I use a stringregexp to test and if the filename is OK I continue.

My 1st problem is here. The regexp does not take into account the beginning of the file name. The good file names are "C05-1702.TXT", "C08-0902.TXT", "Z1-1402.TXT" but not "Done_Z1-1402.TXT", "E4-1402.TXT"

$s_File = "Done_C08-14022023.TXT"

$Regex = StringRegExp($s_File, "(?i)[CZ]{1}\d+\-\d+\.txt", 0)
;~ ConsoleWrite(@extended & @LF)
If @error Then
    ConsoleWrite("ERROR" & @LF)
EndIf
If $Regex = 1 Then
    ConsoleWrite("OK" & @LF)
Else
    ConsoleWrite("NOK" & @LF)
EndIf

After this verification, if the name file is OK I execute the code, or else I continue with the next file in the folder :

ReadFile()
Func ReadFile()
    $s_Folder = @DesktopDir & "\Prog\Automat counting\"
    Local $a_Files = _FileListToArray($s_Folder, "*.txt", 1) ; C08-0902.TXT

    For $i = 1 To UBound($a_Files) -1
        ConsoleWrite("$a_Files[$i] :" & $a_Files[$i] & @LF)
        $b_Validation = StringRegExp($a_Files[$i], "(?i)[CZ]{1}\d+\-\d+\.txt", 0)
        If $b_Validation <> 1 Then ContinueLoop

        ; My code

    Next
EndFunc

Thank you

Edited April 4, 2023 by jerem488

[Jos]

12 minutes ago, jerem488 said:

but not "Done_Z1-1402.TXT", "E4-1402.TXT"

Just add a ^ to the regex: "(?i)^[CZ]{1}\d+\-\d+\.txt" so it will have to start with C or Z

[SOLVE-SMART]

Hi @jerem488,

the return value of StringRegEx (for flag = 0) is 1 (match) or 0 (no match), so please try this instead with the suggestion of @Jos above

If $b_Validation Then
    ContinueLoop
EndIf

; Or

If Not $b_Validation Then
    ContinueLoop
EndIf

Best regards
Sven

Edited April 4, 2023 by SOLVE-SMART

[jerem488]

I'm sorry I really don't have a head! But I've been thinking! I'm used to this language

 

Thanks you guys

[rudi]

There is a very nice tool to learn and use RegEx, At the vendors home page there is also really nice stuff to read up.

 

https://www.regexbuddy.com/ 

 

Not freeware, but valuable, I use it almost every day 😉

[jchd]

Also free and very valuable is RegExp which allows step-by-step debugging, among other niceties.

[rudi]

@jchd bookmarked 👍