url = Split(Text1.Text, "/")(0)

'或者先判断一下

If InStr(Text1.Text, ":") <> 0 Then

url = Split(Text1.Text, "/")(2)

Else

url = Split(Text1.Text, "/")(0)

End If

Text2.Text = Replace(url, ".", "")

取第二个。之前的值 用于INI判断

url = Split(Text1.Text, "/")(2)

Text2.Text = Split(url, ".")(0) & "." & Split(url, ".")(1)

VB取主玉米中间段

Dim a, x As String

Dim s As Integer

a = Text1.Text

Text2.Text = Mid(Mid(a, InStr(a, ".") + 1), 1, InStr(Mid(a, InStr(a, ".") + 1), ".") - 1)

最终需要的：

Text2.Text = Replace(Split(Text1.Text, "/")(2), ".", "")