参考代码
Dim str As String = Connections("test").ConnectionStringDim mc = System.Text.RegularExpressions.Regex.Matches(str,"(?<=Data Source=).*?(?=;)")If mc.count >= 1 Then msgbox(mc(0).value)End If
加好友 
发短信
Post By：2018/3/25 17:57:00 [显示全部帖子]
