以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  提取汉字  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=150661)
--  作者：良才
--  发布时间：2020/6/4 9:06:00
--  提取汉字
Dim s As String = "2009-10-14 庄墓镇"
Output.Show(提取汉字)
结果：庄墓镇
请老师指教
--  作者：有点蓝
--  发布时间：2020/6/4 9:17:00
--  
Dim pattern As String = "[^\\u4e00-\\u9fa5]"
Dim txt = "2009-10-14 庄墓镇"
Dim str = System.Text.RegularExpressions.Regex.Replace(txt , pattern ,"")
Output.Show(str)
--  作者：良才
--  发布时间：2020/6/4 9:21:00
--  
谢谢