B4J Question Detect if ASCII

[Blueforcer]

i woul like to detect if a String only contains ASCII characters. Is this possible?
So for example i can sort out chinese strings.

 

[Sandman]

This isn't a speciality of mine so I'd be hesitant to recommend a rock-solid approach. But I will say that your description is a bit vague:

detect if a String only contains ASCII characters

That's one question.

sort out chinese strings

That's another question.

Follow-up question: How you are planning to deal with Indian characters? Russian? Thai? Emojis? Are they all allowed to stay because you only want to filter away the chinese chars?

 

[Blueforcer]

thats just an example. I only want ASCII Strings.

 

[Sandman]

Your original question didn't say it was just an example so that's a good clarification.

 

[sorex]

you mean this?

Sub Process_Globals
    Private fx As JFX
    Private MainForm As Form
End Sub

Sub AppStart (Form1 As Form, Args() As String)
    MainForm = Form1
    MainForm.Show
    Dim t() As Byte
    t="dé´údfd乾卦彖傳應作「大明終始」".GetBytes("UTF8")
    For x=0 To t.Length-1
        If t(x)>127 Or t(x)<0 Then t(x)=127
    Next
Log(BytesToString(t,0,t.Length,"UTF8"))
End Sub

ddfd

 

[OliverA]

    Dim string1 = "Hello World"
    Dim string2 = "dé´údfd乾卦彖傳應作「大明終始」"
    Dim string3 = "終始」"
    Dim string4 = ""
    
    Log(Regex.IsMatch("[\x00-\x7F]*", string1))
    Log(Regex.IsMatch("[\x00-\x7F]*", string2))
    Log(Regex.IsMatch("[\x00-\x7F]*", string3))
    Log(Regex.IsMatch("[\x00-\x7F]*", string4))

Result:

true
false
false
true

 

[Blueforcer]

    Dim string1 = "Hello World"
    Dim string2 = "dé´údfd乾卦彖傳應作「大明終始」"
    Dim string3 = "終始」"
    Dim string4 = ""
   
    Log(Regex.IsMatch("[\x00-\x7F]*", string1))
    Log(Regex.IsMatch("[\x00-\x7F]*", string2))
    Log(Regex.IsMatch("[\x00-\x7F]*", string3))
    Log(Regex.IsMatch("[\x00-\x7F]*", string4))

Result:

Works perfectly. Thanks!