Android Question String with readable characters only

GuyBooth said:

If I lose the [( and " I can live with that too.

Click to expand...

Dim MyString As String = $"MJ૚c�����P�[���(�ō"V���N�"$
    Log( Regex.Replace("[^a-zA-Z0-9]",MyString,"") )  'displays: MJcPVN

GuyBooth said:

Does anyone have an elegant way to remove unreadable characters from a string?
I have one that looks like this
TITLE: MJ૚c�����P�[���(�ō"V���N�

and as an example for this one I need to trim it down to TITLE: MJcP[("VN.
If I lose the [( and " I can live with that too.

Click to expand...

Sub ClearUnreadable(str As String) As String
 Dim i As Int
 Dim n As Int
 Dim arrBytes() As Byte
 arrBytes = str.GetBytes("UTF8")
 Dim arrBytes2(arrBytes.Length) As Byte
 For i = 0 To arrBytes.Length - 1
  If arrBytes(i) > 0 Then
   arrBytes2(n) = arrBytes(i)
   n = n + 1
  End If
 Next
 Return BC.StringFromBytes(arrBytes2, "UTF8").SubString2(0, n)
End Sub

GuyBooth said:

MJcP[("VN.

Click to expand...

Dim MyString As String = $"MJ૚c�����P�[���(�ō"V���N�"$
Log( Regex.Replace($"[^a-zA-Z0-9-\[\(${QUOTE}]"$,MyString,"") )  'displays: MJcP[("VN

Mahares said:

And if you want to obtain this: MJcP[("VN, you can still use Regex function without reverting to any additional libraries:

B4X:

Dim MyString As String = $"MJ૚c�����P�[���(�ō"V���N�"$
Log( Regex.Replace($"[^a-zA-Z0-9-\[\(${QUOTE}]"$,MyString,"") )  'displays: MJcP[("VN

Click to expand...

KMatle said:

How do you create that string/where is it from? Why do you have to remove that chars?

Click to expand...