Regular Expressions

\[CameraDefinition\.(?<CamNumber>\d+)\]\r\nTitle\=(?<Title>.*)\r\nGuid\=(?<Guid>\{[0-9A-Fa-f\-]*\})

\[CameraDefinition\.(?<CamNumber>\d+)\]\r\n(.*\r\n)Guid\=(?<Guid>\{[0-9A-Fa-f\-]*\})\r\n{1,}

Sonhospa wrote:

no capture if there are more lines between ...

Dim\s+(?<variable_name>\w_\w_\w+_(?<expected_type>\w+)_\w+)\s+As\s+(?:(?<matched_type>\2)|(?<mismatched_type>\w+))

Dim L_V_Scalar_Integer_Item As Integer

expected_type   matched_type   mismatched_type
Integer         Integer

Dim L_V_Scalar_Integer_Item As String

expected_type   matched_type   mismatched_type
Integer                        String

Match m = Regex.Match("Dim L_V_Scalar_Integer_Item As String", 
"Dim\s+(?<variable_name>\w_\w_\w+_(?<expected_type>\w+)_\w+)\s+As\s+(?:(?<matched_type>\2)|(?<mismatched_type>\w+))");
if (m.Success)
{
    // For example, check if the group named 'matched_type' is empty
    // This means that there is a violation of the naming convention
    if (String.IsNullOrEmpty(m.Groups["matched_type"].Value))
    {
        string errorText = String.Format(@"The type '{0}' is not allowed for variable name '{1}'. 
        The correct type is '{2}'", 
        m.Groups["mismatched_type"].Value,
        m.Groups["variable_name"].Value,
        m.Groups["expected_type"].Value);
    }
}
else
{
    // Do some error handling for a failed match
}

Quote:

In Visual Studio Ultimate, Visual Studio Premium, and Visual Studio Professional, you can create and modify a custom rule set to meet specific project needs associated with code analysis

Dim L_V_Scalar_([^_\s]+)_([^\s]+) As (?>(\w+\.)*)(?!\1)\w+

(?<!\()\b\w+\b(?!\))

<br />
#!/usr/bin/perl<br />
use strict;<br />
use warnings;<br />
<br />
my(@a,@b,$i,$j,$k,$s,$t);<br />
my(@out,$ins,$outs);<br />
<br />
$ins="clicking the (Run Match) button (or F5) to see what (happens). ";<br />
print "\n";<br />
$outs=$ins;<br />
$outs=~s/\(.+?\)//g;<br />
$outs=undupespace($outs);<br />
print "$outs\n";<br />
<br />
exit; # Exit main pgm.<br />
###################################################################<br />
sub undupespace<br />
# Remove dupe spaces. Max 1 consecutive space.<br />
{my($l)=@_;<br />
<br />
$l=~s/ {2,}/ /g;<br />
return $l; # undupespace<br />
<br />
}<br />
<br />

^[\p{Ll}\p{Lu}\p{Lt}\p{Lo}\p{Lm}\-\s']+$

^[\p{L}\-\s']+$

^[a-zA-Z\-\s']+\.$