Validate User Input Syntax (StringRegExp)

[gcue]

hi world
 

I am trying to validate user input as valid syntax

proper syntax is <any number><single letter>

single letter can only be d,w,m,q,y (for day, w, month, quarter, year)

this is what i have so far but not quite working 

$user_input = "499d" ;valid
$user_input = "499dd" ;not valid because syntax is only 1 letter
$user_input = "499r" ;not valid because character is not d,w,m,q,y
$user_input = "d334" ;not valid because syntax is number then letter
$user_input = "xyz" ;not valid because syntax is number then letter

$user_input = StringRegExp(StringStripWS($user_input, 8), "([0-9]*[d,w,m,q,y])", 3)

would like to provide an error if the syntax is not valid

thank you in advance!!

[jchd]

Try this:

Local $a = ["456w", "465dd", "456", "y45", "dwm"]

For $s In $a
    $valid = StringRegExp(StringStripWS($s, 8), "^\d+[dwmqy]$")
    ConsoleWrite($s & " is " & ($valid ? "" : "in") & "valid" & @LF)
Next

If you accept uppercase letters as well, use this pattern instead: "(?i)^[0-9]+[dwmqy]$"

Edited June 23, 2023 by jchd

[gcue]

Thank you very much! Works great

[gcue]

the syntax checking works great  thanks again Jchd!  however, i am unable to single out each min/max volume when im trying to read input from a text file.  was working but noticing its not consistently working.

sample input - each value is in its own line (could be with or without spaces min: 5d or min:5d😞

min: 5m
max: 34d

this is what i am doing to get each of the values but not consistently working:

$min_value = StringRegExp(StringStripWS($expecting, 8), "\min:([0-9a-z]*[^max:])", 3)
$max_value = StringRegExp(StringStripWS($expecting, 8), "\max:([0-9a-z]*)", 3)

what i am expecting is 

$min_value = 5d
$max_value = 34m

thank you again in advance!

Edited June 26, 2023 by gcue

[Andreik]

I am not very sure about what are you asking but try this.

$sData = 'min: 5d' & @CRLF
$sData &= 'max: 34m'

$Min = StringRegExp($sData, '(?i)min: *?(\d+[d,w,m,q,y])', 3)
$Max = StringRegExp($sData, '(?i)max: *?(\d+[d,w,m,q,y])', 3)

ConsoleWrite($Min[0] & @CRLF)
ConsoleWrite($Max[0] & @CRLF)

 

[gcue]

that is exactly what i was looking for!  thank you VERY much!!!  hope you have a great rest of the week!