发信人: stepsun()
整理人: gzwsh(2000-09-05 20:32:55), 站内信件
|
Function GetStr(p As String, ByVal n As Integer)
'sub by St.Efan,http://efan.shangdu.net
'the whole progam is http://member1.shangdu.net/home2/efan/NetNease/fH
tmlFliter.zip
Dim q As String, i As Single
If n > 0 Then
For i = 1 To Len(p)
If Mid(p, i, 1) = ">" Then
n = n - 1
If n = 0 Then Exit For
End If
Next
If n <> 0 Then MsgBox "err": GetStr = "": Exit Function
Else
For i = 1 To Len(p)
If Mid(p, i, 1) = ">" And i + 1 < Len(p) Then
If Mid(p, i + 1, 1) <> "<" Then Exit For Else i =
i + 1
End If
Next
If i = Len(p) Then MsgBox "err": Exit Function
End If
For i = i + 1 To Len(p)
If Mid(p, i, 1) = "<" Then Exit For Else q = q + Mid(p, i,
1)
Next
GetStr = q
End Function
--
没有签名是最好的签名。
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 61.158.169.201]
|
|