// Variablendeklaration
String pattern1, pattern2, name, type;
Regex regex1, regex2;
Match m1, m2;
String _s = "~";
 
// Beispiel für "~": "~([^~:]+)(?::([^~:]*))?~"
pattern1 = _s + "([^" + _s + ":]+)(?::([^" + _s + ":]*))?" + _s;
pattern2 = "(?i)(sql|array)(?-i)\\((.*)\\)";
regex1 = new Regex(pattern1);
regex2 = new Regex(pattern2);
 
// Query String auf Suchmuster überprüfen
m1 = regex1.Match(_query);
while ( m1.Success ) {
    name = m1.Groups[1].Value;
    type = m1.Groups[2].Value;
    m2 = regex2.Match(type);
    if ( m2.Success ) {
        // weiterer code ...
    }
}

' Variablendeklaration
Dim pattern1, pattern2, name, type As String
Dim regex1, regex2 As Regex
Dim m1, m2 As Match
Dim _s as String = "~"
 
' Beispiel für "~": "~([^~:]+)(?::([^~:]*))?~"
pattern1 = _s + "([^" + _s + ":]+)(?::([^" + _s + ":]*))?" + _s
pattern2 = "(?i)(sql|array)(?-i)\\((.*)\\)"
regex1 = New Regex(pattern1)
regex2 = New Regex(pattern2)
 
' Query String auf Suchmuster überprüfen und DialogBox-Felder generieren
m1 = regex1.Match(_query)
While (m1.Success)
    name = m1.Groups(1).Value
    type = m1.Groups(2).Value
    m2 = regex2.Match(type)
    If m2.Success Then
        ' weiterer code ...
    End If
End While