主题：BeforeConnectOuterDataSource 事件中，怎样获取到连接中的IP

如题，

想获取到这个IP，如果不对再替换

Provider=SQLOLEDB.1;Password=00;Persist Security Info=True;User ID=sa;Initial Catalog=jjerp;Data Source=192.168.1.1,20020

有没有比截取字符串更好的办法呢？比如某一个命令之类的

正规一点，就这样写

Dim hz1 As String = "Provider=SQLOLEDB.1;Password=00;Persist Security Info=True;User ID=sa;Initial Catalog=jjerp;Data Source=192.168.1.1,20020"
Dim reg As new System.Text.RegularExpressions.Regex("(25[0-5]|2[0-4][0-9]|[0-1]{1}[0-9]{2}|[1-9]{1}[0-9]{1}|[1-9])\.(25[0-5]|2[0-4][0-9]|[0-1]{1}[0-9]{2}|[1-9]{1}[0-9]{1}|[1-9]|0)\.(25[0-5]|2[0-4][0-9]|[0-1]{1}[0-9]{2}|[1-9]{1}[0-9]{1}|[1-9]|0)\.(25[0-5]|2[0-4][0-9]|[0-1]{1}[0-9]{2}|[1-9]{1}[0-9]{1}|[0-9])")
Dim mc As object = reg.Matches(hz1)
msgbox(mc(0).value)

好用。

但暂时还不会写，先引用了哈。谢谢～

Dear 有点甜,

能帮我扩展下吗，我还想获取到下面这三个值。

Initial Catalog \ User ID \ Password

Dim hz1 As String = "Provider=SQLOLEDB.1;Password=00;Persist Security Info=True;User ID=sa;Initial Catalog=jjerp;Data Source=192.168.1.1,20020"
Dim reg As new System.Text.RegularExpressions.Regex("(?<=Initial Catalog=).+?(?=;)")
Dim mc As object = reg.Matches(hz1)
msgbox(mc(0).value)

Dim hz1 As String = "Provider=SQLOLEDB.1;Password=00;Persist Security Info=True;User ID=sa;Initial Catalog=jjerp;Data Source=192.168.1.1,20020"
Dim reg As new System.Text.RegularExpressions.Regex("(?<=User ID=).+?(?=;)")
Dim mc As object = reg.Matches(hz1)
msgbox(mc(0).value)

太感谢了。