主题：帮忙给一下以下正则法则

参考代码

'''
Dim str As String = "部门：实验室；姓名：黄小二；"
Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "(?<=部门：).*?(?=；)")
msgbox(mc(0).value)
mc = System.Text.RegularExpressions.Regex.Matches(str, "(?<=姓名：).*?(?=；)")
msgbox(mc(0).value)

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=111038&skin=0