How to take some Chinese from string?

Question

VB code
How to get the Chinese from "Office办公室" this string ?
mystr is variables.
Sample:
mystr="Office办公室"
I want
me.Txt_Dept.Text="办公室"

Thank you.

Answer 1

Check a solution that uses Regular Expressions:

Dim mystr = "Office办公室"
Dim result = Regex.Replace(mystr, "[^\p{IsCJKUnifiedIdeographs}]+", " ").Trim
me.Txt_Dept.Text = result

The expression can be improved to keep more kinds of letters.

Answer 2

For example =>

Dim sString = "Office办公室"
Dim sResult As String = RegularExpressions.Regex.Replace(sString, "[\u4E00-\u9FA5]", "")