以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  按标点符号分割字符串  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=133597)

--  作者:fntfgz
--  发布时间:2019/4/17 8:40:00
--  按标点符号分割字符串

老师,我有一些字符串内容,我想对这些字符串内容进行比较,它们又不是严格一致,我想把这些字串按标点符号,拆分成一个个的小的字符数组

 

比如这个字符串:“经济学类(含荷兰格罗宁根大学双学位项目)(含国家公派留学计划及德国哥廷根大学、慕尼黑大学、法国巴黎政治大学等校免学费交流项目;含经济学、国际经济与贸易(国际经济学方向)、金融学、财政学,保险学5个专业;部分专业课程英语授课)

 

 

我想要的目标是,只要遇到标点符号就断开,折成一个个的字符串数组,字符串数组不包括标点符号,如下面

 

经济学类

含荷兰格罗宁根大学双学位项目

含国家公派留学计划及德国哥廷根大学

慕尼黑大学

。。。。。等等

 

我感觉是不是要用正则呢,没有啥思路,拜托老师了


--  作者:有点甜
--  发布时间:2019/4/17 9:41:00
--  

参考代码

 

\'\'\'
Dim str As String = "经济学类(含荷兰格罗宁根大学双学位项目)(含国家公派留学计划及德国哥廷根大学、慕尼黑大学、法国巴黎政治大学等校免学费交流项目;含经济学、国际经济与贸易(国际经济学方向)、金融学、财政学,保险学5个专业;部分专业课程英语授课)"
Dim ary = str.split(new Char(){"(", ")", "、", ";"})
For Each s As String In ary
    msgbox(s)
Next