Private Sub Command1_Click()Dim aa, astr As StringDim i, j As IntegerOpen "d:\1.txt" For Input As #1Do While Not EOF(1)Line Input #1, aaastr = astr & aaLoopClose #1i = InStr(astr, "si=1&")j = InStrRev(astr, "href=", i)If i * j = 0 Then Exit SubText1.Text = Mid(astr, j + 7, i - j - 3)End Sub连接地址的尾部还是用 ...
|