Private Sub Command1_Click()
Dim a() As String
a = Split(Text1, "/")
Text1 = a(2)
End Sub
Dim a() As String
a = Split(Text1, "/")
Text1 = a(2)
End Sub
快上课了……
没有啊?
我改了一下
Option Explicit
Private Sub Form_load()
Dim strURL As String, i As Integer, j As Integer, strWangZhan As String
strURL = InputBox("请输入URL·")
i = InStr(strURL, "://") + 3
j = InStr(i, strURL, "/") - 1
If j = -1 Then j = Len(strURL)
strWangZhan = Mid(strURL, i, j - 7)
Text1 = strWangZhan
End Sub
