取得标记中的字符，常用与网页代码中，取得特定标志里面的字符

Function GetInstr(str As String ,c1 As String ,c2 As String ) As String '
    Local f1,f2 As Long 
     f1=Instr(str,c1)
     f2=Instr(str,c2)
     If f1>0 And f2>f1 Then
         Function=Mid$(str,f1+Len(c1),f2-f1-Len(c1))
     Else
        Function=""
     End If
End Function