Android Question how do vb6 like "*.*?

xiaoyao

Active Member
Licensed User
Longtime User
how do vb6 like "*.*?
maybe it's error

B4X:
Sub MatchWildcard(text As String, pattern As String) As Boolean

    Dim regexPattern As String = pattern
    regexPattern = regexPattern.Replace(".",".")  
    regexPattern = regexPattern.Replace("*", ".*")  '
    regexPattern = regexPattern.Replace("?", ".")    
    

    regexPattern = "^" & regexPattern & "$"

    Dim m As Matcher
    m = Regex.Matcher(regexPattern, text)
    Return m.Find
    
End Sub
 

DonManfred

Expert
Licensed User
Longtime User
Get some inspiration n this class
 
Upvote 0
Top