Android Question Regex string contains some letter

[WimS]

I need a regex expression to detect if a string contains some letters.
The string can contain everything but I need to know if there are some alphabetic characters in.

 

[Erel]

If Regex.IsMatch2(".*[adehj].*", Regex.CASE_INSENSITIVE, "text here") Then
    Log("yes")
End If

 

[WimS]

See below :

Str = "AT+AB Bypass"

Public Sub BevatAlphaNumeriek(Str As String) As Boolean
Dim pattern As String = ".*[adehj].*"
Return Regex.IsMatch2(pattern,Regex.CASE_INSENSITIVE,Str)
End Sub


I get false return

 

[Jorge M A]

Double check your code.
The code proposed is working fine in B4X.
Also you can check online : https://regex101.com/r/yQa9mD/1

 

[Erel]

Please use [code]code here...[/code] tags when posting code.

 

[WimS]

Thanks Erel en Jorge.

I see whats the matter: when the string contains CRLF at the end, it return false otherwhise it return true

 

[WimS]

This is working.

Public Sub BevatAlphaNumeriek(Str As String) As Boolean
    
    Str = Str.Replace(CRLF," ")
    Dim pattern As String = ".*[adehj].*"
    Return Regex.IsMatch2(pattern,Regex.CASE_INSENSITIVE,Str)
    
End Sub

 

[Mahares]

This is working.

Did you try this without having to replace the CRLF with space. It works:

 Sub BevatAlphaNumeriek(Str As String) As Boolean   
    Dim pattern As String = ".*[adehj\n].*"
    Return Regex.IsMatch2(pattern,Regex.CASE_INSENSITIVE,Str)   
End Sub

 

[WimS]

I try but it doesn't work. The string contains the source of a async stream.

 

[Mahares]

The string contains the source of a async stream.

Your posts did not indicate that before, but I tested it with a string and it worked. That is why you have to explain yourself more clearly to avoid unnecessary posts from others.
I tried my code like this:

Log(BevatAlphaNumeriek("AT+AB" & CRLF & "Bypass" ))  'true
    Log(BevatAlphaNumeriek("AT+AB Bypass" & CRLF))       'true
    Log(BevatAlphaNumeriek("AT+AB Bypass"))                 'true
    Log(BevatAlphaNumeriek("Victory"))                     'false

 

[OliverA]

The pattern needs to be

Dim pattern As String = "(?s).*[adehj].*"

it forces the dot character (.) to match new lines.

See https://www.regular-expressions.info/modifiers.html

@Mahares: You're close but your solution would produce a true for

"xxxx" & CRLF & "xxxx"

 

[WimS]

Thats is what works in this way. Thanks to Mahares and OliverA.

 

[Mahares]

Sub BevatAlphaNumeriek(Str As String) As Boolean
' Dim pattern As String = ".*[adehj\n].*"
Dim pattern As String = "(?s).*[adehj].*"
Return Regex.IsMatch2(pattern,Regex.CASE_INSENSITIVE,Str)
End Sub

@Mahares: You're close but your solution would produce a true for

Hi Oliver: Your pattern produces the same results as the one I posted:

Sub BevatAlphaNumeriek(Str As String) As Boolean   
'    Dim pattern As String = ".*[adehj\n].*"
    Dim pattern As String = "(?s).*[adehj].*"    
    Return Regex.IsMatch2(pattern,Regex.CASE_INSENSITIVE,Str)   
End Sub

Log(BevatAlphaNumeriek("AT+AB" & CRLF & "Bypass" ))  'true
    Log(BevatAlphaNumeriek("AT+AB Bypass" & CRLF))       'true
    Log(BevatAlphaNumeriek("AT+AB Bypass"))                 'true
    Log(BevatAlphaNumeriek("Victory"))                     'false

 

[OliverA]

Hi Oliver: Your pattern produces the same results as the one I posted:

did you try

"xxxx" & CRLF & "xxxx"

?